Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

Как указать "родителя"   Найти похожие ветки 

 
-kiril   (2004-04-12 13:37) [0]

Добрый день!
Есть такой вот код:

var
 MyVar: TMyType;

.....

procedure TForm.Chto-toTam()...
begin
 with CaseMyVar(Ident) do { возвращает указатель на временно созданный объект TMyType }
 try
   { здесь какие-то действия }
   if .... then
   begin
     MyVar.Assign({ что нужно указать здесь, чтобы передать указатель на временно созданный объект в строке with Case...??? }
   end;
 finally
   Free; { уничтожаем временно созданный объект }
 end;
end;

Если делаю MyVar.Assign(Self), то передается указатель на TForm и, естественно, ошибка.


 
Digitman ©   (2004-04-12 13:41) [1]

var
 TempVar: TMyVar;
..
TempVar := CaseMyVar(Ident);

with  TempVar do
try
....
MyVar.Assign(TempVar);


 
Fay ©   (2004-04-12 13:41) [2]

заведи переменную



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

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
1-1082190703
Sanek_metaller
2004-04-17 12:31
2004.05.02
Взаимодействи Delphi с др языками


1-1081862283
jiuraf
2004-04-13 17:18
2004.05.02
Удаление картинки из TImage


7-1078652833
kamerad
2004-03-07 12:47
2004.05.02
Подскажите о мониторе!


1-1081941918
Cr@zy-EyE
2004-04-14 15:25
2004.05.02
Создаю объект в initialization, а в юните его не видно


1-1081806423
noob
2004-04-13 01:47
2004.05.02
потверждение при закрытии формы