Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.007 c
14-10394
frost
2003-07-11 22:53
2003.08.04
Базы Paradox и различные файловые системы


1-10211
denis24
2003-07-23 10:04
2003.08.04
Form1.onShow


1-10270
Keith Flint
2003-07-16 16:06
2003.08.04
Background Picture у формы


7-10485
reticon
2003-05-22 23:11
2003.08.04
установка бит данных


3-10141
DBDev
2003-07-15 13:38
2003.08.04
Нужен стратегический совет!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский