как остановить программу

← →
timur (2007-09-21 09:45) [0]

написал программу . вот на этом куске есть местечко , которое не могу решить

procedure TForm1.TntButton2Click(Sender: TObject);
Var
ed1: String;
i:integer;
s: String;
begin

s:= Edit1.Text;
Table1.FindKey([s]);
If Table1.FindKey([s]) Then
begin
ShowMessage("This wors is already in database");
end;
ed1:= Edit1.Text;

If ed1 > "" Then
Begin
form1.Table1.Active:= True;
form1.Table1.Append;
form1.Table1.FieldByName("AZ").AsString:= ed1;
form1.Table1.Post;
end;
Edit1.Text:= "";

end;

как сделать так что бы после ShowMessage процедура перестала работать. сами наверника видете, идея такая что если слово в базе есть то не надо добавить , надо перейти на другое слово. а у меня после ShowMessage выходить "Key violation"

← →
Mery (2007-09-21 09:52) [1]

Для прерывания процедуры можно использовать метку label и
перед begin Процедуры и var её определяешь например,

procedure TFormVvod.Button7Click(Sender: TObject);
label 10;
var

потом в коде
ShowMessage("This wors is already in database");
goto 10;
....

10:
end;//конец процедуры.
Но сообщение "Key violation" системное. Оно всё равно выйдет.

← →
Ega23 © (2007-09-21 09:56) [2]

> Mery (21.09.07 09:52) [1]

УБЕЙ СЕБЯ ОБ СТЕНУ, ЛАМО НЕДОДЕЛАННОЕ!!!

s:= Edit1.Text; Table1.FindKey([s]); If Table1.FindKey([s]) Then begin ShowMessage("This wors is already in database"); Exit; end; ed1:= Edit1.Text;

← →
brian (2007-09-21 10:01) [3]

Mery
спасибо за идею

Ega23

и тебе спасибо , то что надо.

← →
Рамиль © (2007-09-21 10:30) [4]

> Но сообщение "Key violation" системное. Оно всё равно выйдет.

Супер! :-D

← →
Ega23 © (2007-09-21 10:35) [5]

> Рамиль © (21.09.07 10:30) [4]

Я уже распечатал и на стенку повесил.

> timur (21.09.07 09:45)

Я тебе большой секрет открою: условный оператор в делфи имеет синтаксис if <условие> then <сделать при истине> else <сделать в противном случае>

дааа, дело goto живет еще :))

как остановить программу Найти похожие ветки