Главная страница
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.016 c
1-93485
INTAARI
2004-01-15 15:36
2004.01.29
TExcelWorksheet и TExcelApplication где взять хелп


14-93649
vidiv
2004-01-08 13:55
2004.01.29
По поводу форумов


1-93551
Rradion
2004-01-15 18:51
2004.01.29
Алгоритм перевода из УНАРНОЙ в ДВОИЧНУЮ систему?


6-93606
gs
2003-11-26 02:42
2004.01.29
Всем Hi. Подскажите можно как-нибудь переносить свои фаилы на ...


1-93444
baataars
2004-01-13 17:11
2004.01.29
ООП - вызов родительской функции