Fehler beim Abspeichern und Laden

[Mr Hyde]

ich habe beigebracht bekommen, dass man auf ein Drücken des OK-Buttons beim Lade-/Speicherfenster am genauesten mit
if (SD_Save.Execute=true) then eingehen kann!

@DeddyH: wenn ich Abspeichern möchte mit hilfe des 'speichern unter ...' fenster.

diese quelltext-stelle:

Delphi-Quellcode:

procedure TForm1.Speichernunter1Click(Sender: TObject);
begin
if (SD_Save.Execute=true) then
   begin
    for i:=0 to (SG_Inv.RowCount-1) do
       begin
       inventar[i].Raum:=SG_Inv.Cells[0,i+1];
       inventar[i].Typ:=SG_Inv.Cells[1,i+1];
       inventar[i].System:=SG_Inv.Cells[2,i+1];
       inventar[i].Benutzer:=SG_Inv.Cells[3,i+1];
       inventar[i].IP:=SG_Inv.Cells[4,i+1];
       end;
   pfad:=SD_Save.InitialDir;
    try
     AssignFile(datei,pfad);
     ReWrite(datei);
     u:=0;
     while u<=(length(inventar)-1) do
        begin
        Write(datei,inventar[u]);
        u:=u+1;
        end;
     CLoseFile(datei);
    except
    ShowMessage('Die Datei konnte nicht gespeichert werden. Speicherpfad/Speichername ungültig oder nicht genügend freier Speicherplatz auf dere Festplatte verfügbar.');
    end;
   end;
end;