Ответ: Помогите создать маленькую прогу.
Var field:integer;
ok:command;
text,code: string;
begin
ok:=createCommand('ok',CM_OK,1);
showForm;
field:=formAddTextField('Введите имя','',10,TF_ANY);
addCommand(ok);
while getClickedCommand<ok> do
delay(100);
if code='111' then text:='земля';
showCanvas;
drawText(?,0,0);
repaint;
delay(4000);
end.
|