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

sitni problem molim brzu pomoć

[es] :: Pascal / Delphi / Kylix :: sitni problem molim brzu pomoć

[ Pregleda: 1449 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Stock

Član broj: 25295
Poruke: 4
*.net.htnet.hr



Profil

icon sitni problem molim brzu pomoć26.04.2004. u 23:10 - pre 244 meseci
molim vas
problem: treba napravit opciju u mom programu u tpw-u koja briše određeni podatak u datoteci.
znaci podaci su upisani x njih a ja zelim pobrisat odredjeni jednostavno ga maknut da sve funkcjonira ko da on nikad nije bio tamo
probao sam riješiti sa naredbom truncate ali mi neide. dali postoji jos koja naredba koja brise podatke iz datoteke ili mi mozete reci kako da obrisem taj zeljeni podatak.
btw. mozda budem imao jos takvih sitnih pitanja
 
Odgovor na temu

Stock

Član broj: 25295
Poruke: 4
*.net.htnet.hr



Profil

icon Re: sitni problem molim brzu pomoć03.05.2004. u 18:46 - pre 243 meseci
Da sam čekao vaš odgovor u grob bi zavrsio. pa sam riješio moj problem pred par dana već i odlučio ga postat ovdije tako da ovo ne bude beskorisan topic.svatio sam da sam upravo načinio tipičan školski primjer ali ako nekome zatreba kao prije meni evo ga tu
-----------------------------------------------------------
reset (f);
assign (m,'pomocna.dat');
rewrite (m);
2:writeln ('upisite broj dosijea kojeg zelite pobrisat');
readln (n);
If n <=fileSize(F) Then
begin
n:=n-1;
for x:=0 to (filesize(f)-1) do
begin
if x<>n then
begin
seek (f,x);
read (F,R);
write(M,R);
end;
end;
reset (m);
rewrite(F);
for x:=0 to filesize(m)-1 do
begin
seek (m,x);
read (m,R);
write (F,R);
end;
end
else
goto 2;

----------------------------------
F,M su tipa file of nešto (f glavna datoteka m pomoćna)
n,x integer
uštimati kako vam paše
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: sitni problem molim brzu pomoć

[ Pregleda: 1449 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

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