Привет всем.Горе у меня,код попрбывал вставить,что-то TRY...EXCEPT у меня не работает посмотрите где допустил ошибку.Для примера вот:
unit Upravlenie1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var s,i,r:integer; begin try s:=strtoint(edit1.text); for i:=-3 to 3 do begin r:=round(s/i); listbox1.Items.Add(inttostr(s)+'/'+inttostr(i)+'='+inttostr®); end; except messagebox(application.Handle,'Ты хоть понял что ты вводишь? ))','Ошибка ввода',MB_ICONINFORMATION); end; end; end. |