즐주말 보내시구요.
DB의 Data를 받아서 Shape를 좌우로 움직이게 할려구 합니다.(원구현은..)

초보의 실력으로 할수 있는것이 if문으로 Edit에 입력한값으로 Shape를 움직
이게 하는 것이네요..^^:
이 소스 보시구... 모든 값을 받을려면 if문과 변수 무진장 많이 써야할듯한데..
ㅡ.ㅡ; 간단히 할수 있는 방법이나 조언해주실분 기다리겠습니다^^;
저도 이글 올려놓구 다시 책보면서 해야죠..^^~~~

무식하게 하죠..^^;  배우는 단계라 이해를..~~~

procedure TShapeF.SpeedButton2Click(Sender: TObject);
  var
   SHDT1,SHDT2,SHDT3,SHDT4 : integer;

  begin
    SHDT1 := 100;
    SHDT2 := 200;
    SHDT3 := 300;
    SHDT4 := 400;
      if (StrToInt(Edit1.Text) = SHDT1) then
          Shape1.Left := 20
       else
     if (StrToInt(Edit1.Text) = SHDT2) then
         Shape1.Left := 30
       else
     if (StrToInt(Edit1.Text) = SHDT3) then
         Shape1.Left := 40
       else
     if (StrToInt(Edit1.Text) = SHDT4) then
        Shape1.Left := 50;
  end;