SysUtils.StrByteType - 바이트 유형 가져오기
1196 단어 byte
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// StrByteType :
function GetByteType(p: PChar; i: Integer): string;
var
bt: TMbcsByteType;
begin
bt := StrByteType(p, i);
case bt of
mbSingleByte : Result := 'SingleByte'; {ASCII }
mbLeadByte : Result := 'LeadByte'; { }
mbTrailByte : Result := 'TrailByte'; { }
end;
end;
// :
procedure TForm1.FormCreate(Sender: TObject);
var
p: PChar;
i: Integer;
begin
p := 'abc 123';
for i := 0 to Length(p) - 1 do
Memo1.Lines.Add(GetByteType(p, i));
{ :
SingleByte
SingleByte
SingleByte
LeadByte
TrailByte
LeadByte
TrailByte
SingleByte
SingleByte
SingleByte
}
end;
end.
SysUtils 단원 아래의 공용 함수 디렉터리
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
byte와 길이가 8인 boolean 수조가 서로 변환되는 것을 간단히 말하다바이트는 8바이트이기 때문에. 그래서 그것으로 수조가 8인 boolean 수조를 저장할 수 있는데, 이것은 통신 프로토콜에서 자주 사용된다.여기에 자바 코드가 서로 변환되는 것을 보여 줍니다. 이상의 이 평론byte...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.