Record im Array nutzen? - Sinnvollere Wege?

[Asura]

Nun, ich habe ja zwei Möglichkeiten eingetragene Daten in die Objectliste zu speichern:
Entweder ich nutze nur die Instanz Employee von der Klasse TEmployee und lasse sie mir vor dem speichern der Eigenschaften neu erzeugen.

Wie in meinem aktuellen Fall: Methode 1

Delphi-Quellcode:

procedure AddEmployeeData(Index: Integer; EmployeeData: TStringlist);
begin

  F_Main.Employee := TEmployee.Create();

  F_Main.Employee.CardID      := StrtoInt(EmployeeData[0]);
  F_Main.Employee.Prename     := EmployeeData[1];
  F_Main.Employee.Surname     := EmployeeData[2];
  F_Main.Employee.Birthday    := StrtoDate(EmployeeData[3]);
  F_Main.Employee.Workstation := EmployeeData[4];
  F_Main.Employee.Position    := EmployeeData[5];

  F_Main.OLEmployees.Add(F_Main.Employee);  // Employee Daten werden als neuer Eintrag gespeichert

  showmessage(TEmployee(F_Main.OLEmployees.Items[0]).Prename); // dient als test
  showmessage(TEmployee(F_Main.OLEmployees.Items[1]).Prename); // dient als Test
end;

Methode 2:

Oder ich müsste für jeden eingetragenen Mitarbeiter beispielsweise eine neue Instanz mit Indexnummer versehen.
Beispiel:   F_Main.Employee1 := TEmployee.Create(); // Für Mitarbeiter 1 der eingetragen wurde   F_Main.Employee2 := TEmployee.Create(); // Für Mitarbeiter 2 der eingetragen wurde Weil bei Equals könnte ich ja dann im Prinzip im zweiten Fall einfach:

Delphi-Quellcode:

if Employee1.Equals( Employee2 ) then
  ShowMessage( 'blablabla' );

machen, welches im ersten Fall ja nicht so einfach geht, da ich ja nur eine Instanz habe, nämlich Employee.

Ich hoffe nun ist das verständlicher.

EDIT: Mit der Index nummer meine ich eig nur die Zahl hinter Employee, also Employee1, Employee2 usw.

Für mich ist Methode 1 einfacher und sie funktioniert auch insoweit, nur Frage ich mich, ob man doch Methode 2 anwenden soll.

[Sir Rufo]

Du kannst die StringList-Orgie komplett weg lassen. Anstatt die Werte aus den Edit-Feldern in eine String-Liste zu schreiben um diese dann von der String-Liste in eine neue TEmployee zu schreiben und diese Instanz dann in die Liste,

warum dann nicht gleich die Instanz mit den Werten aus den Edit-Feldern bestücken?

Machst du doch eh schon, nur mit dem Umweg über die String-Liste.

[Asura]

Das mit der TStringliste mache ich nur, weil ich sämtliche Methoden, die zu der Verarbeitung der Instanz Employee zuständig sind, in einer anderen Unit haben wollte. Ich rufe aus der Unit, mit einem Formular, nur die Funktionen auf, die zu der Verarbeitung zuständig sind und es werden hier nur Formatierungsangelegenheiten hinterlegt. Also die Verwaltung der Objektlist findet praktisch nur in der anderen Unit statt.

Ich wollte hier nur die wichtigen "Main-Funktionen" von Formatierung (Wie: Was passiert wenn Edit feld 1 geändert wurde) trennen.

Edit: Achso, ich glaube ich weiß worauf ihr hinaus wollt, das ich selbst in der anderen Unit einfach diese ansprechen kann, oder?

[jaenicke]

Zitat von Asura:

Edit: Achso, ich glaube ich weiß worauf ihr hinaus wollt, das ich selbst in der anderen Unit einfach diese ansprechen kann, oder?

Richtig, und das hat den Vorteil, dass du nicht wissen musst in welcher Reihenfolge die Parameter in die Liste geschrieben werden müssen.
Du kannst aber auch einfach einen Konstruktor erstellen, der die Parameter bekommt.

In beiden Fällen musst du aber nicht erst in Strings umwandeln.