Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

как перевести текст с английской раскладки на русскую или наоборот? 


Andrey Peryazev   (2002-03-10 09:28) [0]

Нигде не могу найти, какже перевести текст с английской раскладки на русскую или наоборот? т.е если был набран текст
в виде "руддщцуут", то должно получиться - "helloween"?



DelGod   (2002-03-10 11:57) [1]

этот код делает из "ntrcn" в "текст"




var asd1, asd2, asd3, asd4, fcl1, fcl2, fcl3, fcl4, vod, vuvod:string; i, j:integer;
Begin
edit1.PasteFromClipboard;
asd1:="qwertyuiop[]asdfghjkl;zxcvbnm,./\QWERTYUIOP{}ASDFGHJKL";
fcl1:="йцукенгшщзхъфывапролджячсмитьбю.\ЙЦУКЕНГШЩЗХЪФЫВАПРОЛД";
asd2:=":"ZXCVBNM<>?|`1234567890-=~!@#$%^&*()_+ """;
fcl2:="ЖЭЯЧСМИТЬБЮ,/ё1234567890-=Ё!"№;%:?*()_+ э";
vod:=edit1.text;
for i:=1 to length(vod) do
for j:=1 to 60 do
begin
if vod[i]=asd1[j] then vuvod:=vuvod+fcl1[j];
if vod[i]=asd2[j] then vuvod:=vuvod+fcl2[j];
end;
edit1.text:=vuvod;
edit1.SelectAll;
edit1.CopyToClipboard;
edit1.ClearSelection;



Anatoly Podgoretsky   (2002-03-10 12:01) [2]

Возьми у меня CharCvt (это универсальная процедура конвертирования строк) и нарисуй одну/две своих таблицы




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.014 c
1-80458           sany                  2002-03-08 08:10  2002.03.25  
Решил сделать прогу, которая заменяла бы в html файлах ...


14-80659          --Reporter--          2002-02-09 21:35  2002.03.25  
Не подскажете, можно ли как нибудь бесплатно позвонить на обычный московский телефон через интернет?


1-80567           Anar                  2002-03-08 01:18  2002.03.25  
Мышка


4-80724           Gennady               2002-01-26 14:53  2002.03.25  
SHAppBarMessage


1-80470           wicked                2002-03-12 12:11  2002.03.25  
что получилось из сломанного телека VUDZ а через полчаса...... :)