Mi nem helyes a következő programban? Pascalban van megírva, és a text file a pascal program mellé van elmentve.

Fúú gec . De rég írtam pascalt. így csináld szerintem

var f:text;

begin

crt;

clrscr;

assign(f,'nyisd_ki.txt');

reset(f);

writeln(f);

close(f);

readln;

end.

Hát mindketten egy hatalamas baromságot írtatok !

File felülírásra ReWrite, vagy nem tudom melyik Pascalt használod, de szerintem FileMode .....

Szia.

Mi a cél ? Olvasás vagy irás a filébe ?

Mert most jelenleg olvasásra nyitot meg a filét és irni szeretnél bele. De azt nem határozod meg, hogy mit irjon/olvasson a filéből.

File not open for output pediglen azt jelenti, hogy a file nincs nyitva a kimenetre (nem lehet bele irni).

Olvasás esetén : writeln(f); cseréld ki readln (f,s); re ahol s-et előtte deklarálni kell a var szekcióban : var S : string ;

Irás esetén pediglen :

reset(f); cseréld rewrite (f); -re

és a writeln (f); -et pediglen writeln (f,s); -re, de előtte az s-nek értéket kell addni pl. : s:='Ezt a sort fogja a file tartalmazni';

Sok sikert.

Üdv.

Nem bosszantom fel magam, de a kód meg köpedelem....

Bár a pascal alapú fordítók nem kényesek a kis és nagybetűkre, de legyünk már igényesek

var f:text;

s:string ;

begin

assign(f,'nyisd_ki.txt');

reset(f);

readln (f,s);

close(f);

writeln ('A file elso sora : ',s);

readln;

end.

Vak vezet világtalant....

var f : text;

s:string ;

begin

Assign(f, 'nyisd_ki.txt');

{$I-}

Reset(f);

while not Eof(f) do

begin

Readln(f,s);

WriteLn(s);

end;

Close(f);

{$I+}

ReadLn;

end.