Delphi-Quellcode:
procedure TForm1.TimerProc(Sender: TObject);
begin
label1.Caption:=Sender.name;
end;
Da meckert er undeclared identifier: 'name'
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to 9999 do begin
setlength(Timer, length(Timer)+1);
Timer[high(Timer)]:=TTimer.create(form1);
Timer[high(Timer)].Name:='Timer'+inttostr(high(Timer));
Timer[high(Timer)].interval:=random(10000)+1;
Timer[high(Timer)].OnTimer:=TimerProc;
end;
end;
Oder liegt da irgendwo der Hase im Pfeffer begraben? Oder wars der Hund?
