für was ist f ?
wie kann ich für
db.txt einen ordernpfad angegen
CreateTextFile wird als fehler angezeigt ... sieht momentan so aus
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);
assignfile(f,
DB.txt'
);
rewrite(f);
closefile(f);
if not FileExists('
DB.txt'
)
then createtextfile('
DB.txt'
)
else
begin
// Datei existiert
end;
end;
funzt trozdem nicht