Как указать "родителя"

← →
-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);

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

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