Массив через Еdit

[Nefra]

Нужно заполнить массив из введенных в поля Еdit данных.
Полей 10, соответственно 10 параметров надо записать в массив.
Писать 10 раз a[1]:=Edit1.text a[2]:=Edit2.text и т.д как-то не логично.
Нужен собственно цикл заполнения массива n элементов из n эдитов.
ЗЫ тапками не бросать. только с Паскаля пришла

[NetSpace]

допустим, они у Вас все на форме расположены, а не на панели.

with Form1 do
for i:=1 to 10 do
begin
   a[i]:=TEdit(controls[i-1]).Text;//на форме нумерация элементов, кажись, с нуля
end;

а дальше, если всё работает, можете менять число 10 на ваше любимое N

[Serge_Bliznykov]

категорически не рекомендую пользоваться способом, предложенным NetSpace.
малейшее изменение порядка компонентов на форме и всё - крах программы!

тогда уже можно применить способ с поиском нужных компонентов на форме Form1:

var
  MyComponent: TComponent;
  i : integer;
begin
 for i:=1 to n do begin
   MyComponent :=  Form1.FindComponent('Edit'+IntToStr(i));
   if MyComponent <> nil then
    a[i] := TEdit(MyComponent).Text;
  end;

p.s. данный код не проверяет, является ли найденный на форме Form1 компонент с именем EditX (где х число от 1 до n) собственно TEdit. При желании такую проверку несложно добавить.

и ещё совет. Для таких целей, как ручное заполнение\изменение массива НАМНОГО удобнее воспользоваться компонентом TStringGrid - там и заголовки добавить можно, да и перебирать ячейки намного проще, надежнее и удобнее!

[Человек_Борща]

А ведь можно проще..

procedure TForm1.btn1Click(Sender: TObject);
var
 ts:TStringList;
 mass:array of string;
 i:integer;
begin
  ts:=TStringList.Create;
  ts.Delimiter:=',';     //задаём разделитель строки
  try
   ts.DelimitedText:='1,2,3,4,5,6,7,8,9,0';  //Элементы массива разделённые запятой
    SetLength(mass,ts.Count);   //Уст. длинну массива равной кол-ву элементов.
     for i:=0 to ts.Count -1 do
       begin
         Mass[i]:=Ts.strings[i];   //Заполняем
       end;
  finally
    FreeAndNil(ts);
  end;
end;

И это пример со строкой в токовой массив, а если прикрутить тип Variant то можно вообще что угодно понапихать. Ну да ладно..
Тс. нужно чтобы из строки выгребать элементы массива раделённые чем-то и пихать эти элементы в array of что-то.

[Nefra]

Благодарю за помощь) подошел метод поиска на форме, за это отдельное спасибо. Если можно задам здесь ещё один вопрос.
Как сделать проверку на заполненность Edit? Что бы цикл чтения не происходил если эдит не заполнен.

[Anton911]

Сообщение от Nefra

Благодарю за помощь) подошел метод поиска на форме, за это отдельное спасибо. Если можно задам здесь ещё один вопрос.
Как сделать проверку на заполненность Edit? Что бы цикл чтения не происходил если эдит не заполнен.

if Edit1.text<>'' then //едит заполнен, делаем что нужно
else //едит не зполнен, продолжаем действия

[Stilet]

  if (MyComponent <> nil)and(MyComponent is TEdit)and(TEdit(MyComponent).Text='') then
    a[i] := TEdit(MyComponent).Text;

[Surgeon]

Сообщение от Nefra

Благодарю за помощь) подошел метод поиска на форме, за это отдельное спасибо. Если можно задам здесь ещё один вопрос.
Как сделать проверку на заполненность Edit? Что бы цикл чтения не происходил если эдит не заполнен.

Вопрос можно понять двояко:
1 - не читать из текущего Edit если Text=''
2 - не выполнять весь обход если хотя бы один из них пуст
1 уже ответили, а для 2 предлагаю в процедуре обработки поставить обход два раза, первый - "трутень" - в массив ничего не читает, но проверяет заполненность каждого компонента, при отстутствии текста (в любом) - выставляет булеву переменную EditsArrayIsIncomplete в true, это флаг - набор данных не полон и реально читать не надо:

см. код Stilet'a
var
EditsArrayIsIncomplete:boolean;
begin
EditsArrayIsIncomplete:=true;
...
if (MyComponent <> nil)and(MyComponent is TEdit)and(TEdit(MyComponent).Text='') then
   EditsArrayIsIncomplete:=false ;
...
if EditsArrayIsIncomplete then 
 begin
  запускам цикл и забираем значения
 end;
...

[NetSpace]

категорически не рекомендую пользоваться способом, предложенным NetSpace.
малейшее изменение порядка компонентов на форме и всё - крах программы!

Понаписали-то. А можно было бы просто на форму кинуть панель и на панели разместить все ваши EDIT'ы. тогда просто писали бы

with Panel1 do...

а дальше всё то же самое.
и не зависели бы от количества и расположенния компонентв на форме

[Serge_Bliznykov]

и не зависели бы от количества и расположенния компонентв на форме

ну и зависели бы от расположения и порядка элементов на панели... Это что - принципиально улучшает (делает его более надёжным) данный код?! Да никоим образом!


p.s. впрочем, автор темы уже решил эту проблему...