Параметр без типа

[Kronos913]

Нужно сделать чтобы в процедуре был параметр, который может быть любого типа

Procedure qqq(var a {без типа})

Внутри же процедуры надо определить тип переменной и сделать действие в зависимости от ее типа

case {тип переменной а} of
{Числовой} : a:=123;
{Строковый} : a:='345';
{TEdit} : a.Text:='567';
{TOpenDialog} : a.FileName:='789';

Как такое реализовать?

[evg_m]

есть такой тип как variant

var a: variant;

[Kronos913]

Что-то у меня не особо получается...
Мне нужно так, чтобы в процедуру через var можно было завести переменную любого типа

[Kronos913]

Вообще, суть задачи такая

Поскольку процедуры не хотят напрямую возвращать параметры Edit.Text, OpenDialog.FileName, и т.д., то нужно сделать так, чтобы выходная переменная s2 была любого типа

А дальше из процедуры определить ее тип и
Если строка: s2:='123';
Если TEdit: s2.Text:= '123'
И так далее

[evg_m]

зачем все это.
вам уже говорили.
работайте через переменную.

s:=opendialog.Filename;
finddirSeaarch(,,,, s, ...);
Edit1.Text:=s;

P.S. процедурный тип может быть и функцией.

[Kronos913]

Вообще, я сейчас занимаюсь оптимизацией в принципе работающей программы, выносом общих кусков кода в отдельные процедуры
И скорее проблема в том, что нагромождение с еще одной переменной, уже не даст оптимизации

[northener]

Сообщение от Kronos913

Вообще, суть задачи такая

Поскольку процедуры не хотят напрямую возвращать параметры Edit.Text, OpenDialog.FileName, и т.д., то нужно сделать так, чтобы выходная переменная s2 была любого типа

А дальше из процедуры определить ее тип и
Если строка: s2:='123';
Если TEdit: s2.Text:= '123'
И так далее

Вы бы почитали бы учебник. Чтобы понять разницу между переменной и свойством класса.

[evg_m]

скорее всего не даст оптимизации "нагромождение" кода

if <это строка>
else if <это TEdit>
else if ...

внутри процедуры (даже если бы это было возможно).

а переменные("простых" типов) для того и существуют чтобы оптимизировать как вычисления, так и написание программ(модулей, функций).

[evg_m]

для "оптимизации" написания вызовов процедур существует
1. перегрузка процедур
2. параметры по умолчанию