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

← →
Rustik (2003-07-11 16:39) [0]

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

← →
Rustik (2003-07-11 16:52) [1]

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

← →
KDS © (2003-07-11 16:53) [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:54) [3]

Thanks

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