Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 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™

min@y™ (статус: Доктор наук), 29 октября 2013, 21:01 [#3]:

HWND? где?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Вадим К

Вадим К (статус: Академик), 29 октября 2013, 23:23 [#4]:

эх.давно я делфи не держал в руках. Вместо FindControl нужно FindComponent.
Галочка "подтверждения прочтения" - вселенское зло.
DNK

DNK (статус: Студент), 30 октября 2013, 00:21 [#5]:

Когда много повторяющихся элементов на форме, проще их вообще сгенерировать динамически.
"Digital Networked Knight"

30 октября 2013, 18:33: Вопрос закрыт (решение принял автор вопроса — Сергей Хепчи): Вопрос решен, эксперт ответил на 5++

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 31 января 2023, 10:10
Выполнено за 0.02 сек.
Рейтинг@Mail.ru