Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
24. Jul 2004
pfad := extractfilename(savedialog1.FileName);
AssignFile(F, Pfad + '.txt');
Und wo denkst du landet die Datei, wenn du nur den Dateinamen nimmst, aber ohne Pfadangabe? :gruebel:
Aus: "d:\eigene Daten\Bilder\Test.txt" wird bei dir "Test.txt".
Desweiteren kann man beim SaveDialog eine standard Dateinamenerweiterung angeben, die genommen wird, wenn der Benutzer keine angibt. Das...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
24. Jul 2004
Ach ja.
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
F: TextFile;
begin
AssignFile(F, 'x:\test.txt');
{$I-}
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Luckie,
24. Jul 2004
Wie wäre es mit ausprobieren? :roll: