Daten behalten in Delphi

[Mithrandir]

Macht der Gewohnheit. :mrgreen:

[patti]

Alternativ kannst du deine Daten auch in einem Stream speichern. Entsprechende Tutorials lassen sich mit Sicherheit über die DP finden.

[DeddyH]

Zitat:

Zitat von Daniel G

Macht der Gewohnheit. :mrgreen:

[OT] Macht ja nix :mrgreen: [/OT]

[Blackheart]

Meiner Ansicht der beste Ini Tutorial

[Arathok]

ok danke :) wer nochwas hat einfach her damit.
Danke für die schnellen Antworten :)
Mal schauen ob sich as tut.

[Aphton]

Vlt. als ne Anleitung, wie du vorgehen solltest

Speichern:

Code:

1. Lege eine Datei an
2. Du schreibst deine Daten in die Datei, indem du...
3. Mit zwei Schleifen alle Elemente des Arrays durchgehst
4. -1. Die Länge des Strings (DWord)
   -2. Den eigentlichen String
   -- in die Datei schreibst
5. Schließe die Datei

Auslesen:

Code:

1. Öffne die Datei
2. Mit zwei Schleifen gehst du alle Elemente des Arrays durch
3. -1. Zuerst liest du einen DWord ein - gibt die Länge des anstehenden Strings an (siehe Speichern, Punkt 4.1)
   -2. Anschließend den ganzen String (du liest X Bytes ein, wobei X für die Länge des Strings steht)
x. Schließe die Datei

Hoffe ich konnte damit helfen
MfG

[Amateurprofi]

Zitat:

Zitat von Arathok

es ist standart mäßig nach

array[1..12] of array[1..31] of string; aufgebaut jo.

jetzt brauch ich nur noch hilfe wie genau ich den record abspeicherer oder ob es nicht vielleicht noch anders geht...

Vielleicht so :

Delphi-Quellcode:

var data:array[1..12] of array[1..31] of string;

PROCEDURE SaveData;
var f:File; m,d,len:integer;
begin
   AssignFile(f,'data.bin');
   Rewrite(f,1);
   for m:=1 to 12 do
      for d:=1 to 31 do begin
         len:=Length(data[m,d]);
         BlockWrite(f,len,SizeOf(Len));
         if len>0 then BlockWrite(f,data[m,d,1],len);
      end;
   CloseFile(f);
end;

PROCEDURE LoadData;
var f:File; m,d,len:integer;
begin
   AssignFile(f,'data.bin');
   Reset(f,1);
   for m:=1 to 12 do
      for d:=1 to 31 do begin
         BlockRead(f,len,SizeOf(Len));
         SetLength(data[m,d],len);
         if len>0 then BlockRead(f,data[m,d,1],len);
      end;
   CloseFile(f);
end;