@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;