Dynmaische Label finden

[sniper_w]

Das:

Delphi-Quellcode:

procedure TForm1.Button31Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to form1.ComponentCount - 1 do
  begin
    if form1.Components[i].ClassType = TLabel then
    begin
      if Form1.Components[i].Name = 'Dyn1' then
      ShowMessage('JA');
    end;
  end;
end;

sollte so aussehen:

Delphi-Quellcode:

procedure TForm1.Button31Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to self.ComponentCount - 1 do
  begin
    if self.Components[i].ClassType = TLabel then
    begin
      if self.Components[i].Name = 'Dyn1' then
      ShowMessage('JA');
    end;
  end;
end;

oder gar so:

Delphi-Quellcode:

procedure TForm1.Button31Click(Sender: TObject);
var
  i:integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i].ClassType = TLabel then
    begin
      if Components[i].Name = 'Dyn1' then
      ShowMessage('JA');
    end;
  end;
end;