String suchen und in Datei schreiben

[DF.A]

Hallo,
ich untersuche grade eine Datei auf Strings mit bestimmten Bedingungen. Das heißt wenn ein String mit dieser Bedingung vorkommt soll er in eine neue Datei geschrieben werden. Die Datei wird zwar erstellt, allerdings wird nie was in diese Datei geschrieben obwohl ich mir ganz sicher bin, dass der String vorkommen müsste und also auch in die neue Datei geschrieben werden müsste. Ich mache das folgendermaßen.

Delphi-Quellcode:

var
  F: TextFile;            
  D: TextFile;
  s: string;
  sTestString : string;
  poserg : integer;
  
begin
  if not FileExists(sFileName) then begin
    MessageDlg('Die Quelldatei ist nicht vorhanden!', mtError, [mbOk],0);
    EXIT;
  end;

  AssignFile(D, sSaveName); //auf diesen Dateinamen zum Speichern beziehen 
  ReWrite(D);  //erstellt und öffnet die Datei zum Schreiben

  AssignFile(F,sFileName); 
  Reset(F);  
  
  while not (EOF(F))  do begin
    ReadLn(F, s);
    sTestString := copy(s,iDetailRangeStart,iDetailRangeLength); //iDetailRangeStart = Startposition, iDetailRangeLength = count
    poserg := pos(sDetailRangeText,sTestString);
    if poserg <> 0 then begin
       writeLn(D, sTestString);
    end;
  end;  
  CloseFile(D);
end;

hat jemand ne idee was ich falsch mache oder was ich vergessen habe? wäre schön wenn mir jemand helfen könnte.
mfg DF.A

[DF.A]

vergesst es einfach
hab nen total bekloppten fehler gemacht

[Dani]

Okay

Denke aber bitte trotzdem daran, dass du die Variable FileMode vor dem Aufruf von Reset(F) noch auf "fmOpenRead or fmShareDenyWrite" setzen solltest.

[oh]Hinweis

Wenn Sie Reset für eine schreibgeschützte Datei aufrufen, müssen Sie zuvor FileMode zurücksetzen. Auch wenn die Datei nur gelesen werden soll, verursacht der Standardwert von FileMode (Schreib-/Lesezugriff), daß das Öffnen einer schreibgeschützten Datei fehlschlägt.[/oh]