|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Заполнение массива
Подскажите код как заполнить массив, через Edit и Button?
|
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
i - индекс элемента массива
50 - это всего элементов string - тип) чтобы получить значение элемента пишем: nmass[...значение нужного элемента...] например: edit1.text := nmass[2]; edit2.text := nmass[13]; или наоборот, присвоим) |
#4
|
|||
|
|||
Цитата:
|
#5
|
|||
|
|||
SetLength(nmass,100);
зы: прокоментю 100 - новое значение.. задайте любую переменную чтобы она изменялась и все) да, и.. var nmass: array of string; и всё тогда.. потом устанавливаем setlength Последний раз редактировалось ApplicatiOn, 16.11.2008 в 18:20. |
#6
|
|||
|
|||
Цитата:
А вот у меня есть такая запись, но я что то разобратяс в ней не могу, да и не работает var mas:array of strng; begin setlength(mas,length(mas)+1) mas[length(mas)-1]:=edit1.text; |
#7
|
|||
|
|||
не strng а string
да и в чем должен заключаться смысл программы? вводить просто некий текст в массив по очереди? а потом доставать, так? если так то напишу.. |
#8
|
|||
|
|||
на форме 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; |
#9
|
|||
|
|||
Цитата:
|
#10
|
|||
|
|||
такой же приведенный метод, только заместо
Edit2.Text := mas[strtoint(edit3.text)]; надо вывести все элементы в лист бокс (если по очереди) если надо все, то в цикл.. |
#11
|
|||
|
|||
Спасибо огромное!!!
|
#12
|
|||
|
|||
Код:
procedure TForm1.Button2Click(Sender: TObject); var i: integer; begin ListBox1.Clear; for i:= 1 to n do ListBox1.Items.Add(mas[i]); ShowMessage('Загружено!'); end; |
#13
|
|||
|
|||
так, в дорожку))
|