Datei laden

[Cyf]

(mal reformatiert)

Delphi-Quellcode:

//Speichern unter - Funktion einrichten
procedure TForm1.Speichernunter1Click(Sender: TObject);
begin
  if SaveDialog1.execute then
  begin
    assignfile (Datei, SaveDialog1.FileName);
    rewrite (Datei);
    writeln(Datei,editpalettenlast.text);
    writeln(Datei,editlagerhoehe.text);
    writeln(Datei,editregallaenge.text);
    writeln(Datei,editpalettenanzahl.text);
    writeln(Datei,editzellenbreite.Text);
    writeln(Datei,edittyp.Text);
    writeln(Datei,editkosteni.Text);
    writeln(Datei,editkostenu.Text);
    writeln(Datei,editgesamtkosten.Text);
    writeln(Datei,editkostenpropalette.Text);
    CloseFile(Datei);
  end;
end;


procedure TForm1.ffnen2Click(Sender: TObject);
var Inhalt:string ;
begin
  if opendialog1.execute then
  begin
    assignfile(Datei,opendialog1.filename);
    reset(Datei);
    //hier Überprüfung auf Eof einbauen
    readln(Datei,Inhalt);
    CloseFile(Datei);
  end;
end;

In Delphi existiert die Funktion function Eof(var F: file): Boolean; damit solltet ihr (wenn ihrs komplett einlesen wollt) in einer Schleife (while) jedes mal prüfen, ob das Dateiende erreicht ist, und ansonsten eine weitere Zeile in einen Buffer einlesen und den dann nach kompletten Einlesen anzeigen.
Hoffe das hat euch geholfen.