Mh, ok,
Delphi-Quellcode:
function Between(Tag,Tag2,Text:String):String;
begin
Delete(Text,1,Pos(Tag,Text));
Delete(Text,Pos(Tag2,Text),Length(Text));
Result:=Text;
end;
das sagt mir leider nicht viel, ohne zusatz von worten.
tag und tag2 stellen wohl <title> und </title> dar, wenn ja, wie sage ich der funktion denn,
dass es diese beiden tags sind?
denn:
Delphi-Quellcode:
function Between(<title>,</title>,Text:String):String;
begin
Delete(Text,1,Pos(<title>,Text));
Delete(Text,Pos(</title>,Text),Length(Text));
Result:=Text;
end;
funktioniert nicht.