Q&A

  • 형변환??
통신에서 스트링으로 오는 #$A 이값을 integer 10로 바꾸고 싶습니다.
어찌해야될까요?



이 게시물을
3  COMMENTS
  • Profile
    장신귀 • 2003.12.05 01:12
    var
      i1:integer ;
      c1:char ;
    begin
      i1:=ord('a'); // 이러믄 되요.
      c1=chr(i1);  // 이러믄 인티져에서 케릭터로.
    end;

  • Profile
    박종록 • 2003.12.05 03:17

    procedure TForm1.Button1Click(Sender: TObject);
    var
      kk: Integer;
    begin
      //16진수 Ascii 값을 정수형으로 변환하고 싶은가 보죠
      kk := AsciiToHex(Integer(Char('A')));
      Edit1.Text := IntToStr(kk);
    end;

    function TForm1.AsciiToHex(AH_Value:Integer):Integer;
    var
      Temp: Integer;
    begin
      Temp := AH_Value and $000000FF;
      if Temp > $39 then Result := Temp - $37
      else               Result := Temp - $30;
    end;

  • Profile
    푸랑켄스타인 • 2003.12.05 03:48
    감사요 ^^*
←First Page
528 529 530 531 532 533 534 535 536 537
Last Page→
한델 로그인 하기