no netypovy soubor neni moje silna stranka
ale diky
zkusim se s tim porvat
martin
----- Original Message -----
> ahoj
> nesledoval jsem to od zacatku, ale myslim ze to co potrebujes je zapis do
> netypovyho souboru
> niz sem neco napsal tak by to melo jit
> martin
>
> <priklad>
> program pokus;
> var f:file;
> s1,s2:string;
> delka:byte;
> zapsano:byte;
> begin
> s1:='ab';
> s2:='dcba';
>
> assign(f,'f.str');
> rewrite(f,1);
> delka:=length(s1)+1;
> blockwrite(f,delka,sizeof(byte),zapsano);
> {tohle tady byt nemusi, ale me se to pak lip cte, nemusim se vracet, je to
> vetsi o jeden byte na string
> if zapsano<>sizeof(byte) then - chyba nejde zapsat
> blockwrite(f,s1,delka,zapsano);
> if zapsano<>delka then chyba nejde zapsat
> close(f);
>
> </priklad>
This archive was generated by hypermail 2.1.2 : 11. 08. 2002, 17:00 CEST