Entschuldige, aber ich bin etwas schwer von Begriff.
Die Deklaration ist jetzt klar und ohne Fehlermeldung, ich habe aber Verständnisschwierigkeiten, was die Procedure eigentlich macht und wann Sie aufgerufen werden muss. Wie wird der Item denn jetzt ermittelt? Kannst Du mir noch mit einem kleinen Beispiel helfen?
So sieht das jetzt bei mir aus:
In einer
Unit Main wird der Record mit Daten gefüllt, dort möchte ich den Record aber ja nicht über die Bezeichnung sondern über eine Zahl (Item) ansprechen:
Delphi-Quellcode:
unit uMain;
interface
uses
uDefinitionen;
implementation
var
Mitgliedsdaten: TStammdaten;
begin
Mitgliedsdaten.Nachname := '
Maier';
//so nicht gewünscht
Mitgliedsdaten.Item[2] := '
Maier';
//so ähnlich soll es aussehen
end;
hier stehen die Deklarationen
Delphi-Quellcode:
unit uDefinitionen;
interface
type
TStammdatum =
record
TITEL :
String[20];
NACHNAME :
String[40];
VORNAME :
String[28];
GEBURTSNAME :
String[40];
GEBURTSDATUM :
String[12];
GESCHLECHT :
String[1];
STRASSE :
String[40];
PLZ :
String[7];
ORT :
String[40];
end;
type
TStammdaten =
class
Items:
Array of TStammDatum;
procedure add(wert: TStammdatum);
end;
implementation
procedure TStammdaten.add(wert:TStammdatum);
var
pos: Integer;
begin
pos := Length(items) + 1;
SetLength(Items, pos);
Items[pos] := Wert;
end;
end.