Q&A

  • 실수연산해서 정수형 변수에 집어넣기

var
    intWidth: Integer;


.
.
.
  intWidth := 1024 * 0.34;
정수형에 정수형*실수형을 계산해서 집어넣고 싶은데...
어케해야되나요?

또 폼없는 유닛을 하나 생성해서 공통함수를 만들어 놓았는데
이 공통함수에서 폼1의 라벨캡션을 액세스하고 싶은데...

unit1




end.

untFunction <- 공통함수

.
.

procedure aa;
begin
    Form1.Label1.Caption := '바보';
end;

end.

이렇게 하고 싶은데 잘안되네요...답변 부탁드립니다...
1  COMMENTS
  • Profile
    최용일 2003.04.16 19:21
    안녕하세요. 최용일입니다.

    실수값을 정수변수에 넣으실려면 Round나 Trunc함수를 써서 반올림하거나 절삭해서 정수로 만드시면 됩니다.

    IntWidth := Trunc(1024 * 0.34);

    함수에서 라벨을 파라매터로 받으시면 되겠네요...

    procedure aa(Label: TLabel);
    begin
        Label.Caption := '바보';
    end;

    호출l:

    aa(Form1.Label1);

    ^^ 항상 즐코하세요...