Einzelnen Beitrag anzeigen

Rob.BloodWorks

Registriert seit: 15. Okt 2010
8 Beiträge
 
Delphi 6 Personal
 
#4

AW: Adressbuch speichern und laden

  Alt 17. Okt 2010, 10:07
hi,

danke schon mal für die tipps.

und dann das mit dem record personID is das alles was noch zum speichern fehlt?
und wenn ja könnte einer mit bitte ein beispiel geben wie ich sowas einfüge?

Delphi-Quellcode:
procedure TForm1.Speicher18Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
begin
 if FileExists(SaveDialog1.FileName)Then
  if MessageDlg('The File'+ SaveDialog1.FileName
     +'already exists. Overwrite?',
     mtConfirmation,[mbYes, mbNo],0)<> mrYes Then
    Exit;
end;

end;

procedure TForm1.Laden19Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
     TRY
       OpenDialog1.Filename;
     EXCEPT
       ShowMessage ('Fehler beim Laden der Datei!');

     END;
    end;
danke für weitere hilfe
  Mit Zitat antworten Zitat