.txt Datei aus .zip öffnen zum auslesen

[dumper]

Delphi-Quellcode:

 
...  
try
   begin
   ZipMaster1 := TZipMaster.Create(nil);
   Zipmaster1.ZipFilename:=FileStr;
   for I:=1 to ZipMaster1.Count do
    begin
      with ZipDirEntry(ZipMaster1.ZipContents[I-1]^) do
      begin
        TempStr := copy(Filename,1,4);
        if TempStr = 'LOG_' then
        begin
          ZipFileStr := Filename;
        end;
      end;
    end;
    ZipData := ZipMaster1.ExtractFileToStream(ZipFileStr);
    ZipData.Position := 0;
    ZipData.SaveToFile(ExtractFilePath(ParamStr(0))+'temp.txt');
    memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'temp.txt');
    DeleteFile(ExtractFilePath(ParamStr(0))+'temp.txt');
    TempStr := memo1.Text;
    AnfangInt  := pos('Link: ',TempStr);
    AnfangInt := AnfangInt + 6;
    TempStr := copy(TempStr,AnfangInt,length(TempStr));
    EndeInt := pos ('#$D#$A',TempStr); // #$D#$A Zeilenumbruch ..... EndeInt ergibt immer 0 .. #$D#$A wird iwie ignoriert
    Edit1.Text := copy(TempStr,1,EndeInt);
   end;
   finally
     ZipMaster1.Free;
   end;
end;

1. aktuellste Datei in einem Ornder suchen (nur .zips)
2. LOG_*unbekannt*.txt im XXX.zip ermitteln
3. Abspeichern und in ein Memo laden
4. Einem String übergeben
5. Substring Anfang mit Hilfe von pos finden
6. Ende bis zum Zeilenumbruch it Hilfe von pos finden... aber es wird einfach ingoriert.. weiss einer Rat?


neuen topic wär jetzt dafür etwas übertrieben
thx 4 answer