var i:integer; begin i:= ord(edit1.text); showmessage(inttostr(i)); end; 이런식으로 edit박스에 있는 텍스트를 아스키 코드값으로 바꾸려고합니다. 검색을 많이 해봤지만 edit박스에 있는 값을 입력받아서 아스키값으로 출력하는건 ...
희
•
2001.11.22 01:52
먼저 Edit box의 값을 String 변수에 대입한 다음 하나씩 Ord로 변환하세요..
> var
> i:integer;
...
> var
> i:integer;
j:string;
> begin
j:=edit1.text;
i:= ord(j[1]); // --> j[1] ~ j[길이많큼] 바꾸면...^^;
> showmessage(inttostr(i));
> end;
즐~~~