| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Memo

Angelka ©   (2007-11-26 16:08:00) 

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

---

Dennis I. Komarov   (2007-11-26 17:43:00) [1]

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

---

Dennis I. Komarov   (2007-11-26 17:41:00) [2]

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

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

---

{RASkov}   (2007-11-26 17:20:00) [3]

> [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;

---

Denis__   (2007-11-26 17:14:00) [4]

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

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

---

Dennis I. Komarov   (2007-11-26 17:10:00) [5]

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

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

---

{RASkov}   (2007-11-26 16:57:00) [6]

> [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].... немного подправить только...

---

Angelka   (2007-11-26 16:44:00) [7]

{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;

---

Dennis I. Komarov   (2007-11-26 16:36:00) [8]

> [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:00) [9]

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

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

---

{RASkov}   (2007-11-26 16:34:00) [10]

> [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;

Во как :)

---

Angelka   (2007-11-26 16:30:00) [11]

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

---

{RASkov}   (2007-11-26 16:24:00) [12]

> IntToStr(StrToInt(Edit1.Text));

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

:(

> [6] Angelka   (26.11.07 16:19)

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

---

Angelka   (2007-11-26 16:19:00) [13]

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

---

Angelka   (2007-11-26 16:18:00) [14]

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

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

---

новый новичок   (2007-11-26 16:14:00) [15]

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

---

Putnik   (2007-11-26 16:13:00) [16]

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

---

Putnik   (2007-11-26 16:12:00) [17]

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

---

DimaBr   (2007-11-26 16:11:00) [18]

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

---

Наверх