전 아래와 같이 프로시져를 작성하여.. 쓰고 있습니다.

물론.. 직접

TEDIT1.Text := Table1.FieldbyName('필드명').AsString;

하시는게 빠르겠지만요..

귀찮잖아요..



대신에 아래와 같이 하시려면..

아시겠지만.. 필드명과 Componet이름이 동일해야 하겠지요...



무식한..초보가.. 용기를 내서..

몇자 적었습당..



procedure Db2Edit(fm_In:Tfm_UserIn; Table1 : TTable);

Var i : Integer;

str,data : string;

ComPo : TComponent;

begin

For i := 0 to Table1.FieldCount - 1 do

begin

str := Table1.Fields[i].FieldName;

Compo := TForm1.FindComponent(str);//필드이름과 동일한 Componenet찾기.

IF ComPo <> Nil then //Component가 있으면.. 구문 수행..

begin

With TForm1 do

begin

if (ComPo is TEdit) then //찾은 Component가 TEdit이면..

ComPo As TEdit).Text := Table1.FieldByName(str).AsString

else if (ComPo is TComboBox) then //찾은 Component가 TComboBox이면

(ComPo As TComboBox).Text := Table1.FieldByName(str).AsString;

end;

end;

end;

end;