как организовать заполнение несколько 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

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