| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите как можно в строке выбрать буквы аналоги латинницы [D5, MSSQL]

Rustik ©   (2003-07-11 16:39:00) 

Подскажите как можно в строке выбрать буквы аналоги латинницы
и заменить их на кириллицу

---

Rustik   (2003-07-11 16:54:00) [1]

Thanks

---

KDS   (2003-07-11 16:53:00) [2]

Возьми алгоритм и идею из моей "коверкалки"
implementation uses StrUtils, ShellAPI;

{$R *.dfm}

procedure TShipForm.SpeedButton1Click(Sender: TObject);
const
origin: array [0..6] of AnsiChar=("ж","р","у","ч","ш","щ","к");
defect: array [0..6] of AnsiChar=("з","л","ю","ц","с","с","k");
var cnt, i: word;
NewStr: AnsiString;
Cur: AnsiChar;
begin
cnt:=Length(Comment.Lines.Text);
NewStr:=AnsiLowerCase(Comment.Lines.Text);
for i:=0 to 6 do NewStr:=AnsiReplaceStr(NewStr,origin[i],defect[i]);
for i:=0 to cnt do begin
Cur:=Comment.Lines.Text[i];
if Odd(Random(20)) then NewStr[i]:=AnsiUpperCase(NewStr)[i];
end;
Comment.Lines.Text:=NewStr;
end;

Беру текст из ТМемо, перековеркиваю его и вставляю обратно ;-)

---

Rustik   (2003-07-11 16:52:00) [3]

Неужели никто не сталкивался задачей поиска в тексте букв набранных латиницей и переводом их в кириллицу

---

Наверх