|
|
От: | vterekh | |
| Дата: | 07.06.04 04:18 | ||
| Оценка: | 1 (1) | ||
type
TMyObject = class(TObject)
.....
end;
with TMyObject.Create do
try
.....
// Здесь хочется узнать указатель на "TMyObject.Create" для передачи его
// например в какую-либо процедуру.
.....
finally
Free;
end;