Die Hilf-Datei liegt im selben Pfad wie die eigentliche Datei. Ich poste hier nochmal die komplette Prozedur. Vermutlich hab ich einen Syntaxfehler gemacht, den der Debugger nicht zeigt.
Delphi-Quellcode:
procedure TForm1.DatenLoeschenClick(Sender: TObject);
var i:SmallInt;
begin
seek(ChemDat,0);
Assignfile(ChemDatH,'Hilf');
rewrite(ChemDatH);
for i:=0 to Stelle-1 do
begin
read(ChemDat,Chem) ;
write(ChemDatH,Chem);
end;
seek(ChemDat,Stelle+1);
while not eof (Chemdat) do
begin
read(ChemDat,Chem);
write(ChemDatH,Chem);
end;
// bis hierhin klappts
CloseFile(ChemDat) ;
CloseFile(ChemDatH) ;
DeleteFile(Dateiname+'.dat');
RenameFile('Hilf',Dateiname+'.dat');
AssignFile(ChemDat,Dateiname+'.dat');
end;
Das Programm wird in einem anderen Verzeichnis gestartet. Die Dateien werden z.Zt. direkt auf Laufwerk D abgelegt. Dort finde ich sowohl die angelegte Datei als auch die Hilf-Datei.
Allerdings muss ich mich jetzt verabschieden. Mein Kind braucht einen Chauffeur.
Werd mal drüber schlafen. Melde mich morgen wieder.
Vielen Dank für deine bisherige Hilfe.