Neuer Versuch:
Delphi-Quellcode:
function RewriteBookmarkFile(sl: TStrings; Filename: string): Cardinal;
var
Loop: Integer;
Count: Cardinal;
inF, outF: TextFile;
s: String;
begin
Count := 0;
{$I-}
AssignFile(inF, Filename);
Reset(inF);
AssignFile(outF, Filename+'.html');
Rewrite(outF);
for Loop := 0 to sl.Count - 1 do
begin
while not EOF(inF) do
begin
Readln(inF, s);
if pos(sl.Strings[Loop], s) = 0 then
WriteLn(outF, s)
else
Inc(Count);
end;
end;
CloseFile(inF);
CloseFile(outF);
DeleteFile(Filename);
RaiseLastOSError();
{$I+}
result := Count;
end;
RaiseLastError(); sagt mir:
Zitat:
---------------------------
Bookmark-Checker
---------------------------
Systemfehler. Code: 32.
Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.
---------------------------
OK
---------------------------
Was darauf zurückzuführen ist, dass CloseFile(inF) die datei nicht richtig schließt. Also was tun?
Da vergeht einem die Lust am Programmieren.
