Liste von Winamp Radio Streams

[Chris P]

Hi,

also ich habe jetzt erstmal die Anzahl der Einträge ausgelesen:

Delphi-Quellcode:

t := GetHTML(S);
p1 := pos('=', t);
temp := Copy(t, p1+1, length(t)) ;
p2 := pos(#10, Temp);
temp := Copy(temp, 1, p2-1);
a := strtoint(temp);

Bemerkung: Die einzelnen Einträge sind immer mit dem Zeichen #10 getrennt!

Ich bekomme somit die Zahl 4 zurück.
Nun kann ich nach den 4 Einträgen suchen.
Mich interessieren nur File und Title:

Delphi-Quellcode:

 for i := 1 to a do
       begin
            temp := t;
            str := Format('File%d=',[i]);
            p1 := Pos(Str,temp);
            temp := Copy(temp, p1 + Length(str), length(temp));
            p2 := pos(#10,temp);

            temp := Copy(temp,1,p2-1);
            Memo1.Lines.add(Format('Stream%d %s', [i, temp]));
            temp := t;
            str := Format('Title%d=',[i]);
            p1 := Pos(Str,temp);
            temp := Copy(temp, p1 + Length(str), length(temp));
            p2 := pos(#10,temp);
            temp := Copy(temp,1,p2-1);
            Memo1.Lines.add(Format('Title%d %s', [i, temp]));

       end;

Das klappt alles gut! Jetzt wollte ich nur mal wissen, ob man das ganze noch besser
machen kann? Vielleicht hat ja jemand einen Vorschlag?