Dateien laden/speichern

madmat · Beiträge: 28

Hi,
mag nach ´ner typischen FAQ Frage klingen, hab aber leider nichts dementsprechendes gefunden.
Ich möchte für ein Programm das in eine Access DB liest und schreibt dem User die Möglichkeit geben die Programm DB zu speichern (ergo irgendowhin zu kopieren) oder zu laden (die vorhandene durch eine User DB zu ersetzen)
Das Speichern wollte ich so umsetzen, leider weiss ich nicht wie man den vom User in einem SAVEDIALOG gewählten Pfad auslesen kann

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var exepfad:  string;  zielpfad: string;
begin
ExePfad := ExtractFilePath(Application.ExeName);
label1.Caption:= exepfad;
savedialog1.execute;

CopyFile(PChar(exepfad+'\text1.mdb'), PChar(zielpfad+'text1.mdb'), true);
end;

Hat jemand ´nen Tip ?

Danke

_________________
mfg
madmat
Life is what happens while you ´re making other plans

tommie-lie · Beiträge: 4373 Ubuntu 7.10 "Gutsy Gibbon"

Bei allen Datei-Dialogen liefert die Property
Files
Die ausgewählten Dateien samt Pfad.
Irgendwo kann man einstellen, daß man nur eine Datei auswählen kann, die steht dann in "SaveDialog1.Files" drin, samt Pfad uns Extension als String

Bye
tommie-lie

edit: Steht aber auch in der Online-Hilfe von Delphi drin. Einfach den Dialog im Form-Editor auswählen und F1 drückeen. Dann hat man oben so eine Zeile mit Methods Properties und Procedures zum Objekt.

_________________
Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk. - Dilbert

cbs · Beiträge: 207 Erhaltene Danke: 1

Tag auch

@tommie-lie: fast erraten, bei einer datei reicht auch SaveDialog1.FileName oder auch SaveDialog1.Files[0];

@madmat: versuchs mal so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var strs: TStringList;
begin
strs:= TStringList.Create;
if SaveDialog1.Execute then begin
  strs.SaveToFile(SaveDialog1.FileName);
end;
strs.Free;
end;

hab ich nur eben so getippt kann also sein das nen tippfehler drin is
wichtig für dich ist dieses SaveDialog1.FileName da steht die datei samt pfad drin die der user gewählt hat

das mit der StringList ist nur nen bsp

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme