Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Vjerovatno neki glup problem

[es] :: Pascal / Delphi / Kylix :: Vjerovatno neki glup problem

[ Pregleda: 2799 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 877
*.dialup.blic.net.



+148 Profil

icon Vjerovatno neki glup problem21.05.2005. u 14:21 - pre 230 meseci
Pozdrav svima!
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.
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Vjerovatno neki glup problem21.05.2005. u 14:54 - pre 230 meseci
Prvo, pitana treba da sadrzi backslashove, umesto obicnih slasheva. Znaci umesto D:/PROBE/ stavi D:\PROBE\
Drugo, While not EOF do proverava da li je kursor pozicioniran na kraj fajla (EOF - end of file). To ti uopste nije potrebno, jer ti otvaras fajl za pisanje, tako da pravis beskonacnu petlju.
Samo izbaci to While not eof.. i zameni / sa \

poz
 
Odgovor na temu

peromalosutra
Ivan Rajkovic
Software engineer
Luxoft
Berlin

Član broj: 54774
Poruke: 877
*.dialup.blic.net.



+148 Profil

icon Re: Vjerovatno neki glup problem21.05.2005. u 17:40 - pre 230 meseci
Da, problem je bio u onome while not eof, bas sam glup sto sam to stavio, logicno je da ce ova funkcija uvijek davati FALSE kod upisa u fajl. A sto se tice backslashova, radi i sa obicnim slashovima, probao sam.

 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Vjerovatno neki glup problem22.05.2005. u 13:32 - pre 230 meseci
Nema potrebe stavljati slasheve kad su windowsov "standard" backslashevi .
 
Odgovor na temu

Goq

Član broj: 12091
Poruke: 79
*.dialup.sezampro.yu.



Profil

icon Re: Vjerovatno neki glup problem23.05.2005. u 08:18 - pre 230 meseci

var F: file;
begin
Assign(F, '\AUTOEXEC.BAT');
Reset(F, 1);
Writeln('File size = ', FileSize(F));
Close(F);
end.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Vjerovatno neki glup problem

[ Pregleda: 2799 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.