Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.29;
Скачать: 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 вся ветка

Текущий архив: 2004.01.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
3-93375
--none--
2003-12-31 16:29
2004.01.29
ADOTable


1-93534
Graff
2004-01-18 00:42
2004.01.29
Определить имя компонента по его индексу.


6-93622
DAnton
2003-11-24 16:21
2004.01.29
Альтернатива net send?


6-93612
DAnton
2003-11-24 10:34
2004.01.29
<b>Помогите кто чем может с <u>аттачем</u>.</b>


7-93713
Tik
2003-11-13 16:17
2004.01.29
Буфер .