variablen String abschneiden

[Ajin]

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?

[thkerkmann]

Zitat:

Delphi-Quellcode:

  //tomaten gefunden !
  str := Copy(sl.Strings[i],pos_tomaten, ??);//----> was nun?
  result := str;

Du willst ja nur das vor den Tomaten, also

Delphi-Quellcode:

  str := Copy(sl.Strings[i], 1, pos_tomaten-1);

Gruss

[Ajin]

*Klick*

Ahh so macht man dass. Vielen Dank, klappt prima!

[mkinzler]

Oder du kürzt des String auf die Länge (setlength)