Praca so subormi – Pascal – Fórum – Programujte.com

ahoj,
mam taku otazocku tykajucu sa pascalu, totiz:

v skole sme sa ucili pracovat so subormi cez funkcie ako je assign(),....
ja vsak pouzivam freepascal, takze to nefunguje(myslim freepascal je na vine, nie ja ;-])
tak som si nan nete nasiel nieco taketo: http://www.freepascal.org/docs-html/rtl/sysutils/filecreate.html
a ostatne fcie spojene s pracou so subormi...(dufam, ze to nieje binarne zpisovanie do suboru, pls opravte ma ak sa mylim)

aa skusil som taku vecicku, ze:

Uses sysutils, crt;



Var I,J,F : Longint;



Begin



  F:=FileCreate ('testik.dat');

  If F=-1 then

    Halt(1);

  For I:=0 to 100 do begin

    writeln(I , '::', ord(I), '::', chr(I));

    FileWrite(F,chr(I),SizeOf(i));

    FileWrite(F,ord(I),SizeOf(i));

    FileWrite(F,I,SizeOf(i));

  end;

  FileClose(f);



end.

Freepascal umí Assign a spol. úplně stejně jako Turbo pascal. Dokonce i pro dlouhé názvy souborů. Chyba je tedy mezi židlí a klávesnicí :-)
Co se týče tvého postupu - uvědom si, že používáš funkce určené pro binární, nikoliv textové soubory. Taky mi není úplně jasné, co po svém programu chceš. Jestli prostě vypsat čísla od 0 do 100, tak musíš provést konverzi z typu Longint na typ String:

uses sysutils, crt;

Var I,F : Longint;

    s:string;



Begin

  F:=FileCreate ('testik.dat');

  If F=-1 then Halt(1);



  For I:=0 to 100 do begin

    s:=IntToStr(i)+#13#10;

    FileWrite(F, s[1], Length(s));

  end;



  FileClose(f);

end.

To Laaca : mno spíš myslim že chtěl aby se mu to zapisovalo do textaku takže normalně požij assign(); potom ho vytvoř ( rewrite(); ) a zapisuj pomocí write(jmeno souboru,'text ktery se zapise');

mělo by to vypadat asi takhle ;)

uses crt;

var soubor:text;

      cislo:byte;

const max = 100;



begin

assign(soubor, 'C:\Documents and Settings\*JMENO UZIVATELE*\Desktop\cisla.txt');

rewrite (soubor);

cislo:=0;



repeat

cislo:=cislo+1;

write(soubor,'  ',cislo);

until cislo = max;



close(soubor);

writeln('HOTOVO');

repeat until keypressed;

end.