Предложите способ вывода цифровой информации.
 

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

Подскажите как выводить цифровую инфо.
Там потом ещё вычисления будут.

Re: Предложите способ вывода цифровой информации.
 

c1:= FormGetText(c);
будет правильнее.

Re: Предложите способ вывода цифровой информации.
 

Спасибо.
Щас попробую.

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.

Re: Предложите способ вывода цифровой информации.
 

те же грабли что и в первом посте.
c1:= FormGetText(c);
l:=d/StringToInteger(c1);