Cteni z textoveho souboru – Delphi – Fórum – Programujte.com

Dobry den, 

Kdyz nectu ze souboru a zadavam rucne nezname tak program bez problemu funguje. Jenze jak tam pridam soubor. tak se program hned vypne po spusteni i presto ze mam na koneci readln;.

nevite proc to tak je? 

assign(f,'data2.txt'); reset (f);
writeln;
writeln('Zadana cisla:');
  read(f,n);

dekuji za rychlou odpoved

google = delphi read from file

Delphi Basics : ReadLn command

assign(fp,'data2.txt'); /* propoj soubor na promenou, v php se pouziva fp, file-pointer */
reset(fp); /* presun ukazatel na zacatek souboru */
read(fp,n); /*  nacti ze souboru znak do n */
writeln(n);
readln(fp,n); /*  nacti ze souboru cely radek do n */
writeln(n);
/* ReadLn(myFile, n1, n2, n3); nacti 3 radky do n1, n2, n3 */
CloseFile(fp); /* zavrit soubor, odpojit od promenne fp - kdyz si to nechas otevrene a program to sam nezavre, tak win muze mit soubor zamceny do ukonceni programu, takze jiny program do nej pak nesmi. A tez se stava, ze program obcas hapne a a nezavrene soubory se pri padu neodemknou, tak je lepsi co nejdriv se odpojit od nich */

Treba neni problem v tom, ze se promenne nenactou, ale v tom, ze je nevypises na obrazovku :)