Thema
:
Delphi
Allgemeine Fragen zu Delphi
Einzelnen Beitrag anzeigen
andiak
Registriert seit: 1. Nov 2007
89 Beiträge
#
11
Re: Allgemeine Fragen zu Delphi
18. Nov 2007, 16:50
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.Button1Click(Sender: TObject);
var
i :integer;
begin
i := StrToInt(Edit1.Text) ;
//da eine zeichenkette zu einer zahl oder?
i := i + 1 ;
if
i = 10
then
begin
Panel1.Caption'
Zehnmal auf den Button geklickt!
';
i := 0;
end
else
Panel1.Caption := '
' ;
Edit1.Text := IntToStr(i);
end
.
soo?
Zitat
andiak
Öffentliches Profil ansehen
Mehr Beiträge von andiak finden