Problem mit abspeichern von Record

[DeddyH]

Delphi-Quellcode:

procedure TForm1.SpeichernClick(Sender: TObject);
var i: integer;
   myFile : File of TDaten;
   datei: tdaten;
begin
  if savedialog1.Execute then
  begin //Blockanfang
    AssignFile(myFile, savedialog1.FileName);
    ReWrite(myFile);
    for i  := 1 to 19 do
      begin //innerer Block Anfang
        with findcomponent('Edit'+inttostr(i)) as TEdit do
        begin
          if (not fileexists(text)) then
            break;
          datei.bilder[i].LoadFromFile(text);
          if (text = '') then datei.bilder[i] := nil;
        end;
        Write(myfile, datei);
      end; //innerer Block Ende
    CloseFile(myFile);
  end; //Blockende
end;

Das 2. Problem wird sein, dass nicht die Grafiken, sondern die Objektreferenzen (= Zeiger) gespeichert werden, so dass Du später nichts damit anfangen kannst.

[edit] Nun hab ich selbst einen Block übersehen [/edit]