Moin Moin!
Ich habe verschiedene Sätze welches nur eines gemeinsam haben: das Wort "tomate"
Hier 3 Beispiele:
"Delphi Praxis ist toll tomaten schmecken lecker"
"Ich bin ein Lappen tomaten sind rot"
"Heute ist es kalt tomaten sind manchmal grün"
Mein Ziel ist es, den Satz vor dem Wort "tomaten" abzuschneiden. Das Ergebnis sollte dann so aussehen:
"Delphi Praxis ist toll"
"Ich bin ein Lappen"
"Heute ist es kalt"
In Sachen Stringverarbeitung gibts ja tolle Sachen wie Copy, Trim, Pos und PosEx. Ich bin den tomaten mit diesem code zu Leibe gerückt:
Delphi-Quellcode:
//Stringlist erstellen
sl:=TStringlist.create;
try
sl.Add('Delphi Praxis ist toll tomaten schmecken lecker');
//stringlist komplett durchsuchen
for i := 0 to sl.Count - 1 do
begin
//--->> Position des gewünschten strings (tomaten) suchen
pos_tomaten := pos('tomaten', sl.Strings[i]);
if pos_tomaten <> 0 then
begin
//tomaten gefunden !
str := Copy(sl.Strings[i],pos_tomaten, ??);//----> was nun?
result := str;
end;
end;
finally
sl.Free;
end;
Wie kann ich nun an der Position des Worts tomaten den Satz davor isolieren?