Posex und kein Plan :-(

[xineohp]

moin,

du hast da was falsch gemacht :

Delphi-Quellcode:

var
  myStringlist: tStringlist;
  i: integer;
begin
  myStringlist := tstringlist.Create;
  myStrynglist.Text := temphtm;
  // das hier ist Müll: DlSearch ist bei dir eine Textzeile, myStringlist.Text aber derganze Text!
  // DlSearch := myStringlist.text;
  

  For i:=0 to myStringlist.Count-1 do  // du gehst mit dierser Schleife durch die einzelnen Zeilen der Seite, wie mit ReadLn
  begin
     //Startposition für suche festlegen

     DlSearch := myStringlist[i]; // so is richtig 
     startpos := Posex(DlFile, DlSearch);

     if startpos > 0 Then

     begin
   //Endposition des Links festlegen
        endpos := Pos('">', DlSearch);
         endpos2 := Pos('"', DlSearch);
   //Downloadlink zurechtschneiden
       DlLink := Copy(DlSearch, endpos2+1, endpos-23);

     end;
  end;

  myStringlist.Free;
end;

Den gesamten Text aufeinmal zu durchsuchen wird so nicht funktioniern, da '"' und '">' nur in dieser einen Zeile die richtigen Begrenzer sind.