Скачать: CL | DM;

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

← →
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;

---

← →
Sasha9 ©   (2002-05-26 21:35) [5]

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

---

← →
demon-777 ©   (2002-05-26 22:39) [6]

>Sasha9 © (26.05.02 21:35)

Примем к сведениям ;)
Всем спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c