file of dynamic array of trecord = sdfjkgjsdkfhklgshifg578o

[chillywilly]

Hiho erstma,
wie der Titel ja schon sagt geht es ums auslesen und schreiben eines dynamischen arrays (also ohne feste länge) eines TRecords.
in diesem Fall habe ich in meinem Record 3 Felder vom typ integer, string, string.

mein problem ist nun das zur programm laufzeit die länge des arrays verändert wird. ich will nun zb beim beenden des programms dieses array in einer datei des selben typs absspeichern und bei neustart des programms mein array mit SELBER LÄNGE WIE in das array laden.

hoffe ihr könnt erahnen was ich meine.

die deklaration sieht bei mir so aus:

var list : array of TMyList;
flist: file of TMyList;


help plz ^^

mika

[ichbins]

äh, was genau willst du jetzt machen? wenn ich es richtig verstanden habe:

Delphi-Quellcode:

var
  a:array of tmylist;


// formcreate
var
  f:file of tmylist;
  i:integer;
begin
  assignfile(f,filename);
  reset(f);
  setlength(a,filesize(f));
  i:=0;
  while not eof(f) do begin
    read(f,a[i]);
    inc(i);
  end;
  closefile(f);
end;

[turboPASCAL]

Speichere doch am Anfang der Datei die Anzahl der Einträge im Array. Bei dem Auslesen der Datei kannst du dann an Hand dieser Zahl das Dyn. Array setzen.

Das setzen der Grösse des Arrays nach jedem einlesen des Datensatzes (Zeilenweise) ist auch eine Möglichkeit. (size = size + 1)

[Edit] nanu, kein roter Kasten ?

[Christian Seehase]

Moin Mika,

das wird so nicht gehen, da Strings nur Pointer sind, Du würdes also nur den Pointer speichern, nicht den Inhalt des Strings.
Um Strings speichern zu können, wirst Du nicht darum herumkommen diese einzeln zu speichern (z.B. erst einmal die Länge, 4Byte, dann den Wert).

[shmia]

Da dein Record Daten mit variabler Länge enthält (Datentyp string), solltest du dich von der Idee, die Daten als "file of TRecord" zu speichern ganz verabschieden.

Du könntest die Daten stattdessen als INI-Datei oder auch als XML-Datei speichern.
In deinem Fall wäre auch eine CSV-Datei geeignet.

[chillywilly]

danke euch! hat geklappt und mein prog läuft!