|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Anfängerfrage IF - THEN - ELSE
1. Mär 2008, 18:10
Das Exit ist IMHO nicht unbedingt nötig.
Delphi-Quellcode:
procedure TForm1.Taste2Click(Sender: TObject);
begin
if not Form1.ADOConnection1.Connected then
begin
MessageDlg(' Noch nicht mit der Datenbank verbunden.',mtError,[mbOK],0);
end
else
begin
(* Mit der DB arbeiten *)
end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|