Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

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

 
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



Страницы: 1 вся ветка

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-10173
Yanis
2003-07-23 01:19
2003.08.04
Как сделать консольную программу?


14-10367
VEG
2003-07-16 13:16
2003.08.04
Проблема с объявлением оператора для var[idx] = val;


7-10470
Pahsik
2003-05-24 04:12
2003.08.04
Добавление юзера к файлу


1-10302
Man
2003-07-22 12:40
2003.08.04
как инициализируются переменные в классе по умолчанию


1-10243
Endi
2003-07-21 01:43
2003.08.04
Как объяснить форме