Текущий архив: 2002.07.25;
Скачать: CL | DM;
Вниз
Чтение файла Найти похожие ветки
← →
Andy BitOff (2002-07-12 15:43) [0]Здравствуйте.
Задача в следующем. Надо прочитать в переменную типа string, весь текстовой файл (файл < 1Mb).
Вот, что я написал:
var
...
OpisFile:string;
opfi:PChar;
begin
...
Hf:= FileOpen(selfile,fmOpenRead or fmShareDenyWrite);
size:=GetFileSize(Hf,nil);
GetMem(opfi,size);
FileRead(hf,OpFi,size);
OpisFile:=OpFi;
...
Так вот. Не работает :( На последней строке вываливается, программа выполнила не допустимую операцию ... Подскажите, пожалуйста, в чем моя ошибка, или свой вариант решения задачи.
← →
BAY © (2002-07-12 15:46) [1]OpisFile := StrPas(OpFI)
← →
MBo © (2002-07-12 15:48) [2]OpisFile:string;
begin
...
Hf:= FileOpen(selfile,fmOpenRead or fmShareDenyWrite);
size:=GetFileSize(Hf,nil);
SetLength(OpisFile,size);
FileRead(hf,OpisFile[1],size);
...
← →
Viewer (2002-07-12 15:59) [3]Или
fsR: TFileStream;
len: int64;
s: string;
..
fsR := TFileStream.Create(FileName,fmOpenRead);
len := fsR.Size;
SetLength(S,len);
fsR.Read(S[1],cnt);
...
if fsR <> nil then FreeAndNil(fsR);
Страницы: 1 вся ветка
Текущий архив: 2002.07.25;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.009 c
