1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

type
  TEntries = packed record
              name,
              genre,
              autor: string;
              price,
              count: Integer;
             end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F    : File;
  Entries : array of TEntries;
  i, count  : Integer;

begin
  AssignFile(F, 'J:\1.txt');
  ReWrite(F, 1);

    setLength(Entries,21001); // 21000 Einträge dann

  for i:=1 to length(Entries)-1 do begin
    Entries[i].name := 'Name'+inttostr(i);
    Entries[i].genre := 'Genre'+inttostr(i);
    Entries[i].autor := 'Autor'+inttostr(i);
    Entries[i].price := i*1;
    Entries[i].count := i*10;
  end;  // Nur zum Testen füllen

  BlockWrite(F, Entries, length(Entries));
  CloseFile(F);

  FileMode := fmOpenRead;
  Reset(F, 1);
  BlockRead(F, Entries, trunc(sizeof(Entries)/sizeof(TEntries)), count);  // Fehlerzeile bei 20000
  //for i := 1 to length(Entries)-1 do
  //  ShowMessage(Entries[i].name);
  
ShowMessage(inttostr(length(Entries)-1)+' Einträge');


  CloseFile(F);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

type
  TEntries = packed record
              name,
              genre,
              autor: string[255];
              price,
              count: Integer;
             end;