lol....
das enter ändert aber nichts im quelltext.
also...ich hab bis jetzt folgendes:
...
var
Form1: TForm1;
zahl1:real;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage ('Für Kontoabfrage geben sie 1 ein. Um ihre Karte zu sperren schreiben sie 2. Wollen sie eine Kundenberatung geben sie 3 ein.');end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
case zahl1 of
'1': showmessage ('Sie haben noch 156 € auf ihrem Konto.!');
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
end;
initialization
{$I unit1.lrs}
end.
der markierte teil wird in einem fenster geöffnet, der text aber wird in einer langen zeile angezeigt. das kann man doch bestimmt ändern.
außerdem sind da noch einige fehler drin versteckt
