Q&A

  • 함수에서 이미지를 아규먼트로 넘기려는데 우찌하는지요.
델파이를 안한지 꽤 되서 정말 해매네요
다음과 같이 코딩을 했는데

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  row, column, index : integer;
  filename : string;
begin
  index := 0;
  for row := 1 to 10 do
    for column := 1 to 6 do
    begin
      empImage[row, column] := TImage.Create(Self);
      index := index + 1;
      filename := 'c:seic' + IntToStr(index) + '.jpg';
--->      empImage[row, column].Picture.LoadFromFile('c:seic1.jpg');
    end;
end;


화살표 부분에서 자꾸 오류가 나는데 뭘 잘못한걸까요 버섯님?

답변은 넘 감사했습니다.
이 게시물을
3  COMMENTS
  • Profile
    석 • 2002.10.26 01:28

    filename을 잘못 지정한것 같군요.

    즐코하세요
  • Profile
    허진석 • 2002.10.26 01:51
    filename지정은 맞는데요

  • Profile
    홍성락 • 2002.10.26 03:15
    스트링그리드의 셀 오브젝트에 이미지를 생성해서 넣으시는건가요?
    예제입니다.
    jpg파일을 읽을땐 유닛에 jpeg을 선언하세요. 그래야 실시간에 에러가 안나옵니다.
    procedure TForm1.BitBtn1Click(Sender: TObject);
    var
      Rect: TRect;
    begin
      StringGrid1.Objects[1, 1] := TImage.Create(Self);
      with TImage(StringGrid1.Objects[1, 1]) do
      begin
          Picture.LoadFromFile('C:1-001-0008.bmp');
          Stretch := True;
          parent      := StringGrid1;        ////
          Rect:=StringGrid1.cellrect(1,1);
          boundsrect  := Rect;
          width       := StringGrid1.colwidths[1];           //CBpart_state.//
          height      := StringGrid1.rowheights[1];
      end;
    end;
    hsr/////////////////////////////////////////////////////////
←First Page
833 834 835 836 837 838 839 840 841 842
Last Page→
한델 로그인 하기