Удалить последнюю букву в каждом слове.

[XakProg]

Удалить последнюю букву в каждом слове.(delphi)

[Вадим Мошев]

Я смогу вам решить вам эту/эти задачу(и) за некоторое денежное вознаграждение. Если вы согласны, напишите мне на адрес электронной почты: vadimFreelance ([co6аkа}] yandex {{тoчka}] ru
В общении через почту обсудим дальнейшую работу.

Подробнее у меня по ссылке в подписи:

v

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
    d:boolean;
begin
   s:=Edit1.Text+' ';
   d:=false;
   For i:=Length(s)-1 downto 1 do
      If (s[i+1]=' ') and (s[i]<>' ') and not d then
      begin
         Delete(s,i,1);
         d:=true;
      end else
         d:=false;
   Label1.Caption:=s;
end;