|
Вопрос # 6 488/ вопрос закрыт / |
|
Приветствую, уважаемые эксперты!
Например, на форме имеются 10 одинаковых полей, как их значения (edit1.text, edit2.text, ... , edit10.text) передать в массив
 |
Вопрос задал: Сергей Хепчи (статус: Посетитель)
Вопрос отправлен: 29 октября 2013, 18:22
Состояние вопроса: закрыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Вадим К
Здравствуйте, Сергей Хепчи!
Где то так:
var a:array[1..10] of string;
i:integer;
begin
for i:= 1 to 10 do
a[i] := TEdit(FindComponent('Edit'+inttostr(i))).text;
end;
Но только если что, то нужно добавить проверок и подобного.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 29 октября 2013, 18:44
Оценка за ответ: 5
Комментарий к оценке: Спасибо Вадим - отлично!
Вопрос закрыт, если что еще чего-нибудь спрошу:)
|
Мини-форум вопроса
Всего сообщений: 5; последнее сообщение — 30 октября 2013, 00:21; участников в обсуждении: 4.
|
|
Вадим К (статус: Академик), 29 октября 2013, 18:45 [#1]:
Но вообще то такие вещи делают с помощью StringGrid.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Сергей Хепчи (статус: Посетитель), 29 октября 2013, 19:08 [#2]:
var a:array[1..10] of string;
i:integer;
begin
for i:= 1 to 10 do
a[i] := TEdit(FindControl('Edit'+inttostr(i))).text;
end;
- - - - - - - - - - - - - - - - - - - - - - - - - - -
[Error] Unit1.pas(37): Incompatible types: 'HWND' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Что-то не нравится, а что?
|
|
min@y™ (статус: Доктор наук), 29 октября 2013, 21:01 [#3]:
HWND? где?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Вадим К (статус: Академик), 29 октября 2013, 23:23 [#4]:
эх.давно я делфи не держал в руках. Вместо FindControl нужно FindComponent.
Галочка "подтверждения прочтения" - вселенское зло.
|
|
DNK (статус: Студент), 30 октября 2013, 00:21 [#5]:
Когда много повторяющихся элементов на форме, проще их вообще сгенерировать динамически.
"Digital Networked Knight"
|
30 октября 2013, 18:33: Вопрос закрыт (решение принял автор вопроса — Сергей Хепчи): Вопрос решен, эксперт ответил на 5++
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
