Converted some TTable (Paradox) to TVirtualTable.
Code: Select all
TFieldXXX.AsString := '';
if TFieldXXX.IsNull then
ShowMessage('Empty')
else
ShowMessage('Filled');
Code: Select all
TFieldXXX.AsString := '';
if TFieldXXX.IsNull then
ShowMessage('Empty')
else
ShowMessage('Filled');