Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

timur © (2007-09-21 09:45:00)
написал программу . вот на этом куске есть местечко , которое не могу решить

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"

antonn (2007-09-21 16:47:00) [1]
дааа, дело goto живет еще :))

Плохиш (2007-09-21 11:04:00) [2]

> timur (21.09.07 09:45)

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

Ega23 (2007-09-21 10:35:00) [3]

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

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

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

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

Супер! :-D

brian (2007-09-21 10:01:00) [5]
Mery
спасибо за идею

Ega23

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

Ega23 (2007-09-21 09:56:00) [6]

> 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;

Mery (2007-09-21 09:52:00) [7]
Для прерывания процедуры можно использовать метку label и
перед begin Процедуры и var её определяешь например,

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

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »