Re: Предложите способ вывода цифровой информации.
Спасибо всё пошло.
Но вот теперь он почему то не хочет делать вчисления.
Не пойму почему.
Подскачите.
Вот программа.
{ Программа запрашивает имя пользователя и отображает его красным цветом }
var okCommand:command;
c:integer;
l:integer;
d:integer;
c1:string;
begin
{ Создание формы на экране }
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
c:= formAddTextField('частота', '', 3, TF_numeric);
{ ожидание, пока пользователь нажмёт кнопку OK }
while (getClickedCommand <> okCommand) do
delay(100);
d:=300;
l:=d/c;
c1:= FormGetText(c);
showCanvas;
drawText(c1,10,0);
repaint;
delay(20000);
end.
|