19.06.2010, 10:23. Просмотров 451. Ответов 1
Помогите перевести этот участок программы на язык С
Delphi |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| procedure TForm2.BitBtn1Click(Sender: TObject);
begin
try
if StrToInt(Edit1.Text)>0 then
begin
Form2.Visible:=false;
Form1.Kol := StrToInt(Edit1.Text);
Form1.Visible:=True;
end;
except
MessageDlg('Введите число, не превышающее 20.', mtError,
[mbOk], 0);
end;
end;
6
end. |
|