[ Stock @ 26.04.2004. 23:10 ] @
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
[ Stock @ 03.05.2004. 18:46 ] @
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