Вывод в Memo

[Siluet]

!!!! Объясню сокращенно...) мне нужно ввести число в Edit затем это число должно вывестись в Memo... подскажите пожалуйста...


и еще скажите в чем ошибка

procedure TForm1.Edit1Change(Sender: TObject);
begin
 st:=edit1.Text; str(a,st);
end;

[Terran]

мне нужно ввести число в Edit затем это число должно вывестись в Memo

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Memo1.Lines.Add(Edit1.Text);
End;

и еще скажите в чем ошибка

В этом коде ошибки нет. Покажите код полнее.

[NieL]

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Memo1.Lines.Add(TEdit(Sender).Text);
end;

[Siluet]

чё та походу я неудачно задачку сократил...

вод значит мой код..

procedure TForm1.Edit1Change(Sender: TObject);
begin
 st:=edit1.Text; str(a,st); {тут вводим число и он его переводит в Integer}
end;

procedure TForm1.Button3Click(Sender: TObject);
const
b=3.1;
begin
i:=1;
repeat   {это пример}
  if i<4 then q:=a/i+b+sqr(i)+c;     
  if (i>=4) and (i<=6) then q:=1;
  if i>6 then q:=a*i+b*exp(3*ln(i));
  inc(i);
  form3.Memo1.Lines.Add(FloatToStr(RoundTo(q,-2))); {это вывод в Memo}
  until i>12;
  form3.Show;

end;

мне нужно введенную цифру в Edit сделать переменноЙ "a"..
исправте код пожалуйста

[Terran]

мне нужно введенную цифру в Edit сделать переменноЙ "a"..
исправте код пожалуйста

Для этого можете использовать функцию StrToFloat или StrToInt.
К примеру:

Var
a: Real;
Begin
a:=StrToFloat(Edit1.Text);
///
Var
a: Integer;
Begin
a:=StrToInt(Edit1.Text);

[Ntlegend]

a:=IntTotr(Edit1.Text)
или
a:=FloatToStr(Edit1.Text)

[NieL]

Лови:

procedure TForm1.Button4Click(Sender: TObject);
const
  b = 3.1;
var
  i, a: Integer;
begin
  i := 1;
  try
    a := StrToInt(edit1.Text);
  except
    raise Exception.CreateFmt('Строка "%s" не является допустимой для ' +
    'ввода целого числа', [edit1.Text]);
  end;
repeat
  if i < 4 then
    q := a/i + b + sqr(i) + c;
  if (i >= 4) and (i <= 6) then
    q := 1;
  if i > 6 then
    q := a * i + b * exp(3 * ln(i));
  inc(i);
  form3.Memo1.Lines.Add(FloatToStr(RoundTo(q, -2)));
  until i > 12;
  form3.Show;
end;

[Siluet]

такс... Спасибо..уже лучше ...а вот когда я ввожу число в Edit..а потом хочу поменять это число...и у меня выходит ошибка..

[Siluet]

что означает ?

[Ntlegend]

в самом начале процедуры поставь
if Edit1.Text = '' then
exit;