Проблема в ответе

[trnext]

Помогите пожалуйста убрать последний знак в ответе.
Пишу на Delphi 7, программа должна разлаживать заданное число на простые множители. На скрине видно, нужно * убрать в ответе.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,z,e: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
Edit2.text:=Edit1.Text+'=';
z:=StrToInt (Edit1.text);
repeat
   for e:=2 to z do
   begin
   x:=z mod e;
    if x=0  then begin
    z:=z div e;
    Edit2.Text:=Edit2.Text+inttostr(e)+'*';
    break;
    end;
    end;
  until z=1;
  end;
end.

[Serge_Bliznykov]

подобные задачи часто возникают.
и имеют несколько способов решения.
Самые часто используемые:
- либо при добавление знака проверять какое-то условие (если условие выхода из цикла ещё не выполняется, тогда добавлять умножение, иначе - не добавлять)
- либо прямое решение задачи "в лоб": удалять символ ПОСЛЕ окончания всей обработки..
- либо изменять цикл так, чтобы нужный символ добавлялся перед вставляемым.


решение по второму способу:

begin
  Edit2.text := Edit1.Text + '=';
  z := StrToInt(Edit1.text);
  repeat
    for e := 2 to z do
    begin
      x := z mod e;
      if x = 0 then begin
        z := z div e;
        Edit2.Text := Edit2.Text + inttostr(e) + '*';
        break;
      end;
    end;
  until z = 1;
  if Length(Edit2.Text)>0 then
    if Edit2.Text[Length(Edit2.Text)]='*'
      then Edit2.Text := Copy(Edit2.Text,1, Length(Edit2.Text)-1);

вот решение по третьему способу (рекомендую в данном случае использовать именно его):

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
  x, z, e: integer;
begin
  z := StrToInt(Edit1.text);
  s := '';
  repeat
    for e := 2 to z do
    begin
      x := z mod e;
      if x = 0 then begin
        z := z div e;
        if length(s) = 0 then s := inttostr(e)
        else s := s + '*' + inttostr(e);
        break;
      end;
    end;
  until z = 1;
  Edit2.Text := Edit1.Text + '=' + s;
end;