Label[i]

[Jasocul]

Könnte dich das Folgende auf den richtigen Weg führen:

Delphi-Quellcode:

var
  mylabel : TLabel;
  i : Integer;
begin
  for i := 1 to 10 do
  begin
    myLabel := FindComponent('Label' + IntToStr(i));
    if Assigned(myLabel) then
    begin
      ShapeRot.top:=myLabel.top;
      ShapeRot.left:=myLabel.left;
    end;
  end;
end;

Achtung, der Source ist nur einfach mal hingetippt.

[Zeref Darkmage]

vielen Dank für die Mühe

doch,

myLabel := FindComponent('Label' + IntToStr(i));

unit1.pas(66,16) Error: Incompatible types: got "TComponent" expected "TLabel"

LG Zeref

[Jasocul]

Dann etwas anders:

Delphi-Quellcode:

var
   mylabel : TComponent;
   i : Integer;
begin
   for i := 1 to 10 do
   begin
     myLabel := FindComponent('Label' + IntToStr(i));
     if Assigned(myLabel) then
     begin
       ShapeRot.top := TLabel(myLabel).top;
       ShapeRot.left := TLabel(myLabel).left;
     end;
   end;
end;

Aber Vorsicht! Type-Casting in dieser Form nur, wenn du sicher bist, dass es auch wirklich von diesem Typ ist. Sollte aber eigentlich der Fall sein.

[Zeref Darkmage]

vielen dank das fuktioniert super..

ich will mich nicht aus dem Fenster lehnen, aber das TLabel davor sagt einfach bloß welche Komponente es direkt ist oder ?

[Jasocul]

Nein, nicht wirklich.
Es wandelt das, was in Klammern steht, in den angegebenen Type um. In diesem Fall TLabel.
Eine Prüfung erfolgt nicht. Du könntest zum Beispiel auch TLabel(i) schreiben. Nur würde das mit Sicherheit zu Fehlern führen.

[günni0]

Warum nicht so

Delphi-Quellcode:

var 
 myLabel: TLabel;
begin
 myLabel := TLabel(FindComponent('Label' + IntToStr(i)));

Man castet ja eh auf TLabel ohne zu prüfen, ob es wirklich ein Label ist. Dann kann man es auch gleich als TLabel deklarieren.

Oder eben so

Delphi-Quellcode:

var 
 Comp: TComponent;
 myLabel: TLabel;
begin
 Comp:= FindComponent('Label' + IntToStr(i));
 if Comp is TLabel then
  begin
    myLabel: TLabel(Comp);
  end;

[Zeref Darkmage]

Zitat von günni0:

Warum nicht so

Delphi-Quellcode:

var 
 myLabel: TLabel;
begin
 myLabel := TLabel(FindComponent('Label' + IntToStr(i)));

Man castet ja eh auf TLabel ohne zu prüfen, ob es wirklich ein Label ist. Dann kann man es auch gleich als TLabel deklarieren.

Jo ok hatte bei mir nicht funtioniert weil s noch als TComponent deklariert war

[DeddyH]

myLabel := TLabel(FindComponent('Label' + IntToStr(i)));