박지훈.임프 님이 쓰신 글 :
: 참고할 만한 코드를 만들어봤습니다.
: 샘플로 준 65, 66, ... 값은 일부러 나중에 ShowMessage()로 확인하기 쉽게 하려고 A, B, ... 등 알파벳 문자의 아스키
: 코드값으로 넣어봤습니다.
:
:
: procedure TForm3.Button1Click(Sender: TObject);
: var
: StrSrc: string;
: I: integer;
: ByteArray: array of byte;
: begin
: StrSrc := '65, 66, 67, 68, 69';
: with TStringList.Create do try
: CommaText := StrSrc;
: SetLength(ByteArray, Count);
: for I := 0 to Count - 1 do
: ByteArray[I] := StrToIntDef(Strings[I], 0);
: finally
: Free;
: end;
: ShowMessage(PChar(ByteArray));
: end;
:
:
:
: 식객 님이 쓰신 글 :
: : 텍스트문서에 들어있는
: : "숫자,숫자,숫자,"
: : 를
: :
: : 파싱해서
: : byte 배열에 넣고자 합니다...
: :
: : StrtoInt()를 써서 integer로 변환하고서
: : byte 로 변환하고자 하는데 잘 모르겠네요.
: :
: : 아시는분....
: : 답변부탁드립니다..^^
|