Dotaz: Nefunkcni uprava retezcu

[aGr]

Mam program:
...
assign(obce,'obce.txt');
reset(obce);
assign(nazvy,'result.txt');
rewrite(nazvy);
readln(obce,obsah);

while not EOLN(obce) do
begin
mez1:=pos('(',obsah);
mez2:=pos(')',obsah);
delete(obsah,mez1,mez2-mez1+2);
end;

writeln(obsah);
close(obce);
close(nazvy);

nevypise vsak nic. Zato pokud vynecham while cyklus a napisu pouze:

readln(obce,obsah);
mez1:=pos('(',obsah);
mez2:=pos(')',obsah);
delete(obsah,mez1,mez2-mez1+2);

pro prvni retezec vse probehne naprosto v poradku, tak jak ma.
Zkousel jsem i "while not EOLN(obce) do" nahradit za "for i:=1 to length(obsah) do" jenze naprosto beze zmeny. Nevim si rady, naky napady?

Odpovědi

[Andrej Herceg]

Vôbec netuším, čo by ten program mal robiť (nikde to tam nie je napísané) :)

Podľa mňa by to mohlo vyzerať nejako takto (ale ako som už napísal, netuším, čo to má robiť, takže možno to nebude to, čo potrebuješ):

assign(obce,'obce.txt');
reset(obce);
assign(nazvy,'result.txt');
rewrite(nazvy);

while not Eof(obce) do 
begin
	readln(obce,obsah);
	mez1:=pos('(',obsah);
	mez2:=pos(')',obsah);
	delete(obsah,mez1,mez2-mez1+2);
	writeln(obsah);
end;

close(obce);
close(nazvy);

[aGr]

Promin, doplneni :): Mam soubor obce.txt, ktery obsahuje nazvy mest a okresy - napr.: benešov( benešov ) , bernartice( benešov - vlašim )... Mam za ukol odstranit zavorky a vypsat pouze mesta. Cili vysledek by mel vypadat benešov , bernartice... Je jasny, ze to cely, co jsem napsal, pak jeste bude cele ve "while not EOF(obce) do". Ja to zatim zkousim pouze pro jeden retezec. Hlavni je, ze kdyz obsah ve while cyklu vyndam, prikaz se provede spravne (akorat jednou samozrejme). Take jsem ted zjistil, ze kdyz to zkompiluju ve starym Borland Pascalu 7, tak to funguje... Ja pouzivam Dev-Pascal, ale zkousel jsem to i v jinem, ale bez vysledku.