Люди помогите :)
 

Всем привет,я недавно начал осваивать Мидл Паскаль,и уже столкнулся с одной проблемой.Вообшем хочю сделать программу в которой выводится две формы для ввода текста,вводим туда два каких либо числа и нажимаем ОК,и должен вывестить результат.например вводим 5 и 10 выводит 15.проблема в том что ввожу а результат не правельный.Вот код программы:

program HelloForm;

var
button_quit:command;
button_main:command;
name1,name2:string;
form1,form2:integer;
itog:integer;
a,b:integer;
begin
//-----
showform;
form1:=FormAddTextField('Enter a','0',20,TF_ANY);
form2:=FormAddTextField('Enter b','0',20,TF_ANY);
name1:=FormGetText(form1);
name2:=FormGetText(form2);
//-----
button_main:=CreateCommand('Nachat',CM_OK,1);
AddCommand(button_main);
repeat until GetClickedCommand = button_main;
//-----
a:=StringToInteger(name1);
b:=StringToInteger(name2);
showcanvas;
itog:=a+b;
drawtext('Suma '+itog,0,0);
//-----
button_quit:=CreateCommand('Vixod',CM_EXIT,1);
AddCommand(button_quit);
repeat until GetClickedCommand = button_quit;
end.

Если кто может помогите,исправте ошибку,буду очень благодарен!
Заранее спасибо.

Ответ: Люди помогите :)
 

Просто поставь
name1:=FormGetText(form1);
name2:=FormGetText(form2);
перед
a:=StringToInteger(name1);
b:=StringToInteger(name2);

РЕЗУЛЬТАТ:
var
button_quit:command;
button_main:command;
name1,name2:string;
form1,form2:integer;
itog:integer;
a,b:integer;
begin
//-----
showform;
form1:=FormAddTextField('Enter a','0',20,TF_ANY);
form2:=FormAddTextField('Enter b','0',20,TF_ANY);

//-----
button_main:=CreateCommand('Nachat',CM_OK,1);
AddCommand(button_main);
repeat until GetClickedCommand = button_main;
//-----
name1:=FormGetText(form1);
name2:=FormGetText(form2);
a:=StringToInteger(name1);
b:=StringToInteger(name2);
showcanvas;
itog:=a+b;
drawtext('Suma '+itog,0,0);
//-----
button_quit:=CreateCommand('Vixod',CM_EXIT,1);
AddCommand(button_quit);
repeat until GetClickedCommand = button_quit;
end.

Ответ: Люди помогите :)
 

если те помог, отметь полезно

Ответ: Люди помогите :)
 

Все работает,спасибо =).
Тему можно закрывать..