Mit While schleife veschiedene Objekte anwählen

[frederic]

Hallo

Ich möchte über eine while schleife erreichen, dass ich beim ersten durschlauf z.B. Label1 anwähle, beim zweiten Label2 und so weiter.
Das geht leider nicht mit if abfragen, da ich im weiteren Quelltext immer Labels erzeuge und so nur weiß, wie viele Labels vorhanden sind.

Wie mache ich das?

[corpsman]

Code: Alles auswählen

var i:integer;
l:TLabel;
begin
  i := 1;
  while i <= 2 do begin
  l := form1.findcomponent('Label'+inttostr(i));
  if assigned(l) then begin
    l.caption := 'Ich bin das Label mit der Nummer : ' + inttostr(i);
  end;
  inc(i);
end;

[frederic]

Vielen dank für die schnelle Antwort

[frederic]

Bei mir gibt Lazarus aber bei

l := form1.findcomponent('Label'+inttostr(i));

das hier als Fehlermeldung aus:
unit1.pas(43,13) Error: Incompatible types: got "TComponent" expected "TLabel"
Obwohl ich alles, so, wie es da steht verwendet habe

[MAC]

Dann musst du den Typ noch als TLabel interpretieren lassen,fertig

Code: Alles auswählen

l := form1.findcomponent('Label'+inttostr(i)) as TLabel;

[corpsman]

*g* so ist das wenn man was blind tippt.
was auch geht :

Code: Alles auswählen

l := TLabel(form1.findcomponent('Label'+inttostr(i)));

[theo]

was auch geht :

Code: Alles auswählen

l := TLabel(form1.findcomponent('Label'+inttostr(i)));

Das ist aber unsicherer. Der as-cast schmeisst eine EInvalidCast Exception wenn die Typen nicht "kompatibel" sind.
Das "harte" casting macht u.U. erst später Ärger.

[mschnell]

Das "harte" casting macht u.U. erst später Ärger.

Genau, siehe Dieter Bohlen.

-Michael

[Eclipticon]

Erzeugst Du die Labels zur Laufzeit?

Ich wuerde dann ein array of TLabel verwenden ...

[frederic]

Vielen dank für diese schnellen und hilfreichen Antworten!

[Bitschubser]

Erzeugst Du die Labels zur Laufzeit?

Ich wuerde dann ein array of TLabel verwenden ...

Wollte ich auch grad vorschlagen - alternativ könnte man die TLabel auch in eine TList stecken, dann ist man sogar mit der Anzahl komplett flexibel.
Wenn man die TList direkt verwendet muss man natürlich wieder type-casten. Oder halt von TList eine TLabelList ableiten.
Das mit dem array habe ich auch schon öfters mit statischen Labels in Formularen gemacht - also grafisch entworfen, und dann in der FormCreate eine Zeile pro Label für das Zuweisen zum Array-Element - statt jedesmal 2,3 Zeilen pro Label da wo die Labels manipuliert werden...
Mein persönliches Highlight wäre natürlich wenn ich die Labels in der .dfm als Array anlegen könnte...

Gruß, Ingo