Thx für die beiden Inputs - habs auf folgenden Code geändert
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));
repeat
Result := sBuf[i]+Result;
dec(i);
until (i=0)
OR (sBuf[i]='
');
end;
end;
falls sonst mal jemand braucht