Есть файл или нет ?

← →
demon-777 © (2002-05-26 21:06) [0]

Уважаемые мастера.
Пишу пробную процедуру "типа" Если файл есть то дописать в него с новой строки "ok",
а если нету тогда выдать сообщение.
Вроде всё правильно......только прога постоянно говорит что файла нет(даже если он есть)
В чём трабла ???
Или есть другой, более лучший вариант проверки ?
procedure TForm1.Button1Click(Sender: TObject); var txt:TextFile; begin AssignFile(txt, "c:\Proba.txt"); {$I-} Append(txt); {$I+} if IOResult = 0 then begin Writeln(txt,"ОК"); CloseFile(txt); end else ShowMessage("no"); end;

← →
Sniffer (2002-05-26 21:15) [1]

По-моему, ты рано включил проверку, я бы сделал так :
procedure TForm1.Button1Click(Sender: TObject);
var
txt:TextFile;
begin
AssignFile(txt, "c:\Proba.txt");
{$I-}
Append(txt);
Writeln(txt,"ОК");
if IOResult <> 0 then
ShowMessage("no");
CloseFile(txt);
{$I+}
end;

← →
VID © (2002-05-26 21:17) [2]

ну можно конечно и так:
procedure TForm1.Button1Click(Sender: TObject);
var
txt:TextFile;
begin
IF FileExists("c:\Proba.txt") then
begin
AssignFile(txt, "c:\Proba.txt");
{$I-}
Append(txt);
{$I+}
Writeln(txt,"ОК");
CloseFile(txt);
end
else ShowMessage("no");
end;

← →
hooky-mars © (2002-05-26 21:21) [3]

try
AssignFile(txt, "c:\Proba.txt");
if IOResult = 0 then
begin
Writeln(txt,"ОК");
CloseFile(txt);
end;
except
ShowMessage("no");
end;

Как только я сделал так, то програ стала ругаться на Writeln.
Не знаю что за дела. Но я бы с текстовыми файлами работал по другому

← →
hooky-mars © (2002-05-26 21:31) [4]

Сделай так :
...
var
txt:TStringList;
s:string;
begin
try
txt:=TStringList.Create;
txt.LoadFromFile("c:\Proba.txt");
s:="OK" ;
txt.Text:=txt.Text+s;
txt.SaveToFile("c:\Proba.txt");
except
ShowMessage("no");
end;

шо в все так гемороитесь?!?!?!?!?!
всё очень просто:
function FileExists(const FileName: string): Boolean;

Есть файл или нет ? Найти похожие ветки