Открыть уже открытый файл, Открыть уже открытый файл Опции

[petro_fm]

нужно открыть уже открытый файл,для чтения, пишу вот так :
AssignFile(f,fn.Text);
FileMode:=fmShareDenyNone ;
{$I-}
reset(f);
{$I-}

err:=IOREsult;
if err<>0 then begin
ShowMessage('Error open file # '+IntToStr(err));
exit;
End;
возвращает ошибку №32
FileMode пробовал разные, все равно не открывает , но
команды type, copy както этот файл открывают ???? а как ????

[Гость]

ооооо, Всемогущий ALL помоги незнающему, подскажи как же все таки type файлик открывает а я немогу !!!!

[Malice]

ооооо, Всемогущий ALL помоги незнающему, подскажи как же все таки type файлик открывает а я немогу !!!!

Вот так попробуй:

var f:integer;

f:=fileopen('\....\1cv7.mlg',fmOpenRead);

fileread (f,буфер,размер);

FileClose(f);

Чтобы читать построчно только придется немного похлопотать

Упс, проверил - не работает..

Сообщение отредактировано: Malice - 22.01.2007 15:43