nun hier mal eine ganz komplizierte lösung, wie ich es machen würde
Delphi-Quellcode:
function extractlinks(linkstring:string):string;
var
i:integer;
char:string[1];
link:string;
begin
i:=1;
link:='';
repeat begin
char:=linkstring[i];
link:=link+inttostr(char);
i:=i+1;
end until
char=';';
end;
es könnte funktionieren - auch wenn es kompliziert ist
