티스토리 뷰

Programming/Delphi

Delphi - StringToByte, ByteToString

파란크리스마스 2009. 5. 1. 05:52
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
«   2024/03   »
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
글 보관함