Hallo!
Ich habe ein mehrere Arrays von einem Record und möchte jetzt allen Variablen Werte zuweisen.
Mein Record und meine Arrays sehen so aus.
Delphi-Quellcode:
TFragen = record
Frage : string;
Antwort_A : string;
Antwort_B : string;
Antwort_C : string;
Antwort_D : string;
Richtig : string[1];
end;
Kat1,kat2,Kat3,Kat4,Kat5,Kat6,Kat7,Kat8,Kat9,Kat10,Kat11,Kat12,Kat13,Kat14,Kat15 : Array[1..10] of TFragen;
Wenn ich jetzt einem Platz eines Array einen Wert zuweise sieht das so aus.
Kat1[1].Frage := 'Test';
So jetzt möchte ich nich alles selber schreiben sondern das über Findcomponent lösen.
Habe das so probiert für das erste Beispiel.
TFragen(FindComponent('Kat'+IntToStr(1)+'['+IntToStr(1)+'].Frage')) := 'test'
Die Einsen werden hinterher natürlich durch Variablen aus for Schleifen ersetzt.
Es kommt aber immer ein Fehler: Ungültige Typumwandlung. Was mache ich falsch?
Vielen Dank schonmal.