savedialog/opendialog

[ichbins]

Delphi-Quellcode:

//Speichern:
var
  f:file of tdaten;
begin
  if not savedialog1.execute then exit;
  assignfile(f,savedialog1.filename);
  rewrite(f);
  for i:=1 to 100 do
    write(f,eintrag[i]);
  closefile(f);
end;

//Laden:
var
  f:file of tdaten;
begin
  if not opendialog1.execute then exit;
  assignfile(f,opendialog1.filename);
  filemode:=0;
  reset(f);
  for i:=1 to 100 do
    read(f,eintrag[i]);
  closefile(f);
end;

Daten darf keine Strings enthalten. Falls Strings enthalten sind, ersetzte sie durch
Array[0..255] of char Du kannst genauso darauf zugreifen.