Wie kann ich am schnellsten ein Wort in einem Satz vor einem bestimmten Wort suchen
mein Code funktioniert zwar - kommt mir aber etwas mühsam vor?
Delphi-Quellcode:
function WordBefore(const S, Word: String): String;
var
i: Integer;
sBuf: String;
begin
//S: Das ist ein Wort
//Word: Wort
//Result: ein
i := pos(Word, S);
if i>0 then
begin
sBuf := Trim(copy(S,1,i-1)); //Das ist ein
for i := Length(sBuf) downto 0 do
begin
if sBuf[i]<>' ' then
Result := sBuf[i]+Result
else
exit;
end;
end;
end;
Hat jemand eine "bessere" Idee?
Thx