[delphi] deletefile en closefile??

[Darkvater]

Ik heb echt een vreemd probleem. Ik open een bestand, lees daar iets uit, en wil het na afloop weghalen. Maar op de een of andere manier wil het niet lukken. Ik krijg altijd dat de file in gebruik is

code:

AssignFile(inp,filename);
Reset(inp);
...
CloseFile(inp);
...
DeleteFile(filename);

Wat is er nou fout???

edit: ik lees iets uit de file, filename is een variabele, en deletefile doe je met een filename. Ik heb dat in de prog goed gedaan, alleen hier fout.

[Creepy]

I.p.v. reset() gebruik je rewrite() mag ik hopen.

Kan zijn dat de aanpassingen nog niet daadwerkelijk in de file zijn weggeschreven (cache enzo). Misschien dat een flushfile() helpt voor je closefile().

[Tirillo]

filename moet iig tussen aanhalingstekens volgens mij..

en ook heel erg volgens mij:?.. deletefile werkt niet zo goed, in de help van delphi 5 staat ook dat je die beter niet kan gebruiken volgens mij..

[Verwijderd]

DeleteFile(FileName) Ipv DeleteFile(inp)?

[Darkvater]

Op donderdag 06 juni 2002 13:33 schreef Tirillo het volgende:
filename moet iig tussen aanhalingstekens volgens mij..

en ook heel erg volgens mij:?.. deletefile werkt niet zo goed, in de help van delphi 5 staat ook dat je die beter niet kan gebruiken volgens mij..

Oh, bij mij staat dat er niet bij. D'er staat alleen

DeleteFile erases the file named by FileName from the disk. If the file cannot be deleted or does not exist, the function returns False.

.

En je moet een filename doen bij Deletefile

[Verwijderd]

Op donderdag 06 juni 2002 13:27 schreef Creepy het volgende:

I.p.v. reset() gebruik je rewrite() mag ik hopen.

hmz nee darkvater zegt dat hij uit het bestand wil lezen, dus moet hij RESET(inp) gebruiken om de pointer naar het begin van het bestand te zetten, bij REWRITE(inp) maak je het bestand leeg en klaar om er opnieuw in te schrijven dus klopt wel, ik vind het trouwens wel heel raar dat je dat bestand niet kan verwijderen...zou gewoon moeten werken..

[Creepy]

Op donderdag 06 juni 2002 15:59 schreef dascension het volgende:

[..]

hmz nee darkvater zegt dat hij uit het bestand wil lezen, dus moet hij RESET(inp) gebruiken om de pointer naar het begin van het bestand te zetten, bij REWRITE(inp) maak je het bestand leeg en klaar om er opnieuw in te schrijven dus klopt wel, ik vind het trouwens wel heel raar dat je dat bestand niet kan verwijderen...zou gewoon moeten werken..

*oops*
Dacht dat ie aan het schrijven was...
(ben echt niet wakker de laatste tijd...)

[Verwijderd]

Je voorbeeld werkte perfect.
Maar je kunt het ook op de volgende manier proberen:

code:

procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFileStream;
  SS: TStringStream;
begin
  SS:=TStringStream.Create('');
  try
    FS:=TFileStream.Create('C:\Temp.txt', fmOpenRead);
    try
    SS.CopyFrom(FS, FS.Size);
    finally
    FS.Free;
    end;
    ShowMessage(SS.DataString);
  finally
    SS.Free;
  end;
  DeleteFile('C:\Temp.txt');
end;

[Darkvater]

Op vrijdag 07 juni 2002 09:38 schreef hvdberg het volgende:
Je voorbeeld werkte perfect.
Maar je kunt het ook op de volgende manier proberen:

code:

procedure TForm1.Button1Click(Sender: TObject);
var
  FS: TFileStream;
  SS: TStringStream;
begin
  SS:=TStringStream.Create('');
  try
    FS:=TFileStream.Create('C:\Temp.txt', fmOpenRead);
    try
    SS.CopyFrom(FS, FS.Size);
    finally
    FS.Free;
    end;
    ShowMessage(SS.DataString);
  finally
    SS.Free;
  end;
  DeleteFile('C:\Temp.txt');
end;

Ik zal hier eens naar gaan kijken. Het vreemde is dat ik mijn voorbeeld gewoon apart heb gedaan, en dat ie het wel doet, alleen in de prog zelf niet, ook al doe ik CloseFile net voor DeleteFile (dus hij moet echt al gesloten zijn).

edit:
GEVONDEN!!! Ik als een stomme rund had dat bestand nog ergens anders in de programma open