Datei erstellen mit Delphi3

Computer: Software & Programmierung Delphi & Pascal
#1

Wenn eine Textdatei im Programmverzeichnis nicht da ist, kann man die automatisch und ohne Benutzereingabe erstellen?

Danke

#2

Hallo !

Ich hoffe, ich verstehe Dich richtig.

Selbstverständlich kannst Du eine Datei erstellen. Dein Programm kann z.B. einfach überprügfen, ob die Datei TEST.TXT existiert, wenn nicht, wird diese neu angelegt und mit irgendetwas „gefüllt“.

Wenn Du willst, dass das autmatisch beim Programmstart geschieht, dann schreibe Deine Routine in das OnCreate Ereignis Deines Hauptfensters.

Daniel

Wenn eine Textdatei im Programmverzeichnis nicht da ist, kann
man die automatisch und ohne Benutzereingabe erstellen?

Danke

#3

Wie wird jetzt die Datei erstellt?

#4

Wie wird jetzt die Datei erstellt?

kleinere Dateien am einfachsten mit der Komponente TMemo. einfach Memo1.SaveToFile() aufrufen. Gibts irgendwo oben in der Leiste.

Längere Dateien auch mit assign, rewrite, writeln und close. Schau mal in die Hilfe.

Chris

#5

Wenn eine Textdatei im Programmverzeichnis nicht da ist, kann
man die automatisch und ohne Benutzereingabe erstellen?

Danke

Hi !
Zum Beispiel so:

procedure TForm1.FormCreate(Sender: TObject);
var
cDatei : String;
Testdatei : TextFile;
begin
GetDir(0,cVerzeichnis);
cDatei := ‚Testdatei.txt‘;

AssignFile(Testdatei, cVerzeichnis + ‚‘ + cDatei);
if not FileExists(cVerzeichnis + ‚‘ + cDatei) then Rewrite(Testdatei);
Append(Testdatei);
Writeln(Testatei, ‚Dies ist einText‘);
CloseFile(Testdatei);
end;

Viel Spaß
Markus

#6

Wenn eine Textdatei im Programmverzeichnis nicht da ist, kann
man die automatisch und ohne Benutzereingabe erstellen?

Danke

Hi,

ganz einfach im OnCreate-Event von der Form, und zwar so (anders als die anderen Beispiele):

const dateiname = 'test.txt';




procedure TForm1.create (Sender: TObject);
var file:TStringList;
 pfad:string;
begin
pfad:=ExpandFileName(TApplication.ExeName);
{ anders als getdir, funktioniert das immer zuverlässig }
If not(fileexists(pfad+dateiname))
then begin
 file:=TStringList.create;
 file.add('Dies ist der Text!');
 file.savetofile(pfad+dateiname);
 file.free;
 end;
end;

Gruß Thomas

#7

Danke an alle, die geantwortet haben.
Danke an alle, die geantwortet haben, ich probiere die Lösungen aus, wenn ich Zeit habe.