Помощь новичку

[xoxby]

Помогите я начал разбираться с делфи недавно и встала задача сделать программу
заполняю поля от до и шаг и программа генерирует
от 1 - поле edit1
до 10 - поле edit2
шаг 1 - поле edit3
{1|2|3|4|5|6|7|8|9|10} - поле мемо1

Form1: TForm1;
var E1,E2,E3,K: string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
E1:=edit1.text;
E2:=edit2.text;
E3:=edit3.text;
k:=E1+E2;

K:=Memo1.text;

end;

end.

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var xFrom,xTo,xStep: Integer;
    s: String;
begin
  xFrom:=StrToIntDef(Edit1.Text,0);
  xTo:=StrToIntDef(Edit2.Text,0);
  xStep:=StrToIntDef(Edit3.Text,0);
  s:='';
  while ((xFrom<=xTo) and (xStep>0)) or ((xFrom>=xTo) and (xStep<0)) do begin
    s:=Format('%s%d|',[s,xFrom]);
    Inc(xFrom,xStep);
  end;
  if s<>'' then s:=Format('{%s}',[Copy(s,1,Length(s)-1)]);
  Memo1.Text:=s;
end;

новечку

Улыбнуло

[Serge_Bliznykov]

Улыбнуло

меня чуток поднапрягло, я исправил...