Guten Abend,
ich möchte folgendes (im übertragenem Sinne) schreiben,
Button1 zeigt ein Laben1 an, nach einer Zeit t,
soll dieses Label1 sich ändern.
Soweit so gut...
Dieser Vorgang soll in einer for-Scleife gepackt werden
und 10 mal wiederholt werden.
Aber leider bleibt das Programm bei
procedure TForm1.Timer1Timer(Sender: TObject)
hängen und meldet: Anweisung erwartet aber procedure gefunden.
Kann mir jemand meinen Fehler nennen ?
Gruß Mucki
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Label1: TLabel;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i :=1
to 10
do
begin
label1.caption := '
jetzt gehts los...';
timer1.enabled := true;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.caption := '
...na also';
timer1.enabled := false;
end;
end;
end;
end.