![]() |
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
![]() |
petro_fm |
![]()
Сообщение
#1
|
Гость ![]() |
нужно открыть уже открытый файл,для чтения, пишу вот так :
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 както этот файл открывают ???? а как ???? |
![]() ![]() |
Гость |
![]()
Сообщение
#2
|
Гость ![]() |
var f:textfile;
f1:TFileStream; begin 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 f:=TFileStream.create(fn.Text, fmShareDenyNone); memo1.Lines.LoadFromstream(f); <<<<<< здесь два Access violation ...... |
![]() ![]() |
![]() |
Текстовая версия | 11.07.2025 13:15 |