Ein Array Speichern

[braingrenade]

Moin hsd_Chris !

Wenn ich dich richtig versanden habe sollte folgendes helfen :

Delphi-Quellcode:

Type Tzeug = record
Titel : String[30] //der String muss begrenzt sein , sonst funzt's nich 
Nummer : Integer;
end;

var zeug : array[1..500 ] of Tzeug;



procedure schreiben(pfad : string );
var schreibstream : Tfilestream ;
var i : integer ;
begin
 try
  schreibstream := Filestream.Create(pfad,fmopenwrite or fmcreate);
   // öffnet oder macht eine neue datei mit namen pfad zum schreiben 
  for i := 1 to 500 do
    begin
      schreibstream.writebuffer(zeug[i],sizeof(zeug[i])); 
      //schreibt zeug in die Datei 
    end;
 except showMessage('Hat nich geklappt');

schreibstream.free ; //schließt die datei
end;

procedure lesen(pfad : string);
var lesestream : Tfilestream ;
var i : integer ;
begin
 try
  lesestream := Filestream.Create(pfad,fmopenread);
   // öffnet oder macht eine neue datei mit namen pfad
  lesestream.position := 0; //soll von anfang an lesen 
 for i := 1 to 500 do
    begin
      lesestream.readbuffer(zeug[i],sizeof(zeug[i])); 
      //lies zeug aus die Datei 
    end;
 except showMessage('Hat nich geklappt');

lesestream.free ; //schließt die datei
end;

Hoffe das das auch funktioniert!