Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.03.23;
Скачать: [xml.tar.bz2];

Вниз

Компонент в run-time без выдачи ему имени   Найти похожие ветки 

 
AlexeyMir   (2008-02-26 15:04) [0]

Подскажите, я создаю компонент TQuery в run-time без выдачи ему имени, как присвоить свойству другого компонента соданному в design-time.
Если бы оба компонента создавались в дизайнере то было бы так: frDBDataSet1.DataSet:=Query1

А как написать следующее?
with TQuery.Create(nil) do
  try
    Database:=IBDatabase1;
    Sql.Text := "select * from table1";
    ExecQuery;    
    id := Fields[0].AsInteger;  
    frDBDataSet1.DataSet:=?????;
    frReport1.PrintPreparedReport("",1)
  finally
    Free;                
  end;


 
Джо ©   (2008-02-26 15:07) [1]

var
 Query: TQuery;
...
Query := TQuery.Create
frDBDataSet1.DataSet := Query

в чем проблема-то?


 
AlexeyMir   (2008-02-26 15:13) [2]

Мне нужно Query создать в процессе работы приложения.

with TQuery.Create(nil) do
 try
   Database:=IBDatabase1;
   Sql.Text := "select * from table1";
   ExecQuery;    
   id := Fields[0].AsInteger;  
   frDBDataSet1.DataSet:=?????????????;
   frReport1.PrintPreparedReport("",1)
 finally
   Free;                
 end;


 
Palladin ©   (2008-02-26 15:14) [3]


> AlexeyMir   (26.02.08 15:13) [2]

тебе уже сказали как... переменную объяви, нечего с With баловаться


 
Сергей М. ©   (2008-02-26 15:15) [4]


> Мне нужно Query создать в процессе работы приложения


А иначе, кроме как в ран-тайм, его создать и нельзя.

Ты вообще в [1] вник ?


 
Плохиш ©   (2008-02-26 15:18) [5]

Прям эпидемия какая-то с этим with...



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.03.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
2-1203715169
no
2008-02-23 00:19
2008.03.23
Case label outside of rang


2-1203870038
Igor23
2008-02-24 19:20
2008.03.23
ExcelXP


15-1202580316
В,алекс
2008-02-09 21:05
2008.03.23
Виста / D7


2-1204046249
Леха
2008-02-26 20:17
2008.03.23
Помогите решить проблему!


2-1204030372
vegarulez
2008-02-26 15:52
2008.03.23
Вопрос про создание TLabel.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский