🚀 go-pugleaf

Am Mon, 7 Jun 1999 schrieb Wobble folgendes:

>here is a little simple code that writes 255 bytes into a file:
>var    file: text;

Das geht nicht. Du kannst doch kein reserviertes Wort deklarieren.
Mach lieber draus VAR f : TEXT

>        s : char;
>        i :integer
>
>begin
>    assign(file,'c:\thefile-txt');
ASSIGN(f,'c:\thefile.txt');
>    rewrite(file) {use reset if file's already existing}

REWRITE(f);

>     c := x;

wo kommen diese beiden Variablen pl�tzlich her?

>     for  i := 1 to 255

for i := 1 to 255 DO

>    begin

Wenn du nur eine einzige Anweisung nach dem DO hast, brauchst du diese
nicht in BEGIN-END kapseln.

>       write(file,c);

Du meintest vielleicht     WRITE(f, CHR(i));

>    end;
>    close(file);

CLOSE(f);

>end.
>is everything clear right now??

jetzt vielleicht ;-)

>wob82

Vielleicht wirst du langsam senil mit deinen 82 ;-))

bye - Frank