Hallo Xion,
dankeschön für die ausführliche Erklärung!
Also ich kann mittlerweile nun in das Objekt die Property abspeichern.
Ich habe die Klasse in einer anderen Unit über Create erstellt (Im Beenden Modus gebe ich diese wieder Frei über Free). In dieser Unit habe ich dann in public ein Array erstellt welches von der Klasse abstammt ATest: array of TTest
Nun greife ich wiederum aus einer anderen Unit auf dieses Array zu
Public zuweisung in der UnitTestData (Hier wird Test auch erstellt und freigegeben)
Delphi-Quelltext
1: 2:
| Test : TTest; ATest : array of TTest; |
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:
| [delphi]
procedure TF_AddTest.btn_AddClick(Sender: TObject); var TestData: TStringlist;
begin
TestData := TStringlist.Create;
TestData.Add(edt_Test1.Text); TestData.Add(edt_Test2.Text);
AddTestData(Length(F_TestData.ATest), TestData); Setlength(F_TestData.ATest,Length(F_TestData.ATest)+1);
end; |
Unit wo AddTestData vorhanden ist.
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| procedure AddTestData(Index: Integer; TestData: TStringlist); begin
F_TestData.ATestData[Index].CardID := StrtoInt(TestData[0]);
end; |
Leider funktioniert er nicht, wenn ich aus dem Array die Propertys bearbeiten will.
Was mache ich da falsch?
Oder soll ich die TObjectlist nutzen?
Wenn ja, müsste das dann so aussehen?
Delphi-Quelltext
1: 2: 3: 4: 5: 6:
| ATest := TObjectList.Create;
ATest.Add(Test); ATest.Items(Length(ATest)).CardID := 5;
ATest.Free; |