티스토리 뷰
728x90
출처 : http://delphi.about.com/cs/adptips2002/a/bltip1002_5.htm
type
TByteArr = array of byte;
function StringToBytes(aString: String): TByteArr;
var
i: integer;
begin
SetLength( Result, Length(aString)) ;
for i := 0 to Length(aString) - 1 do
Result[i] := ord(aString[i + 1]) { - 48} ;
end;
function BytesToString(aBytes : TByteArr): String;
begin
Result := PChar(aBytes);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
buffer : TByteArr;
begin
buffer := StringToByte(Edit1.Text);
ShowMessage(ByteToString(buffer));
end;
댓글
300x250
공지사항
최근에 올라온 글
최근에 달린 댓글
- Total
- Today
- Yesterday
TAG
- 지스타2007
- ffmpeg
- Spring
- Xcode
- BPI-M4
- flex
- JavaScript
- Java
- Spring MVC
- 레이싱모델 익스트림 포토 페스티벌
- android
- 서울오토살롱
- Linux
- ble
- 튜닝쇼 2008
- MySQL
- koba2010
- Delphi Tip
- 동경
- 일본여행
- Delphi
- 전예희
- Mac
- oracle
- NDK
- KOBA
- 송주경
- ubuntu
- SAS
- sas2009
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
31 |
글 보관함