Главная страница
    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.45 MB
Время: 0.008 c
11-10149
savva
2002-11-29 12:02
2003.08.04
Я тут совершенно недавно подсел на KOL и MCK...


1-10268
Pauk
2003-07-21 16:48
2003.08.04
ComboBox и длинный текст


1-10178
R
2003-07-22 03:24
2003.08.04
Поменять местами Items в TListView


14-10357
sniknik
2003-07-18 17:32
2003.08.04
В чем разница? аспекты компилятора Дельфи мне незнакомые.


14-10417
PrettyFly
2003-07-17 17:42
2003.08.04
Как unинсталить?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский