Hallo, ich wusste nicht genau, wie ich den Titel treffender gestalten sollte.
Ich habe folgendes Problem:
Ich habe in meinem Programm folgendes Array mit Records:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| type TFrage = record
NR : integer;
Kateg: Shortstring;
Frag : Shortstring;
Ant1, Ant2, Ant3, Ant4, Ant5, Ant6: Shortstring;
Richtig1, Richtig2, Richtig3, Richtig4, Richtig5, Richtig6:boolean;
Diffic: integer;
Loesung: Text;
end;
var AFragen: array[1..150] of TFrage; |
Die Werte werden aus einer Eingabemaske übernommen. Um den Programmcode zu raffen, würde ich gerne mit FindComponent und einer Schleife arbeiten, sodass Edit
1.text in Array[xy].Ant
1, Edit
2.text in Array[xy].Ant
2 geschrieben wird usw. (Bei den Boolean-Werten per Checkbox).
Jetzt weiß ich aber nicht, wie ich die record-Eigenschaft an der bestimmten Arraystelle per Schleife aufrufen soll.
Meine "Versuche" funktionieren natürlich nicht, verdeutlichen aber, was ich vorhabe:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| for I := 1 to 6 do
if TEdit(FFragen.FindComponent('FrEAnt'+i)).text<>'' then
AFragen[Stelle].FindComponent('Ant'+i):= TEdit(FFragen.FindComponent('FrEAnt'+i)).text;
for I := 1 to 6 do
if TCheckbox(FFragen.FindComponent('FrCBAnt'+i)).checked=true then
AFragen[Stelle].FindComponent('Richtig'+i):=true; |
