speichern einer datei unter entsprechendem namen

[alexkoe]

hallo nochmal.

habe noch ein weiteres problem.
ich möchte eine datei( eine rechnung) unter der eingegebenen rechnungsnummer speichern.
wie geht das?
danke im voraus!

mfg alex

p.s.:ich finde das forum spitze und möchte nochmal danke sagen :-D

[XeRo]

Wie liegt die Datei vor?
Wie verwendest du die Datei?
Ist die Datei auf der Festplatte oder erstellst du sie in deinem Programm?
Gib mal etwas Hintergrundinfo (evtl. Source) an.

[alexkoe]

also die datei is ne txt datei die in dem selben verzeichniss is wie das proggi
sie wird vom programm selber erst erstellt und soll halt unter einen im programm eingegebenen namen gespeichert werden

source:

Zitat:

procedure TForm1.Button4Click(Sender: TObject);
var rech:TStringlist; z: integer;
begin
rech:=TStringlist.create;
z:=0;
repeat
rech.assign(listbox1.items);
z:=z+1;
until z=1;
rech.savetofile('D:\155th\moep.txt');
end;

so un statt

Zitat:

rech.savetofile('D:\155th\moep.txt');

will ich halt einen namen der zb in einem editfeld steht...

danke

[Angel4585]

rech.savetofile(Edit1.Text) so z.B.?

Frage, wozu das:

Delphi-Quellcode:

z:=0; 
repeat 
rech.assign(listbox1.items); 
z:=z+1; 
until z=1;

:gruebel:

Delphi-Quellcode:

rech.Assign(Listbox1.Items)

sollte eigentlich reichen

[XeRo]

Verwende doch einfach die RenameFile() oder MoveFile() Funktion.

[edit]
CopyFile(); wäre auch eine möglichkeit...

Anwendung: CopyFile('D:\155th\moep.txt',Edit1.Text);
glaub ich zu mindestens :gruebel:
[/eidt]