Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.14;
Скачать: CL | DM;

Вниз

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

 
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]


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


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


> timur   (21.09.07 09:45)  

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


 
antonn ©   (2007-09-21 16:47) [7]

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



Страницы: 1 вся ветка

Текущий архив: 2007.10.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
3-1181030273
alex_***
2007-06-05 11:57
2007.10.14
Как на оракле будет выглядеть этот запрос


2-1189756777
AllDer
2007-09-14 11:59
2007.10.14
таймаут сокета


15-1189689035
novill
2007-09-13 17:10
2007.10.14
Кто знает как из DCU вытянуть исходники?


15-1190028979
Nucer
2007-09-17 15:36
2007.10.14
Построение RAID-0 массива


3-1181297910
tsoftware
2007-06-08 14:18
2007.10.14
Теряется фокус у DBGrid