Re: Примеры простейших программ
Проблемы возникают при выводе переменных из форм :
program sqrt01;
var okCommand:command;
c:Integer;
r:Integer;
d:real;
c1:string;
begin
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
c:= formAddTextField('подкоренное число', '', 10, TF_numeric);
while (getClickedCommand <> okCommand) do
delay(100);
c1:= FormGetText(c);
r:= StringToInteger(c1);
showCanvas;
DrawText(''+sqrt(r),10,30);
repaint;
delay(6000);
end.
Подобное не работает.
Конечно вопрос чайнеческий но очень бы хотелось узнать почему ???
|