Delphi-Quellcode:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure CreateTextFile(FileName :
string);
var
f : TEXT;
begin
assignfile(f, FileName);
rewrite(f);
writeln(f, '
Hallo Delphi Praxis!');
closefile(f);
end;
begin
if not FileExists('
db.txt')
then CreateTextFile('
db.txt')
else
begin
// Datei existiert
end;
end.
Zeigt sowohl wie Du eine Textdatei anlegen kannst als auch wie Du testest ob die Datei existiert
. Wenn Fragen sind, frag einfach.