мобильный переводчик
var okCommand:command;
iru:integer;
ru, en:string;
okCommand:= createCommand('OK', CM_OK, 1);// Создание формы
showForm; addCommand(okCommand);
iru:= formAddTextField('Введите слово на русском', '', 20, TF_ANY);
while (getClickedCommand <> okCommand) do delay(100);
ru:=formGetText(iru);
это ввод в форму слова на русском
|
а в ресурсном файле например следующие строчки
ru:=я; en:=i;
ru:=ты; en:=you;
ru:=da; en:=yes;
......
ru:=дом; en:=home;
|
или такие строки (я не знаю как удобнее)
if ru:='я' then en:='i';
if ru:='ты' then en:='you';
......
if ru:='дом' then en:='home';
|
как сделать чтоб при вводе в форму слова например ДОМ
программа открывала ресурсный файл и искала строку с переводом, т.е HOME, чтобы можно было вывести его в конвайсе
clearForm;
showCanvas; // Растр
setColor(255,0,0); drawText(ku,10,30);
|