[reqyz]

Добрый день, не могу разобраться никак в чём косяк( может кто поймёт причину?

Код:

  if(OpenDialog1.Execute)then
  begin
    in_FHandle:=CreateFile(PChar(OpenDialog1.FileName), GENERIC_READ,FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    in_Size:=SetFilePointer(THandle(in_FHandle), 0, nil, ord(soEnd));
    N:=Min(100,in_Size);
    GetMem(buffer,N);
    ReadFile(in_FHandle,buffer^,N,res,nil);
    Memo1.Text:=buffer;
  end;

хэндл находит, размер не нулевой, правильный, а в буфер всегда ноь считывается( без понятия почему.. помогите

разобрался, не хватало строки SetFilePointer(in_FHandle,0, nil, FILE_BEGIN);