Hi Gereon.
Ich rate dir in diesem Fall zu regulären Ausdrücken. Ich habe momentan leider keine
Unit zur Hand, aber ich weiß, dass es RegExp-Units für Delphi gibt.
Der Code würde dann etwa so aussehen.
Delphi-Quellcode:
function ForumsBewertung(s :
string) :
string;
var
r : TRexExp;
begin
r := TRegExp.Create('
^(.*?) ist (.*?)$');
// Muster anlegen
r.Match(s);
// StoreVars()
result := '
Der User findet ' + r.Matches[1] + '
' + r.Matches[2] + '
!';
// InsertVars()
r.Free;
end;
{...}
var
s1, s2 :
string;
begin
s1 := '
DP ist toll';
s2 := ForumsBewertung(s1);
ShowMessage(s2);
// Zeigt 'Der User findet DP toll!' an
end.