Memo

← →
Angelka (2007-11-26 16:08) [0]

Здравствуйте! Такой вопрос, в кратце объясню. На форме размещены компоненты Memo Edit and Button. Нужно записать фисло в Edit нажать на кнопку и чтобы оно перевелось в поле Мемо, это я знаю как, а как сделать чтобы следующее введенное число в Едит заносилось в Мемо но уже второй строчкой? Помогите блондинке. Мой коддинг
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Text := IntToStr(StrToInt(Edit1.Text)); end;

← →
DimaBr © (2007-11-26 16:11) [1]

procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Add(Edit1.Text); end;

← →
Putnik (2007-11-26 16:12) [2]

memo1.lines.add(IntToStr(StrToInt(Edit1.Text)));

← →
Putnik (2007-11-26 16:13) [3]

Ой-ой-ой!!! Сорри)

← →
новый новичок (2007-11-26 16:14) [4]

Да ето не блондинка, а волосатый мужик, сто пудова -)))

← →
Angelka (2007-11-26 16:18) [5]

Putnik спасибо все работает нормально!

новый новичок ррррррррр еще слово против блондинки я тебе вирусяку закину)

← →
Angelka (2007-11-26 16:19) [6]

DimaBr © спасибо!!!!

← →
{RASkov} (2007-11-26 16:24) [7]

> IntToStr(StrToInt(Edit1.Text));

> [5] Angelka (26.11.07 16:18)
> Putnik спасибо все работает нормально!

:(

> [6] Angelka (26.11.07 16:19)

:)
Оказывается не все так безнадежно)

← →
Angelka (2007-11-26 16:30) [8]

а еще можно вопрос?) теперь надо в мемо все числа которые ввели сложить нажатием на кнопку и ответ вывести в Label

← →
{RASkov} (2007-11-26 16:34) [9]

> [8] Angelka (26.11.07 16:30)

По секрету можно поступить так:
procedure ButtonPlusClick(); begin try Memo.Lines.Add(Edit.Text); Memo.Tag:=Memo.Tag+StrToInt(Edit.Text); except ShowMessage("Не число!!:("); end; end; procedure ButtonRavnoClick; begin Label.Caption:=IntToStr(Memo.Tag); Memo.Tag:=0; end;

Во как :)

← →
Dennis I. Komarov © (2007-11-26 16:36) [10]

> [8] Angelka (26.11.07 16:30)

procedure TForm1.Button2Click(Sender: TObject); var i: Integer; begin i:=0; for i:=0 to Memo1.Lines.Count - 1 do Inc(i, StrToInt(Memo1.Lines[i])) Label1.Caption:=IntToStr(i); end;

← →
{RASkov} (2007-11-26 16:36) [11]

> try
> Memo.Lines.Add(Edit.Text);
> Memo.Tag:=Memo.Tag+StrToInt(Edit.Text);
> except

Лучше местами поменять строки :) Иначе.....непонятка может быть )

← →
Angelka (2007-11-26 16:44) [12]

{RASkov} Спасибочки!
procedure TForm1.Button5Click(Sender: TObject); begin try Memo1.Lines.Add(Edit6.Text); Memo1.Tag:=Memo1.Tag+StrToInt(Edit6.Text); except ShowMessage("Введите число!"); end; Edit6.Text := ""; end; procedure TForm1.Button6Click(Sender: TObject); begin Label6.Caption:=IntToStr(Memo1.Tag); //Memo.Tag:=0; - необязательно! :)) end;

← →
{RASkov} (2007-11-26 16:57) [13]

> [12] Angelka (26.11.07 16:44)

Во первых: обрати внимание на [11]
во вторых:

> //Memo.Tag:=0; - необязательно! :))

Всеж наверное нужно сделать так:
procedure TForm1.Button6Click(Sender: TObject); begin Label6.Caption:=IntToStr(Memo1.Tag); Memo1.Clear; //или Memo.Lines.Clear; Memo1.Tag:=0; end;
Иначе как-то "одноразово" получается)
Так же не плох вариант [10].... немного подправить только...

> [13] {RASkov} (26.11.07 16:57)

ИМХО, для поставленной задачи в [8] ничего подправлять не надо! :)
...
За исключением, что в условии не фигурируют целые числа.

> новый новичок ррррррррр еще слово против блондинки я тебе
> вирусяку закину)

Ну, блин, или точно блонди, или так натурально косит! Ты б хоть почитал(а) про мемо что-нибудь!

← →
{RASkov} (2007-11-26 17:20) [16]

> [14] Dennis I. Komarov © (26.11.07 17:10)

надо :)
В любом случае обработка ошибок не помешала бы....)

Я и про [11] собственно все по той же причине трындю...)
Т.е. если в Edit"е не число, то незачем его добовлять в мемо перед показом сообщения, что это не число...
procedure TForm1.Button5Click(Sender: TObject); begin try Memo1.Tag:=Memo1.Tag+StrToInt(Edit6.Text); //Если здесь ошибка то... Memo1.Lines.Add(Edit6.Text); //...это уже не выполнится except ShowMessage("Введите число!"); end; Edit6.Text := ""; end;

> [16] {RASkov} (26.11.07 17:20)

У нее же там только числа! Вот проверять при вводе это да.
Да в принципе конечно можно и при вводе считать сумму, но это противоречит условию [8].

Да, от шаловливых ручек сделать Memo1.ReadOnly:=true; :)

Memo Найти похожие ветки