[boxep]

Подскажите код как заполнить массив, через Edit и Button?

[ApplicatiOn]

var
nmass: array[1..50] of string;

...

в событии на клик по кнопке пишем:

var
i: integer;

begin
for i:=1 to 50 do
nmass[i] := edit1.text;
end;

и вы забьете 50 ячеек массива текста edit1.text

[ApplicatiOn]

i - индекс элемента массива
50 - это всего элементов
string - тип)

чтобы получить значение элемента пишем:

nmass[...значение нужного элемента...]

например:

edit1.text := nmass[2];
edit2.text := nmass[13];

или наоборот, присвоим)

[boxep]

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

var
nmass: array[1..50] of string;

...

в событии на клик по кнопке пишем:

var
i: integer;

begin
for i:=1 to 50 do
nmass[i] := edit1.text;
end;

и вы забьете 50 ячеек массива текста edit1.text

Спасибо, а как сделать динамический массив что не 50 было ячеек, а автоматом увеличивалось?

[ApplicatiOn]

SetLength(nmass,100);

зы: прокоментю

100 - новое значение.. задайте любую переменную чтобы она изменялась и все)

да, и..

var
nmass: array of string;

и всё тогда.. потом устанавливаем setlength

[boxep]

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

SetLength(nmass,100);

зы: прокоментю

100 - новое значение.. задайте любую переменную чтобы она изменялась и все)

да, и..

var
nmass: array of string;

и всё тогда.. потом устанавливаем setlength

А вот у меня есть такая запись, но я что то разобратяс в ней не могу, да и не работает

var mas:array of strng;

begin
setlength(mas,length(mas)+1)
mas[length(mas)-1]:=edit1.text;

[ApplicatiOn]

не strng а string

да и в чем должен заключаться смысл программы? вводить просто некий текст в массив по очереди? а потом доставать, так? если так то напишу..

[ApplicatiOn]

на форме 2 кнопки и 3 эдита.

Код:

var
mas: array of string;
n: integer=1;

...

//это мы задаем...

procedure TForm1.Button1Click(Sender: TObject);
begin
setlenght(mas,n+1);
mas[n] := Edit1.Text;
n:= n+1;
end;

// забираем

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text := mas[strtoint(edit3.text)];
end;

в edit3.text лежит индекс массива

в edit2.text выдается строка из массива по указанному индексу из edit3.text;

[boxep]

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

не strng а string

да и в чем должен заключаться смысл программы? вводить просто некий текст в массив по очереди? а потом доставать, так? если так то напишу..

Да, именно с начало вводить числа в массив, а потом вывести их в Listbox

[ApplicatiOn]

такой же приведенный метод, только заместо

Edit2.Text := mas[strtoint(edit3.text)];

надо вывести все элементы в лист бокс (если по очереди)

если надо все, то в цикл..

[boxep]

Спасибо огромное!!!

[ApplicatiOn]

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
ListBox1.Clear;
for i:= 1 to n do
ListBox1.Items.Add(mas[i]);
ShowMessage('Загружено!');
end;

[ApplicatiOn]

так, в дорожку))