참고할 만한 코드를 만들어봤습니다.
샘플로 준 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 로 변환하고자 하는데 잘 모르겠네요.
:
: 아시는분....
: 답변부탁드립니다..^^
|