Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
ВнизЕсть файл или нет ? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c