Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2011, 17:01   #1
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 912
Смех Получить данные из Edit массивом?

Подскажите как можно получить данные из Edit'ов и присвоить значения переменным, через массив, что бы существенно уменьшить код!
Из 24 Edit'ов получить значения и присвоить их соответственно y1...y24.
kta87 вне форума Ответить с цитированием
Старый 24.10.2011, 20:13   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,426
По умолчанию

Примерно так
Код:
var
 a:array of Integer;
 i:integer;
begin
  For i:=0 to Form1.ComponentCount -1 do
  begin
   if (Form1.Components[i] is TEdit) then
   Begin
    SetLength(a,Length(a)+1); 
    a[i]:=StrToInt((Form1.Components[i] as TEdit).Text);
   end;
  end;
end;
Человек_Борща вне форума Ответить с цитированием
Старый 24.10.2011, 21:41   #3
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 912
По умолчанию

Меня смущает то, что на форме есть еще несколько Edit'ов, нужно как то сделать так что бы другие не попали в массив. как это сделать?
kta87 вне форума Ответить с цитированием
Старый 24.10.2011, 21:57   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Бросьте в Tag нужных Edit-ов 1, не нужных 0 и анализируйте его значение
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 24.10.2011, 22:01   #5
kta87
Форумчанин
 
Аватар для kta87
 
Регистрация: 22.02.2010
Сообщений: 912
По умолчанию

Цитата:
Сообщение от Аватар Посмотреть сообщение
Бросьте в Tag нужных Edit-ов 1, не нужных 0 и анализируйте его значение
О, теперь понятно как сортировать!
kta87 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно получить текст из 2х edit aesoem Win Api 8 31.01.2010 20:12
Данные в Edit program123 Общие вопросы Delphi 5 08.05.2009 18:12
Как работать с массивом Edit-ов subsonic Общие вопросы Delphi 3 02.03.2009 07:36
Просматривать данные из AdoTable в Edit Mishina БД в Delphi 2 15.06.2008 11:48
Как считать данные из Edit? Svop Компоненты Delphi 11 20.11.2006 16:45