Code:
for( j = 0; i < 0x1000 && j < sizeof(bla) - 1; i++, j++)
sollte in etwa so übersetzt werden.
Delphi-Quellcode:
j:=0;
while (i < $1000) and (j < sizeof(bla)-1) do
begin
inc(i);
inc(j);
end;
Wenn der Datei Type = char oder Byte ist,
kann dort auch mit Write hineingeschrieben werden.
Delphi-Quellcode:
Datei : File of Char;
c : Char;
..
write(datei,c)
Grüße
Klaus