Скачать: CL | DM;

как организовать заполнение несколько Tedit одновременно?   Найти похожие ветки 

← →
новичок_из_сыктывкара ©   (2004-01-17 22:05) [0]

i:=random(10);
case i of
0:edit1.Text:="1130511011";edit2.Text:="eertter";edit3.Text:="eertter";edit4.Text:="eertter";
1:edit1.Text:="выо";edit2.Text:=",,,,,"";edit3.Text:="!!!!!";edit4.Text:="текст";
\\и т.д. до 10..
end;
должно быть что то вроде такого..

---

← →
Stilgar ©   (2004-01-17 22:07) [1]

0: begin edit1.Text:="1130511011";edit2.Text:="eertter";edit3.Text:="eertter";edit4.Text:="eertter"; end;
Открываем учебник и читаем про операторные скобки.

---

← →
Vit@ly ©   (2004-01-17 22:19) [2]

Если не секрет, как рождаются такие проблемы

---

← →
cobby ©   (2004-01-18 02:10) [3]

"как организовать заполнение несколько Tedit одновременно?"
отвечаем:

for k:=0 to ComponentCount-1 do begin
if (Components[k] is TEdit) then (Sender as TEdit).text := //нужную вам строчку

это я ответил на вопрос... но вы похоже хотите чегото иного

---

← →
Плохиш_   (2004-01-18 02:26) [4]

> Vit@ly © (17.01.04 22:19) [2]
> Если не секрет, как рождаются такие проблемы

О, это всегда происходит, когда пропускают два самых важных этапа в изучении программирования:
1. Прочтение литературы
2. Программа Hello world

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c