Letztes Wort in Memo löschen

[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