[dmdx]

Всем привет.

Не могу присвоить Edit1.text значение пусто ('') при условии если переменная vr: variant = null;

Код:

var
 vr: variant;
begin
Edit1.text:=vr;
end;

Выдает ошибку (Could not convert variant of type (null) into type (string)),но это понятно.
пробывал делать всякого рода проверки типа

Код:

var
 vr: variant;
begin
try
Edit1.text:=vr;
except
Edit1.text:='';
end;
end;

или

Код:

var
 vr: variant;
begin
if vr=null then
edit1.text:=''
else
Edit1.text:=vr;
end;

Все равно никак не проходит выдает ошибку.

Может кто знает как сделать проверку может надо что то типа

Код:

if empty(vr) then
...

Заранее спасибо.