Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Datei mit Dateiname anhand von Edit-Feld (https://www.delphipraxis.net/57766-datei-mit-dateiname-anhand-von-edit-feld.html)

Dante 26. Nov 2005 10:11


Datei mit Dateiname anhand von Edit-Feld
 
Hallo zusammen. In nem anderem Delphi Forum (dsdt) wurd ich vom mod angeflamed wegen so einer Frage, ich hoffe hier wird einem auch bei einfachen Sachen geholfen. Echt simpel, aber ich finds einfach nirgens:

Ich will das eine neue Datei erstellt wird die den Inhalt von Memo1 hat. Soweit komm ich noch:
Delphi-Quellcode:
Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+ 'Test.txt');
Jetzt hätte ich aber gerne das die Datei nicht Test.txt sondern (Edit1.Text).txt

Hab schon einige Formulierungen durchprobiert aber nix klappt. Kann mir jemand schnell helfen?

Matze 26. Nov 2005 10:14

Re: Noobfrage 1: Datei mit Dateiname anhand von Edit-Feld
 
Hallo und herzlich willkommen.

Hier wird keiner ohne Grund "angeflamed" ;)
Versuche einmal:
Delphi-Quellcode:
Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + Edit1.Text + '.txt');

Nachtrag 1: Soll der Inhalt des Memos gespeichert werden, musst du SaveToFile verwenden, anstelle von LoadFromFile.
Nachtrag 2: Das "Nobbfrage 1:" sollte nicht im Titel stehen, das stört etwas. Entferne es bitte über den "edit"-Button oben rechts neben dem ersten Beitrag, danke.

himitsu 26. Nov 2005 10:18

Re: Noobfrage 1: Datei mit Dateiname anhand von Edit-Feld
 
An den Inhalt von Edit1 kommst du ja per Edit1.Text (soweis ist es schon richtig), dieses Mußt du dann nur noch rictig einfügen. ^^

Delphi-Quellcode:
Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + Edit1.Text);
Und wei die jetzt das .txt dort anhängst, das kommt auf dich an.

Entwerder du läßt den vollständigen Dateineamen, samt der Dateiendung in des Editfeld eintragen und übergibst den Dateienam dann ungeprüft, dann kannst du es so lassen.

Wenn dea .txt nie im Edit1 drinsteht, dann so:
Delphi-Quellcode:
Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + Edit1.Text + '.txt');
Und wenn es nicht sicher ist, oder du auch falsche Dateiendungen loswerden/ändern möchtest, dann hilft die ChangeFileExt weiter.

Delphi-Quellcode:
Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + ChangeFileExt(Edit1.Text, '.txt'));
[edit]
stimmt Mätzchen ... auch in SaveToFile geändert hab ^^


@dante: dieses "Noobfrage x: " kannst du ruhig weglassen ;)
Erstens wird dadurch der Titel kürzer und übersichtlicher und zweiten gibt es hier genug Fragen dieser Art und wenn das alle so machen würden ... :wall:

Dante 26. Nov 2005 10:25

Re: Noobfrage 1: Datei mit Dateiname anhand von Edit-Feld
 
Lol, ja sowas hab ich mir schon gedacht. Danke sehr, jetzt weiss ich endlich wie sowas formuliert wird (hätt ich mir auch denken können das dann nur das .txt wie normalen text angehängt wird aber naja).

Ihr seid ja nett hier
Nochmal Danke!
*sichverneigt*


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz