Модераторы: Snowy, MetalFan, bems, Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> обработать 16 текстовых форм 
V
    Опции темы
supervladislav
Дата 14.9.2012, 15:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Подскажите , как к данному вопросу можно подойти наиболее рационально ,чтобы не плодить множества if else.
Использую Rad studio 2010, есть ли в rad studio 2010 возможность обработки через коллекции скажем всех текстовых эллементов.
PM MAIL   Вверх
Данкинг
Дата 14.9.2012, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Что такое "текстовая форма" и как её требуется обработать?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 14.9.2012, 16:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Данкинг, за неделю войны с delphi 7 я уже забыл для чего его устанавливал  smile 
Код

timework1.Text

как обработать много таких вот текстовых полей , ой забыл как они называются не во всём ещё разобрался в RAd studio.
PM MAIL   Вверх
supervladislav
Дата 14.9.2012, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Данкинг, хотелось бы сделать что-то вроде вот такого, но не ясно на первых порах как вставить  i в выражение. 
Код

procedure TForm1.FormCreate(Sender: TObject);
 var a:Integer;
 data:array[1..16] of string;
 begin
 for a := 1 to 16 do
 ShowMessage(timedelay+StrToString(i).text);
 end;



Это сообщение отредактировал(а) supervladislav - 14.9.2012, 17:54
PM MAIL   Вверх
Данкинг
Дата 14.9.2012, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



supervladislav, а разве по FindComponent ты вопроса не задавал где-то? Если задавал - то поиск и обращение к компонентам формы осуществляется через него.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 14.9.2012, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Данкинг, FindComponent  вы имеете ввиду функцию языка delphi 2010?

PM MAIL   Вверх
Данкинг
Дата 14.9.2012, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(supervladislav @  14.9.2012,  19:35 Найти цитируемый пост)
вы имеете ввиду функцию языка delphi 2010?

Да она и в D7 есть.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 14.9.2012, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Данкинг, чтобы темы не плодить ,скажите какой книгой по delphi 2010 целесообразднее пользоваться?
PM MAIL   Вверх
Данкинг
Дата 14.9.2012, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(supervladislav @  14.9.2012,  19:40 Найти цитируемый пост)
скажите какой книгой по delphi 2010 целесообразднее пользоваться? 

Не скажу, я уже давно учебников не покупал. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 14.9.2012, 18:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Данкинг, читал чтобы в курс дела войти вот эту книгу 
Основы программирования Delphi 7.pdf
Очень просто ,но крайне сжато.


PM MAIL   Вверх
supervladislav
Дата 15.9.2012, 08:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Данкинг, скажите я не очень понимаю как работает данная продцедура .
Почитал в документации про FindComponent и посмотрел примеры.
Вот один ниже присудствует.

 
Код

with (FindComponent(timedelay) as TComboBox) do
    begin
     visible:=false;
    end;


Я правильно понимаю ,что найдуться все TComboBox с названием timedelay.





PM MAIL   Вверх
Данкинг
Дата 15.9.2012, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Ну да, по идее, попробуй на своей программе.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 15.9.2012, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Данкинг, я имею ввиду ,что названия то уникальны ,в названии нехватает цифры.
timedelay1
timedelay2
timedelay3
timedelay4

Добавлено через 4 минуты и 30 секунд
Продцедура FindComponent так ищет или подругому.
Вобще не очень просто понятно , если продцедура ищет подругому , зачем она вобще нужна.
PM MAIL   Вверх
Данкинг
Дата 15.9.2012, 13:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Цитата(supervladislav @  15.9.2012,  12:34 Найти цитируемый пост)
Продцедура FindComponent так ищет или подругому.

Он ищет заданный ей компонент. Что требуется-то сделать в конечном итоге?
Цитата(supervladislav @  15.9.2012,  12:34 Найти цитируемый пост)
Вобще не очень просто понятно , если продцедура ищет подругому , зачем она вобще нужна. 

Что-что? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
supervladislav
Дата 15.9.2012, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


///\\\///\\\///\\\
***


Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9



Вот этот вариант то ,что надо.
но не понятно , как мне считать то ,что записано в поле  timedelay,что после цикла должно идти?

Код

procedure TForm1.FormCreate(Sender: TObject);
 var a:integer;
 begin
 for a := 1 to 16 do begin
 with(Form1.FindComponent('timedelay'+IntToStr(a))) do
 end;
 end;


Данкинг, я х

PM MAIL   Вверх
Страницы: (3) Все [1] 2 3 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1132 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.