FindComponent - Fehler

[ChrisOsD]

Hallo zusammen,

ich versuche gerade ein Programm zu schreiben. Bei erstellen des formulars soll das Programm erst eine Datei StringList einlesen und aus dieser StringList dann die Bezeichnungen generieren.

Ich bekomme nun einen Fehler bei diesem Bereich:

Code: Alles auswählen

function Rename(const Language:String):String;
var
  i:integer;
  myComp:TComponent;
  compName:string;
begin
  for i:=1 to 3 do
    begin  {Labels ändern}
      compName:=('label'+IntToStr(i));
      myComp:=TLabel(FindComponent(compName));
      myComp.Caption:=(fLabels.Values[Language+'_Label'+IntToStr(i)]);
    end;
end;

Ich bekomme nun die Fehler:
Projekt kompilieren, Ziel: QuoteGen: Exit code 256, Fehler: 2, Warnungen: 2
unit1.pas(84,22) Error: Identifier not found "FindComponent"
unit1.pas(85,14) Error: identifier idents no member "Caption"

Könnt ihr mir sagen, wo mein Denkfehler liegt?

Danke schon einmal und schöne Grüße
Chris

[compmgmt]

Du rufst das von einer Funktion aus auf, du benötigst aber entweder eine Methode oder musst die Form davor angeben. Also z.B. Form1.FindComponent(compName);

[ChrisOsD]

Danke für den Hinweis, compmgmt. Die Lösung mit dem Form1.FindComponent ... wirkt.

Es bleibt noch der Fehler:
unit1.pas(86,16) Error: identifier idents no member "Caption"

Hast du dafür auch noch einen Tipp?

[compmgmt]

Weil TComponent kein Caption als property hat. Nutz leiber TControl, oder wenn du weißt dass es ein Label sein wird, TLabel.

[ChrisOsD]

Vielen Dank für Deine Hilfe abermals.
Du hast mir sehr geholfen.

[schorsch]

übrigens hilft hier auch oft ".. as T.." weiter

[m.fuchs]

übrigens hilft hier auch oft ".. as T.." weiter

Es kann durchaus auch sinnvoller sein as einzusetzen. Das prüft nämlich ob der Typecast zulässig ist und wirft andernfalls eine Exception.

Beim Cast mit $Typname($Objekt) passiert das nicht. Das ist dann zwar schneller, kann aber bei einem unzulässigen Cast zu Problemen führen.