[NumLock]

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
type
  rec = record
    qtrue: DWORD;
    qlen: Byte;
    qtxt: array [0..254] of Char;
    len1: Byte;
    txt1: array [0..254] of Char;
    len2: Byte;
    txt2: array [0..254] of Char;
    len3: Byte;
    txt3: array [0..254] of Char;
    len4: Byte;
    txt4: array [0..254] of Char;
    len5: Byte;
    txt5: array [0..254] of Char;
  end;
var
  filestream: TFileStream;
  data: rec;
begin
  Memo1.Lines.BeginUpdate;
  filestream:=TFileStream.Create('c:\Downloads\1obsh.dat', fmOpenRead);
  while filestream.Position<filestream.Size do
  begin
    filestream.Read(data, SizeOf(rec));
    Memo1.Lines.Add(Copy(data.qtxt, 1, data.qlen)+' [ '+IntToStr(data.qtrue)+' ]');
    Memo1.Lines.Add('  '+Copy(data.txt1, 1, data.len1));
    Memo1.Lines.Add('  '+Copy(data.txt2, 1, data.len2));
    Memo1.Lines.Add('  '+Copy(data.txt3, 1, data.len3));
    Memo1.Lines.Add('  '+Copy(data.txt4, 1, data.len4));
    Memo1.Lines.Add('  '+Copy(data.txt5, 1, data.len5));
    Memo1.Lines.Add('');
  end;
  filestream.Free;
  Memo1.Lines.EndUpdate;
end;