TImage에 올려 놓을거면.

Image1.Picture.LoadFromFile('c:bmptest.bmp');





-----------------------------------------

이쁜이 wrote:

> procedure TForm1.input2Click(Sender: TObject);

> var

> i: Integer;

> begin

> for i := 0 to 4 do

> if trim(str_nm[i]) = Edit8.text then

> begin

> showmessage('정답입니다.');

> end;

> end;

> 이런식으로 정답확인을 했습니다.

> 그리고 정답확인을 했을때 그 정답에 대한 이미지를 open시켜야 합니다.

> 어떻게 해야 하나요..

> 고수님들 좀 봐주세요....^^

>

procedure TForm1.input1Click(Sender: TObject);

var

i, j, k: Integer;

tempCd: String;

begin

for i := 0 to 4 do

for j := 0 to 9 do

begin

for k:=1 to 26 do

begin

if alpha_e[k] = Edit1.text then

begin

if ((i*10 + j) >= 0) and ((i*10 + j) <= 9) then

tempCd := '0' + IntToStr(i*10 + j)

else

tempCd := IntToStr(i*10 + j);



break;

end;

end;

if str_nm[i,j] = alpha_e[k] then

TImage(FindComponent('image' + tempCd)).Picture.LoadFromFile('image'+ intToSTr(k) + '.bmp');

end;

end;



procedure TForm1.input2Click(Sender: TObject);

var

i: Integer;

tempCd : string;

begin

for i := 0 to 4 do

if trim(str_nm[i]) = Edit8.text then

showmessage('정답입니다.');

이럴경우에는 어떻게.....