|
|
Регистрация | << Правила форума >> | 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
да и в чем должен заключаться смысл программы? вводить просто некий текст в массив по очереди? а потом доставать, так? если так то напишу.. |