FindComponent und Zugriffsfehler

[fr0g]

Hallo

In meinem programm hab ich intern mehrere Formblätter erstellt mit einem Array

Delphi-Quellcode:

for i:=0 to 50 do begin
 form[i].MsgBox:=TFicMessageBox.Create(self);
 form[i].MsgBox.Name:='icY'+IntToStr(i);
 form[i].MsgBox.mhistory.Name:='mhistory'+IntToStr(i);

Wenn ich jetzt auf das MemoFeld history etwas schreiben will per FindComponent dann sag er mir immer etwas von einem Zugriffsfehler.

 TMemo(FindComponent('mhistory'+IntToStr(i))).Lines.Add('blablabla'); Woher kommt das? Ich glaube das er weiss das es mehrere mhistory gibt (1,2,3,...) und dann kommt er nicht mit klar direkt in mhistory2 zu schreiben.

Hat jemand eine Idee wie ich das vergindern kann?

mfg fr0g

[mkinzler]

Wo erstellst du form[i]?

[fr0g]

form[i] erstelle ich in meiner hauptform

und den findcomponent in einen der erstellten formen. Weil es gibt ja kein Befehl mit FindComponent aus einer anderen Form in eine andere Form zu arbeiten?

[hsg]

Du prüfst auch nicht, ob FindComponent überhaupt was findet, wenn nicht kommt ein freundliches nil zurück, das du dann einfach als Memo ansiehst -> Zugriffsverletzung.

Also erst das Ergebnis abholen und prüfen ob ungleich nil, dann casten und damit arbeiten

[fr0g]

Sorry. Aber bin noch Anfänger. kannste das mal bitte ein wenig ausführlicher erklären?
Danke


Alles klar. Hab selber schon herraus bekommen. thx nochmal

[bitsetter]

Delphi-Quellcode:

 if FindComponent('mhistory'+IntToStr(i)) as TMemo<> nil
 then
TMemo(FindComponent('mhistory'+IntToStr(i))).Lines.Add('blablabla');