Hallo,
Zitat von
r3v0:
habe einfach die komplette
csv datei in eine TStringList reingelesen habe die betreffende Zeile Neugeschrieben und dann den inhalt der TStringList wieder in die
CSV datei geschrieben!
Das ganze dauert so 0,03 Sekunden. für die Zeit bräuchte ich eine sperre der datei!
das Einlesen würde ich etwa so machen, dann hast du deine Sperre:
Delphi-Quellcode:
var
fs: TFileSTream;
fn: TFileName;
s: TStrings;
begin
// fn := ParamStr(1);
try
fs := TFileStream.Create(fn, fmOpenReadWrite or fmShareExclusive);
except
// try again later ...
Exit;
end;
s := TStringList.Create;
s.LoadFromStream(fs);
// your own wicked code ...
fs.Size := 0;
s.SaveToStream(fs);
s.Free;
fs.Free;
end;
Grüße vom marabu