🚀 go-pugleaf

Hallo Ali!

> Could some one show me a quick little, simple source code how to write to
> text
> files, i've tried 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.

Uses "reset" only for opening text files for input. These files must already
exist. If you want to wite to a file (as you tried), use "rewrite" to create a
new file, or "append" to extend an existing text file.

Furthermore, do not forget to close a file, otherwise it is not guaranteed that
buffers will be flushed and data be stored on disc.

Putting this altogether your code becomes:
var
    f: text;
    c: char;

begin
    readln(c);
    assign(f, 'fdsat.txt');
    rewrite(f);
    write(f, c);
    close(f)
end.

Greetings,
Bj�rn