ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите ПЛИЗЗЗЗЗ
9 сообщений из 9, страница 1 из 1
Помогите ПЛИЗЗЗЗЗ
    #32119786
Hook
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hook
Гость
Всем...
Доброе Утро

Помогите ПЛИЗЗЗЗЗ :(
Есть несколько Форм.
Одну из форм под названием (InformationF ) я вызвыаю
постоянно среди других Форм.
В Форме (InformationF ) есть control (TEdit) в которую я чо нить
пишу.
Так же в формах которые вызывают (InformationF) есть
control-ы (TEdit) в которые я должен поместить значение из
(InformationF ) control (TEdit) .
Я попробовал зделать процедурку типа такой :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure TInformationF.GetText(F: TForm; C: Tclass);
Var
 I:Integer;
begin
  With F do
  begin
    For I:= 0  to ComponentCount- 1  do
     if Components[i].ClassType=C then
      With Components[i] as C do
      begin
       Text:=Edit1.Text;
      end;
  end;
end;

которая передает Название формы,и Класс который я хочу
использовать. Процедурка раположена в InformationF.
Она работет но только вместо того
чтобы присваивать значение Сontrol-у он значение передает
в InformationF.Caption :(

Помогите уважаемые...
Может я недоглядел что-нить :((

Заранее благодарен!!!!
...
Рейтинг: 0 / 0
14.03.2003, 06:54
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32119811
m_kus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m_kus
Гость
Зачем передаёшь TClass?? Ты же написал, что у тебя именно TEdit?
Ты пользуешься свойством Text, которое есть не у любого класса... Поэтому компилятор пишет не в Components(i).Text (он думает, что там НЕТ такого свойства), а в InformationF.Text...
Но раз уж хочется передавать класс, я бы написал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TInformationF.GetText(F: TForm; C: Tclass);
Var
 I:Integer;
begin
  Assert(C is TCustomEdit);
  With F do
  begin
    For I:= 0  to ComponentCount- 1  do
     if Components[i].ClassType=C then
      With Components[i] as TCustomEdit do
      begin
       Text:=Edit1.Text;
      end;
  end;
end;
...
Рейтинг: 0 / 0
14.03.2003, 08:37
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32120006
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
Я вообще не понял задачу - ты чего, хочешь писать в любую форму в любой контрол или толко в один и тот же?
...
Рейтинг: 0 / 0
14.03.2003, 11:52
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32120025
Hook
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hook
Гость
У меня на форме несколько TEdits
и кликнув на какой нить Edit
открывается InformationF
и взять отуды значения такового же
Edit-а
...
Рейтинг: 0 / 0
14.03.2003, 12:11
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32120037
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
А там оно как появляется?

И мне кажется гораздо лучше оформить функцией, типа:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
function TInformationF.GetText(C: string //имя нужного edit-a): string;
Var I:Integer;
begin
    For I:= 0  to ComponentCount- 1  do
     if Components[i] is TEdit then begin
       Result := Components[i].Text;
       Break;
     end;
end;

......

//вызывать из другой формы так:
Edit45.text := InformationForm.GetText('Edit45');


А то ты как то через заднее место сделал все, извиняюсь :)
...
Рейтинг: 0 / 0
14.03.2003, 12:27
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32120040
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
Эх, забыл:
Код: plaintext
1.
2.
if Components[i] is TEdit then
  if TEdit(Components[i]).Name = C then begin
....
...
Рейтинг: 0 / 0
14.03.2003, 12:29
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32120060
Hook
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hook
Гость
Уважаемый tygra

Контрол (Form1.Edit) вызывает
форму а там есть InformationF.Edit1
а чо нить туды ввожу и закрываю форму.
а она должна отобразитси на (Form1.Edit)


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
procedure TInformationF.GetText(F: TForm; C: Tclass);
Var
 I:Integer;
begin
  With F do
  begin
    For I:= 0  to ComponentCount- 1  do
     if Components[i].ClassNameIs('TEdit') then
      With Components[i] as TEdit do
      begin
        If  name=c1 then
         Text:=Edit1.Text;
      end;  
  end;
end;
...
Рейтинг: 0 / 0
14.03.2003, 12:46
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32120176
Фотография tygra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tygra
Участник
Ну и что? Из-за этого зачем писать непонятно что?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
function TInformationF.GetText(C: string //имя нужного edit-a): string;
Var I:Integer;
begin
    if ShowModal <> mrOk then Exit; --тут показываем форму InformationF юзеру и ждем окончания ввода, если не Ок - ничего не делаем
 
    For I:= 0  to ComponentCount- 1  do
    if Components is TEdit then
      if TEdit(Components[i]).Name = C then begin
        Result := Components[i].Text;
        Break;
      end;
end;
 [i]--вызывать из другой формы так:
 
var infform: TInformationF;
infform := TInformationF.Create(Self); --или не делаем это, если при закрытии на убиваем форму
 
Edit45.text := infform.GetText('Edit45');
...
Рейтинг: 0 / 0
14.03.2003, 14:24
| Ответить | Цитировать | Написать  
Помогите ПЛИЗЗЗЗЗ
    #32120202
Артем1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артем1
Участник
Может, так?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
function TInformationF.GetText(text: string {текст их Form1.Edit1}): string;
begin
    if ShowModal = mrOk then 
      Result := Edit1.Text
    else
      Result := text;
end;

 --вызывать из другой формы так:
 
var infform: TInformationF;
infform := TInformationF.Create(Self); --или не делаем это, если при закрытии на убиваем форму
 
Edit45.text := infform.GetText(Edit45.text);
...
Рейтинг: 0 / 0
14.03.2003, 14:46
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Помогите ПЛИЗЗЗЗЗ
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]