In eine CSV Datei Reinschreiben???

[marabu]

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