|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: delphi mit lazarus
8. Apr 2008, 19:08
Da fehlt ein end;
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
case zahl1 of
1: showmessage ('Sie haben noch 156 € auf ihrem Konto.!');
2: showmessage ('Ihre Karte wird gesperrt.');
3: showmessage ('Bitte haben sie etwas Gedult. Sie werden verbunden.');
end;
end;//hier
BTW: Benutze bitte die Delphi-Tags, dann ist der Code einfacher zu lesen.
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
|