ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
  f: hFile;
  st: _OfStruct;
  count: Dword;
  buf: array[0..255] of char;

begin
  fillchar(st,sizeof(st),0);
  f := OpenFile('c:\1.txt',st,OF_READ);
    repeat
      fillchar(buf,sizeof(buf),0);
      ReadFile(f,buf,sizeof(buf),count,nil);
      {...операции с блоком данных buf...}
    until
      count = 0;
  CloseHandle(f);

  while not EOF(f) do
    begin
      while not EOLN(f) do
        begin
          read(f,c);
          {...}
        end;
      {...}
    end;

procedure ReadLNFile(filename: string);
var
  f: THandle;
  count: Dword;
  buf: array[0..255] of char;
  s: string;
begin
  s := '';
  f:= FileOpen(filename, fmOpenRead or fmShareDenyNone);
    repeat
      fillchar(buf, sizeof(buf), 0);
      count := FileRead(f, buf, 256);
      s := s + StrPas(buf);
        while pos(#13#10, s) > 0 do
          begin
            messagebox(0,pchar(copy(s,1,pos(#13#10, s))),nil,0);
            delete(s,1,pos(#13#10, s));
          end;
    until
      count = 0;
  FileClose(f);
  messagebox(0,pchar(s),nil,0);
end;