Wie eigenen Record definieren und verwenden?

[dominikkv]

Delphi-Quellcode:

type 
  TMyRec = class(TObject)
  private
    FValue: Integer;
    FText: String;
    FStringList: TStringList;
    function getList(i: Integer): string;
    procedure SetList(i: Integer; const Value: string);
  public
    property Value: Integer read FValue write FValue;
    property Text: string read FText write FText;
    property SringList[i: Integer]: string read getList write SetList;
    constructor Create;
    destructor Destroy;
end;





constructor TMyRec.Create;
begin
  inherited;
  FStringList := TStringList.Create;
end;

destructor TMyRec.Destroy;
begin
  FreeAndNil(FStringList);
  inherited;
end;


function TMyRec.getList(i: Integer): string;
begin
  if I < FStringList.Count then
    Result := FStringList[i] else
    Result := '';
end;

procedure TMyRec.SetList(i: Integer; const Value: string);
begin
  if i < FStringList.Count then
    FStringList[i] := Value else
    FStringList.Add(Value);
end;

beim integer macht das der compiler für dich.

[Christian Seehase]

Moin Tony,

nicht jedes Feld in einem Objekt ist ein Zeiger, sondern jede Variable, die vom Typ einer, beliebigen, Klasse ist, ist ein Zeiger.

Beispielsweise hast Du in vielen Programmen ein Formular.
Als Standard wäre das Form1, vom Typ TForm1, wobei Form1 die Adresse der Instanz von TForm1 enthält, nachdem das Formular erzeugt wurde. Form1 ist also ein Zeiger, der "nur" auf die Instanz der Klasse TForm1 verweist.
Mit Hilfe von SizeOf kannst Du Dir anzeigen lassen, wieviel Platz eine Variable belegt. Bei Form1 wäre das Ergebnis 4, da ein Zeiger bei einem 32-Bit Compiler eben 4 Byte gross ist. Es spielt dabei also keine Rolle, wieviele Komponenten, Felder oder sonstige Daten das Formular enthält. Das meinte ich mit der Compilermagic. Man kann Form1 direkt verwenden, ohne sich darum kümmern zu müssen, dass es sich eigentlich um einen Zeiger handel. Der Compiler "weiss" bei einer Variablen, die eine Klasse als Typ hat, dass es sich um einen Zeiger handelt, und man muss sich nicht darum kümmern, wenn man, z.B., auf Felder zugreifen will. (Stichwort: Dereferenzieren, Symbol: ^)

Bei einem String handelt es sich zwar nicht um ein Objekt, aber eine Stringvariable liefert bei SizeOf auch immer 4 zurück, da es sich auch hier um einen Zeiger handelt, nur übernimmt hier die interne Speicherverwaltung das Reservieren und Freigeben des erforderlichen Speichers (die ShortStrings lasse ich hier einmal aussen vor).
Wenn man die Adresse, die eine Stringvariable enthält als Nullpunkt ansieht, "weiss" die Speicherverwaltung, dass sich an der Adresse minus 4 die Länge, und an der Adresse -8 ein Referenzzähler für den String befindet, und an der Adresse selber der eigentliche Inhalt des Strings beginnt.
Die Speicherverwaltung sorgt auch dafür, dass ein solcher String immer mit #00 beendet wird.
So ist es also kein Problem mittels eines einfach Typcasts aus einem String ein PChar zu machen, und diesen so, z.B., direkt in einer API-Funktion zu verwenden, die ja mit den delphitypischen Strings nichts anfangen können.
Da ein String eigentlich auch nur ein Zeiger ist, kann man also auch einen Record, der einen String enthält auch nicht so einfach in einer Datei speichern, sondern muss sich dafür etwas einfallen lassen.

Zeiger braucht man eigentlich immer dann, wenn die Datenmenge, die sich dahinter verbirgt, nicht festliegt.
(es mag zwar auch Klassen geben, bei denen sich die Grösse nicht verändert, da dies in der Masse der Fälle aber nicht der Fall ist, lohnt es sich nicht für diese einen Sonderfall zu generieren.)

[TonyMontana]

@dominikkv: Danke für die Mühe! So funktioniert es jetzt ohne Zugriffsverletzungen oder ähnliches

@Christian Seehase: Aha, so langsam wird mir das alles etwas klarer, danke für die gute Erklärung. Da du es angesprochen hast, wie speichere ich einen Record bzw. ein Objekt in eine Datei? Dazu müsste ich ja wissen, wie viel Speicher für das Objekt reserviert worden ist. Und SizeOf liefert ja dann nur die Größe des Pointers selbst, also 4 Bytes...
Muss man dann den Pointer auf die Klasseninstanz irgendwie dereferenzieren um dann mit SizeOf die Größe zu ermitteln? Sonst habe ich nichts brauchbares in der Delphi Hilfe dazu gefunden, ich weiß aber auch nicht genau wonach ich suchen sollte.
Jedenfalls wäre es nicht unpraktisch, wenn ich Objekte einfach speichern und wieder laden könnte.

Bis hierhin schonmal DANKE!

[QuickAndDirty]

@TonyMonatna:
Du must ja keine Typisierte Datei nehmen und Dateistreams sin dein Thema um das ch mich später kümmern würde.
Speicher es doch einfach in eine Text Datei.

Delphi-Quellcode:

Procedure Save;
var f:textFile;
Begin
  AssignFile(f,c:\'bla.cfg');
  Rewrite(f); // oder Append

  WriteLN(f,Myrec.text);
   // &c.

  CloseFile(f);
end;

zudem können alle Objekte die von mit der Klasse TPersistent Verwand sind sich selbst in eine Datei speichern und von dort laden.

Lies dir dazu einfach mal die Funktionen durch:
TStringlist.savetofile
TStringlist.loadfromFile

[TonyMontana]

@QuickAndDirty: Danke für deinen Vorschlag. Aber mich würde es dennoch mal interessieren, wie ich herausfinden kann, wie viel Speicher ein Objekt belegt und wie ich das ganze dann in einem Rutsch speichern kann, die Klasse kann ja mal sehr viele Felder enthalten und dann ist das manuelle speichern irgendwann sehr umständlich.
Sind Streams dafür geeignet? Ich habe mir auch kurz ein tutorial angesehen zum Thema typisierte Dateien und speichern, dort steht allerdings dabei, dass man nur ShortStrings verwenden kann und zB Integer, damit die Länge eines Datensatzes klar ist. Muss ich dann die Länge eines Dynamischen Objekts selbst berechnen um es speichern zu können?

[DeddyH]

Zitat von TonyMontana:

Muss ich dann die Länge eines Dynamischen Objekts selbst berechnen um es speichern zu können?

In einer typisierten Datei ist jedes Element genau gleich groß, also wirst Du so nicht weiter kommen.

[TonyMontana]

Zitat von DeddyH:

In einer typisierten Datei ist jedes Element genau gleich groß, also wirst Du so nicht weiter kommen.

Ja, das ist schon klar. Aber ich möchte ja auch wissen, wie ich ein Objekt speichern kann, von dem ich zur Entwicklungszeit die Größe noch nicht weiß. Es muss doch möglich sein, herauszufinden, wie viel speicher ein Objekt aktuell belegt oder nicht?
Wie gesagt, SizeOf funktioniert laut Christian Seehase nicht, da man dann die Größe des Pointers auf die Klasseninstanz erhält ...
Und die ist nun mal 4 Bytes unabhängig davon, wie viel Speicher von dem Objekt belegt wird.