Цикл для записи Edit[i]

[Sample]

нужно сделать следущее
Form1->StringGrid1->Cells[0]=Form4->Edit->Text;
оно пишет [C++ Error] Unit1.cpp(53): E2316 'Edit' is not a member of 'TForm4'
а вообще это как-нибудь делается?

PS я понимаю, что, наверно, уже всех достал , но я пытаюсь выучить Builder по книжке.  А там етого нет  

[x77]

а что, в билдере Edit[1] эквивалентно Edit1 ? я просто не знаю сишного синтаксиса, но по-моему, даже в си такие извраты не проходят.

если я правильно понял, у тебя на форме куча полей ввода (Edit1, Edit2, ..., EditN), текст которых надо положить в соотв. ячейки грида. проблема в том, что ты к ним неправильно обращаешься. в дельфях это выглядело бы так:

Form1.StringGrid1.Cells [0, i] := (Form4.FindComponent ('Edit' + IntToStr (i)) as TEdit).Text;

функция FindComponent вернёт тебе компонент (т.е. объект) по его имени. имя это ты получаешь, как 'Edit' + IntToStr (i) { опять же, не знаю, как в билдере перевести целое в строку, скорее всего, так же }. ну и всё, собственно. компонент этот надо привести к нужному типу, отсюда - ... as TEdit. и дальше уже работать с его свойством.

[Never]

Sample, я тебе тут по быренькому проверила проход по Эдитам, правда выгнала их значения в листбокс. Работет. Думаю как его вогнать в твой Стринг Грид сам сообразишь, да?

{
int i;
for (i=0;i<ComponentCount ;i++)
        if (dynamic_cast<TEdit*>(Components ))
                ListBox1->Items ->Add (dynamic_cast<TEdit*>(Components )->Text);
}

Короче- фишка в чем: В билдере есть список всех компонентов. Ты их считаешь все с помощью ComponentCount. В твоем случае это надо сделать для формы4. Дальше циклом проходишь по всем компонентам выбирая из них те, которые можно привести к типу Эдит. И загоняешь куда тебе нужно текст из этих самых компонетнов, которые подходят под Эдит, т.е. на деле из самих Эдитов.
Ой, кажется не очень понятно сказала!

[x77]

Never, даже мне понятно

а что, в билдере FindComponent не работает?

[Never]

x77, издеваешься?
Ты знаешь- я насчет FindComponent просто без  понятия. Как о многом, в общем-то. Может и работает, только я его не знаю.

[Never]

Гы...x77, а как твоя строка избегает того, чтобы зайти 2 раза в один и тот же компонент? Не поняла...

[x77]

Never, я не издеваюсь.  я не знаю билдер. но поскольку это во многом пародия на дельфи, конструкции и логика работы там совпадают.

ты ищешь все компоненты, приводишь их к опр. типу, и если это удалось - работаешь с компонентом дальше.

есть другой вариант:
у формы есть метод: FindComponent, который по имени компонента возвращает сам компонент или nil, если такового не нашлось. когда у тебя есть 20 полей ввода, Edit1..Edit20, можно перебрать только их этой функцией. для этого формирует имя компонента как 'Edit' + IntToStr (i), и работаем с полученным компонентом.

реально эти два подхода ничем не отличаются, т.к. FindComponent сам перебирает компоненты.

просто сумничать решил

[Never]

А , я не въехала, что ты им номер цепляешь... Т.е. если они все имеют нормальные имена, а не порядковые, то ты их так не пройдешь?

[Sample]

{
int i;
for (i=0;i<ComponentCount ;i++)
        if (dynamic_cast<TEdit*>(Components ))
                ListBox1->Items ->Add (dynamic_cast<TEdit*>(Components )->Text);
}

Never биг сенкс!! работает!

[x77]

Never, нет, это имеет смысл только для компонентов с заранее известным именем.

на самом деле, вариантов масса. например, у каждого edit'а можно выставлять свойство Tag, которое, соб-но, и предназначено для таких вот вещей. и в переборе проверять, если Tag = 1, то приводим к Edit и пишем, если не равно - идём дальше.

[Never]

x77, Ну да, в это я въехала, слава Богу. А то за последние  несколько дней, а уж было решила, что я совсем бум-бум, спасибо  Бейсику.
Sample,