[es] - Neko drugo resenje brisanja fajla sem 'deletefile' ??

Brkic
Ilija Brkic
Sombor

Član broj: 55360
Poruke: 396
89.216.233.*

Profil

Neko drugo resenje brisanja fajla sem 'deletefile' ??

^{15.11.2006. u 18:50}

Da li postoji neki drugi nacin brisanja fajla osim 'deletefile' ???

sve je bilo OK dok nisam naleteo na jedan file koji Delphi ne moze izbrisati a rucno ga mogu izbrisati,ne znam zasto Delphi nece i nece dok iz Commandera se brise ladno.

^{15.11.2006. u 18:50}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1401
82.208.201.*

ICQ: 246436949

Profil

Re: Neko drugo resenje brisanja fajla sem 'deletefile' ??

^{15.11.2006. u 22:24}

Bilo bi lepo kad bi rekao koju gresku dobijes kada pokusas da obrises taj fajl?

Mozda fajl ima read only, hidden ili system atribute? Mozda program otvori fajl pa pokusava da ga obrise pre zatvaranja...

Ima jos funkcija za brisanje fajlova. Mozes probati Erase funkciju. Evo primera iz helpa:

Code:
procedure TForm1.Button1Click(Sender: TObject);

var
  F: Textfile;
begin
  OpenDialog1.Title := 'Delete File';
  if OpenDialog1.Execute then begin
    AssignFile(F, OpenDialog1.FileName);
    try
      Reset(F);
      if MessageDlg('Erase ' + OpenDialog1.FileName + '?',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        CloseFile(F);
        Erase(F);
      end;
    except
      on EInOutError do

        MessageDlg('File I/O error.', mtError, [mbOk], 0);
    end;
  end;
end;

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{15.11.2006. u 22:24}

Brkic
Ilija Brkic
Sombor

Član broj: 55360
Poruke: 396
89.216.233.*

Profil

Re: Neko drugo resenje brisanja fajla sem 'deletefile' ??

^{15.11.2006. u 22:37}

ne dobijem gresku,jednostavno prodje kao da je obrisao fajl a nije.Fajl se ne otvara,ne iscitava,treba se samo obrisati.Ima hidden atribut.

Probacu sa Erase pa cu javiti rezultat.

Ponavljam da ga rucno obrisem bez problema.

^{15.11.2006. u 22:37}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1401
82.208.201.*

ICQ: 246436949

Profil

Re: Neko drugo resenje brisanja fajla sem 'deletefile' ??

^{15.11.2006. u 22:50}

Smem li da pitam, kako znas da nema greske? DeleteFile funkcija vraca boolean vrednost. Ako je rezultat True, onda je fajl obrisan. Ako je rezultat False, onda je doslo do greske, a koja je greska upitanju mozes saznati pozivanjem GetLastError funkcije (najlakse je da rezultat GetLastError funkcije prosledis funkciji SysErrorMessage... ona ce ti dati opis greske). Ti to, naravno, proveris pa znas da nema greske prilikom brisanja?

Ako stvarno nema greske, onda ti se sistem ponasa vrlo cudno

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{15.11.2006. u 22:50}

Brkic
Ilija Brkic
Sombor

Član broj: 55360
Poruke: 396
89.216.233.*

Profil

Re: Neko drugo resenje brisanja fajla sem 'deletefile' ??

^{15.11.2006. u 23:28}

da da, stavio sam sa try...except pa tu nije nista prijavio.

izbaci gresku 'access is denied' sa GetLastError.

Evo pokusavam sa erase ali mi ne ide nesto.

Fajl ima atribur Read-only i hide.
Mozda da mu skinem atribut read-only pa da probam onda.

_{[Ovu poruku je menjao Brkic dana 16.11.2006. u 00:47 GMT+1]}

^{15.11.2006. u 23:28}

Brkic
Ilija Brkic
Sombor

Član broj: 55360
Poruke: 396
89.216.233.*

Profil

Re: Neko drugo resenje brisanja fajla sem 'deletefile' ??

^{15.11.2006. u 23:44}

resio sam problem

skinuo sam mu atribute i obrisao bez problema.

^{15.11.2006. u 23:44}