Hogyan oldjam meg? (TurboPascal)
Egy olyan programot kell írni ami kutyákat rögzít egy tipusos file ba. Ott akadtam el hogy beletudok írni a file ba,keresni,listázni csak a törlésnél kéne egy kis segítség.
'4':begin {KUTYA TÖRLÉSE}
write('Kerem a torlendo kutya nevet: ');
readln(nev);
reset(f);
seek(f,0);
while not eof(f) do begin
read(f,kutyak);
if (kutyak.nev=nev) then begin
kutyak.nev:=' ';
write(f,kutyak);
end;
end;
close(f);
readkey;
clrscr;
end;
Itt mi a hiba?
A teljes forráskód itt van
www.sourcepod.com/tizjdh48-14554
Itt az történik hogy Bekéri a nevet amit törölni akarunk megnyitja a filet, beáll a file elejére és amig nincs file vége kiolvassa a file bol a recordokat és ha amit megadtunk nevet megeggyezik a recordban levo névvel akkor átírja ' ' ra és beirja a fileba majd bezárja a filet.
A lényeg hogy törölje ki a kutyat.
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!