🚀 go-pugleaf

ok ali,
here is a little simple code that writes 255 bytes into a file:

var    file: text;
        s : char;
        i :integer

begin
    assign(file,'c:\thefile-txt');
    rewrite(file);                            {use reset fi file's already
existing}
     c := x;
     for  i := 1 to 255
    begin
       write(file,c);
    end;
    close(file);

end.
is everything clear right now??

wob82

Ali schrieb in Nachricht <7jaola$r31$1@news5.svr.pol.co.uk>...
>Could some one show me a quick little,simple source code to writing to text
>files, i've tries to write to a text file but i get an error: File not open
>for output (run time error, i think error no: 105). THis is how i try to
>write to text files:
>var
>    f:text;
>    c:char;
>begin
>    read(c);
>    assign(f,'fdsat.txt');
>    reset(f);
>    Write(f,c);
>End.
>
>