Показать сообщение отдельно
Старый 28.08.2012, 20:42   #4
Maga05
Оператор ЭВМ
 
Регистрация: 17.12.2011
Сообщений: 26
Написано 4 полезных сообщений
(для 5 пользователей)
Ответ: Маленикая программа

Program example;
var
itemId,i,id integer;
cmdNext command;
cmdQuit command;
name string;
slovo1,slovo2:array [0..1of string;

procedure loading;
begin
i
:=0;
slovo1[i]:='Привет';slovo2[i]:='Hello'i:=i+1;
end;

begin
loading
;
ShowForm;
itemId := FormAddTextField('Введите слово'''20TF_ANY);
cmdNext := CreateCommand('ОК'CM_OK1);
AddCommand(cmdNext);
repeat until GetClickedCommand cmdNext;
name := FormGetText(itemId);
for 
i:=0 to 1 do if slovo1[i]=name then begin id:=i; break; end;
ShowCanvas;
DrawText(slovo2[id], 00);
Repaint;
cmdQuit := CreateCommand('Выход'CM_EXIT1);
AddCommand(cmdQuit);
repeat until GetClickedCommand cmdQuit;
end
slovo1,slovo2:array [0..1] of string; здесь указываем сколь слов.

вот код. кому помогло жмите полезно!
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
qweasd (31.08.2012)