Upravo sam uradio neki bezvezni programcic koji treba da uneseni tekst snimi na disk u lokaciju D:/PROBE. Kada ga pokrenem sve radi dobro dok ne pocne da snima sadrzaj na disk. Tada izgleda kao da upadne u neku vrstu beskonacne petlje i kada ga preko Task menagera "nasilno" zaustavim i odem u D:/PROBE, tamo nadjem fajl tezine oko 500MB! U cemu je problem?
Code:
Program Snimanje;
Uses WinCrt;
Type save=file of string;
Var tekst,ime:string;
buffer:save;
Begin
Write ('Ime datoteke: ');
Readln (ime);
write ('>');
readln (tekst);
ime:='D:/PROBE/'+ime;
assign (buffer,ime);
Rewrite (buffer);
While not eof do
write (buffer,tekst);
end.
Program Snimanje;
Uses WinCrt;
Type save=file of string;
Var tekst,ime:string;
buffer:save;
Begin
Write ('Ime datoteke: ');
Readln (ime);
write ('>');
readln (tekst);
ime:='D:/PROBE/'+ime;
assign (buffer,ime);
Rewrite (buffer);
While not eof do
write (buffer,tekst);
end.