- Код: Выделить всё
var
fn: String;
ptr: Pointer;
f, size, len: Integer;
begin
fn := BuildFileName(FPath, AName);
f := FileOpen(fn, fmOpenRead);
size := FileSeek(f, 0, fsFromEnd);
FileSeek(f, 0, fsFromBeginning);
ptr := GetMem(size);
if (ptr = nil) then
begin
FileClose(f);
Result := nil;
Exit;
end;
len := FileRead(f, ptr, size);
if (len <> size) then
begin
FreeMem(ptr);
FileClose(f);
Result := nil;
Exit;
end;
FileClose(f);
до строчки FileRead все пашет, дальше вылетает access violation
адрес ... функция fpc_ansistr_incr_ref
Что это за хрень и как с ней бороться, подскажите плиз.