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

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

Использование edit1

Страницы:   < 1 2 3 >

rusmus ©   (2012-01-26 10:28:00) 

Здравствуйте!
Проблема. Никак не могу сделать так чтобы в цикле через Edit1 вводит числа. Компонента должна ждать ввода. Не получается.

for i:=1 to n do
 begin
  edit1.SetFocus;
  a[i]:=strToInt(edit2.text);
  symma:=symma+1/a[i];
 end;

Пишет ошибку деление на ноль.

---

Ega23   (2012-01-26 10:34:00) [41]

Положи TMemo

---

OW   (2012-01-26 10:32:00) [42]

нужно событие-пинок, по которому она поймет, что ввод закончен.

предложить могу
 TfrmMain = class(TForm)
 private     { Private declarations }
   i: integer;
......
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  i := i + 1;
 a[i]:=strToInt(edit2.text);
 symma:=symma+1/a[i];
end;

---

Страницы:   < 1 2 3 >

Наверх