Delphi-Quellcode:
procedure TForm6.FormCreate(Sender: TObject);
var sDir :
string;
f : TEXTfile;
begin
sDir := '
c:\DB';;
//if sDir path does not exist, create it!
if NOT DirectoryExists(sDir)
then
ForceDirectories(sDir);
if not FileExists('
c:\db\DB.txt')
then
begin
//Datei existiert nicht --> erstellen
assignfile(f, '
c:\db\DB.txt');
rewrite(f);
closefile(f);
end
else
begin
// Datei existiert
end;
end;
Ganz ehrlich und das soll jetzt nicht böse klingen, aber offensichtlich beherrscht Du nicht mal die Delphi Grundlagen. Magst Du Dir nicht erstmal die Grundlagen mit Hilfe eines Buchs oder nem Online Tutorial aneignen bevor Du wirklich anfängst zu programmieren? Weil ich glaub nicht, daß Dir das was bringt, wenn ich Dir da den Code tippe so das er das macht, was Du wirklich willst
.