TDBF and empty field
lazarus / 16-Databases

----------------------------------------------------------------------
christophe_D · 2007-01-31 12:05

hello ,

with this code i have a probleme when a field is empty
i have a error "invalide cast" with a TBDF when Myfield (FtString) is
empty
MyEdit is a Tedit

Code: [Select]

procedure Tform1.Myprocedure;


begin
  MyEdit.text:=MyBase.fieldValues['MyFiled'];
[../..]
end;


so for the moment i use this code

Code: [Select]

procedure Tform1.Myprocedure;


begin
  if MyBase.fieldValues['MyFiled']<>'' then
MyEdit.text:=MyBase.fieldValues['MyFiled'];
[../..]
end;


is there a solution ??
use a a TDBedit , i can't because MyEdit is not use only with MyBase

thank for your answer

----------------------------------------------------------------------
lazarillo · 2007-01-31 14:00

procedure Tform1.Myprocedure;


begin
  if MyBase.FieldByName('name_field').AsString <>'' then
..................................................

end;

----------------------------------------------------------------------
christophe_D · 2007-02-01 12:03

Quote from: "lazarillo"procedure Tform1.Myprocedure;


begin
  if MyBase.FieldByName('name_field').AsString <>'' then
..................................................

end;

thanks !!!

i have forget the [.AsString] !!!!