Letztes Wort in Memo löschen

[mr-unbekannt]

hallo

ich möchte das letzte wort in einem memo löschen. Das Wort lautet 'AND'
bis jetzt habe ich das gefunden, aber dieses löscht allle 'AND' s

 Memo1.Text := StringReplace(Memo1.Text, 'AND', '', [rfReplaceAll]); bitte um Hilfe
mr-unbekannt

[mkinzler]

Warum suchst du nicht sie position des letzten Leerzeichens (pos/posex) und löscht dann von dieser Position an, ist flexibler und funktioniert auch wenn letztes Wort anders heißt.

[Zacherl]

So geht es:

Delphi-Quellcode:

var
  i: integer;
  s: string;
begin
  s := Memo1.Lines.Text;
  for i := length(s) downto 0 do
  begin
    if copy(s, i, 1) = ' ' then
    begin
      delete(s, i, 4);
      Memo1.Lines.Text := s;
      Exit;
    end;
  end;
end;

Florian

[mr-unbekannt]

Zitat von mkinzler:

Warum suchst du nicht sie position des letzten Leerzeichens (pos/posex) und löscht dann von dieser Position an, ist flexibler und funktioniert auch wenn letztes Wort anders heißt.

wie macht man denn das?

so?:
for j := PosEx(memo1.Text,'AND',length(memo1.Text)-5) to length(Memo1.Text) do
Memo1.Lines.Delete(j);

[SirThornberry]

anstelle von
copy(s, i, 1) kann mach auch
s[i] verwenden