edit的text读取

Question

求一个函数
功能：取界面的edit控件的text属性，如为空则提示此项未填
edit控件的name是从表中取的，就是根据表中的信息判断哪些edit控件需做不为空的判断，谁有好方法。
备注：不要遍历

Answer 1

(FindComponent(editname) as tedit).text

Answer 2

FINWINDOWEX
SENDMESSAGE（wm_GETTEXTLENGTH）

Answer 3

function GetText(E : TEdit) : String ;
begin
  if E.Text = '' then 
    Result := 'No'
  Else
    Result := E.Text ; 
end ;ShowMessage(GetText(TEdit(FindComponent(FieldByName('EditiNameStringField').AsString)))) ;// 随手写的没有测试

Answer 4

var
  cmp:Tcomponent;
begin
  cmp := findcomponent(editname);
  if cmp<>nil then
    if cmp is tedit then
       with (cmp as tedit) do
       begin
          if text='' then 
              setfocuse;
       end;
edn;