Registracija

sitni problem molim brzu pomoć

Odgovori Nova tema

1 odgovor
1.897 pregleda

sitni problem molim brzu pomoć 27.04.2004. u 00:10 · pre 274 meseca #1

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

Re: sitni problem molim brzu pomoć 03.05.2004. u 19:46 · pre 273 meseca #2

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme