Ich versteh den Blockreadbefehl nicht :(

[xy124]

@em-sigma: cool damit gibt er bei der Hallo datei dashier aus:
3
0
0
0
37
0
0
0
2
0
0
0
14
0
0
0
0
0
0
1
84
246
70
1
60
44
56
126


das sieht schon besser aus

@taaktaak
Wie soll ich das anders machen ?
vieleicht so?:
Blockread(f, wert, 1); dann kommt dasselbe wie vorher(mit "i")

so und jetzt hab ich's ohne while gemacht <- das scheint das beste zu sein (auch wenn noch nen paar bytes mit 0 sind das muss wohl so sein!)

^^und es kommt keine Fehlermeldun suuper!

Also nochmal zum mitschreiben:

Delphi-Quellcode:

var i: Integer;
    wert: Array[1..1000] of Byte;
    f: file;
begin
  AssignFile(f,'mmm.lol'); //öffnen der datei wenn ich das richtig verstehe!

  Reset(f,1);       //das macht die datei wahrscheinlich zum lesen fertig, oder?

  while weiter = true do
    Blockread(f, wert, 1);


  CloseFile(f);

  for i:=low(wert) to high(wert) do
    memo1.lines.add(IntToStr(wert[i]));
  form1.Caption := inttostr(i);//so lang ist di datei!
end;