Borykam się z pewnym problemem na który tam mam jakiś sposób ale mało elegancki. Zakładamy taką sytuację mam zmienną o nazwie "fstan" typu integer, oraz funkcję GetStan.
fstan: integer;
property stan: integer; read fstan write fstan;
function GetStan: string;
I teraz tak funkcja GetStan musi zwrócić takie wartości:
1). '' - jeżeli nie ustalono zmiennej
2). 0 - jeżeli przypisano 0 do fStan
3). 1 - jeżeli przypisano 1 do fStan
Jak wiadomo zmienna integer zawsze ma jakąś wartość. Dlatego jaki jest najlepszy sposób na rozwiązanie problemu? Zastosować zmienną OleVariant? Czy może coś takiego zrobić?
fstan: string;
property stan: integer; read getValue write setValue;
function GetStan: string;
begin
result := fstan;
end;
procedure setValue(V: integer);
begin
fStan := inttostr(v);
end;