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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.12.2007, 15:34   #1
Prisian
Пользователь
 
Регистрация: 23.04.2007
Сообщений: 38
По умолчанию Массив компонентов TEdit

я создаю динамичеески массив компонентов Едит.
нужно, чтобы считывалась инфа с поля текст в массив.
помогите, пожалуйста, кто может кодом как это роеализовать...
Prisian вне форума Ответить с цитированием
Старый 27.12.2007, 20:05   #2
Jeni
Форумчанин
 
Регистрация: 31.05.2007
Сообщений: 486
По умолчанию

Не совсем понял вопрос, но если требуется что-записать в массив компонентов, тогда можно так:

если M: array of TEdit; это массив компонентов, то записать в некоторый элемент можно так:
M[i].Text := '12345';
Здесь имеется ввиду, что обработка идет в цикле (раз уж работаем с массивом)
Jeni вне форума Ответить с цитированием
Старый 28.12.2007, 13:24   #3
Prisian
Пользователь
 
Регистрация: 23.04.2007
Сообщений: 38
По умолчанию

я имею введу чтобы считать с поля текст в другой массив, например типа Real:
a:array [1..100] of TEdit;
b:array[1..100] of real;
так вот нужно записать инфу в массив b.
Prisian вне форума Ответить с цитированием
Старый 28.12.2007, 13:59   #4
Domovoy
Форумчанин
 
Регистрация: 24.10.2007
Сообщений: 254
По умолчанию

Ндак в чом проблема то?

b[i]:=StrToFloat(a[i].Text)
Domovoy вне форума Ответить с цитированием
Старый 28.12.2007, 14:02   #5
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Наверное, вот это:
Код:
var tcomp: TComponent;
i: integer;
b:array[1..100] of real;
begin
for i:=1 to 100 do
begin
tcomp:=FindComponent('Edit'+IntToStr(i));
if tcomp<>nil then
try
b[i]:=StrToFloat((tcomp as TEdit).Text);
except
ShowMessage((tcomp as TEdit).Name+' содержит не число!');
end;
end;
end;
mihali4 вне форума Ответить с цитированием
Старый 28.12.2007, 19:04   #6
andrey4623
Форумчанин
 
Аватар для andrey4623
 
Регистрация: 31.05.2007
Сообщений: 266
По умолчанию

сначала-то надо каждый edit создать...
andrey4623 вне форума Ответить с цитированием
Старый 28.12.2007, 20:08   #7
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от andrey4623 Посмотреть сообщение
сначала-то надо каждый edit создать...
Вы вот уже в какой теме выдаете фразы невпопад.
Перед "ответом" не сочтите за труд почитать предыдущие сообщения и, в особенности, сам вопрос темы...
mihali4 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
TEdit green Компоненты Delphi 17 16.03.2008 07:13
массив tedit и процедура с ним(delphi) xbIm Помощь студентам 2 21.02.2008 23:57
TEdit Xardas Общие вопросы Delphi 2 17.01.2008 02:04
TEdit, TEdit, TEdit Oleg Romanchuk Помощь студентам 2 20.08.2007 11:30