Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите решить проблему!!!!!!!! [D6, Win95/98]

Andy BitOff © (2002-09-05 10:31:00)
Здравствуйте.
Подскажите пожалуйста как реализовать следующую задачу. Есть куча страниц (TabControl), на каждой странице несколько лабелов (Label) и эдитов (Edit), сколько и какие у них имена не известно. Надо прочитать текст из всех эдитов. Я пытаюсь сделать так:

var
p,i:integer;
s:string;
Tn:TcomponentName;
begin
p:=pc.ActivePageIndex; //активная страница
//проверить надо все контролы
for i:=0 to pc.Pages[p].ControlCount-1 do
begin
//если контрол лабел, то нам не надо,
//а все остальные эдиты
if pc.Pages[p].Controls[i].ClassType <> TLabel then
begin
{А здесь мы можем получить либо стринг с именем
контрола, либо TComponentName его же, НО ЧТО С
ЭТИМ ДЕЛАТЬ и как получить текст из этого контрола??? }
s:=pc.Pages[p].Controls[i].GetNamePath;
Tn:=pc.Pages[p].Controls[i].Name;
?????????????????????
end;
end;
end;

Подскажите пожалуйста. Может Вы предложите свой вариант решения этой задачи.

Andy BitOff (2002-09-05 22:34:00) [1]
Да я так и сделал, всмысле добавил, но думал может через and или or.

Guerrillero Che (2002-09-05 14:37:00) [2]
в чем проблема то ?
добавь еще пару условий, вида
if (pc.Pages[p] is TMemo) then Text:=(pc.Pages[p].Controls[i] as TMemo).Lines.Text;

Eugene (2002-09-05 14:23:00) [3]
высылай на мыло процедуру, исправлю и пришлю обратно

Andy BitOff (2002-09-05 14:13:00) [4]
Всплываем.

Andy BitOff (2002-09-05 12:59:00) [5]
Все дело в том, что я уверен, что там ничего другого не будет. Но текст надо прочитать не только из Edit"ов но и из Memo и Combobox. Как это сделать в одном цикле

lenin (2002-09-05 10:49:00) [6]
Я немного ошибся правильнее будет так:
if (pc.Pages[p].Controls[i] is TEdit) then Text:=(pc.Pages[p].Controls[i] as TEdit).Text;

Петров Денис (2002-09-05 10:46:00) [7]
Все хорошо до строки "if pc.Pages[p].Controls[i].ClassType <> TLabel then".
Если уж точно анализируются TEdit"ы, то лучше написать так:
if pc.Pages[p].Controls[i].ClassType = TEdit then
(а то мало ли, вдруг на TabSheet появится какой-нибудь TImage, и все). А добраться до свойства Text можно так:

(pc.Pages[p].Controls[i] as TEdit).Text

lenin (2002-09-05 10:37:00) [8]
if (Controls[i] is TEdit) then
Text:=(Controls[0] as TEdit).Text;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »