Geht das einfacher ? (Pos, PosEx)

[Tommy1988]

Folgendes habe ich ohne zu denken zusammengefriemelt. Wollte nur, dass es schonmal klappt:

Delphi-Quellcode:

pPos1 := AnsiPos('<span class="showTime">', aHTML);
pPos1Ex := PosEx('</span>', aHTML, pPos1+1);
Showmessage(Copy(aHTML, pPos1+24, (pPos1-pPos1Ex+24)*-1));
pPos1 := AnsiPos('<span class="artisteTime">', aHTML);
pPos1Ex := PosEx('</span>', aHTML, pPos1+1);
Showmessage(Copy(aHTML, pPos1+26, (pPos1-pPos1Ex+26)*-1));
pPos1 := AnsiPos('<p class="titreTime">', aHTML);
pPos1Ex := PosEx('</p>', aHTML, pPos1+1);
Showmessage(Copy(aHTML, pPos1+21, (pPos1-pPos1Ex+21)*-1));

pPos2 := PosEx('<span class="showTime">', aHTML, pPos1Ex+1);
pPos2Ex := PosEx('</span>', aHTML, pPos2+1);
Showmessage(Copy(aHTML, pPos2+24, (pPos2-pPos2Ex+24)*-1));
pPos2 := PosEx('<span class="artisteTime">', aHTML, pPos1Ex+1);
pPos2Ex := PosEx('</span>', aHTML, pPos2+1);
Showmessage(Copy(aHTML, pPos2+26, (pPos2-pPos2Ex+26)*-1));
pPos2 := PosEx('<p class="titreTime">', aHTML, pPos1Ex+1);
pPos2Ex := PosEx('</p>', aHTML, pPos2+1);
Showmessage(Copy(aHTML, pPos2+21, (pPos2-pPos2Ex+21)*-1));

pPos3 := PosEx('<span class="showTime">', aHTML, pPos2Ex+1);
pPos3Ex := PosEx('</span>', aHTML, pPos3+1);
Showmessage(Copy(aHTML, pPos3+24, (pPos3-pPos3Ex+24)*-1));
pPos3 := PosEx('<span class="artisteTime">', aHTML, pPos2Ex+1);
pPos3Ex := PosEx('</span>', aHTML, pPos3+1);
Showmessage(Copy(aHTML, pPos3+26, (pPos3-pPos3Ex+26)*-1));
pPos3 := PosEx('<p class="titreTime">', aHTML, pPos2Ex+1);
pPos3Ex := PosEx('</p>', aHTML, pPos3+1);
Showmessage(Copy(aHTML, pPos3+21, (pPos3-pPos3Ex+21)*-1));

Dabei gehts um je 3 Variablen am Hintereinander (je ein Block ist das da oben) die aus einem Dokument an drei Stellen genommen werden.

Nun meine Frage: Wie könnte man das einfacher gestalten?
Ich bekomme das nicht in eine Funktion gepackt, weil ich nicht weis wie ich das "dynamisch" gestalten soll