Niby proste a jednak dziwe. Otóż potrzebuje pliku tekstowego w którym w kolejnych liniach wyświetlone są liczby od 1 do 1000. Jednak gdy próbując to
zrobić w Delphi 7 Personal, spotykam się z problemem.
ostatnie linijki wyglądają tak:
...
992
993
994
99
i koniec. W hexedytorze plik wygląda, jakby coś go zżarło:
000012E0 39 38 39 0D 0A 39 39 30 0D 0A 39 39 31 0D 0A 39 989..990..991..9
000012F0 39 32 0D 0A 39 39 33 0D 0A 39 39 34 0D 0A 39 39 92..993..994..99
Gdy zmniejszam ilość liczb do wyświetlenia do 10, okazuje sie, że utworzony plik jest pusty! Czy ktoś wie, dlaczego? Może ktoś mi powie, co jest nie tak z kodem:
uses
SysUtils;
var f : TextFile;
var x : Integer;
begin
AssignFile(f, 'abc.txt');
Rewrite(f);
x := 1;
while x <= 1000 do
begin
writeln(f, IntToStr(x));
inc(x);
end;
Po przełożeniu go na php wszystko działa. Ten sam problem występuje też w BP7.
PS.
Program musi być napisany pod DOSa.