ソス@ソスソスソスソスソスソスソスソスソス16ソスiソスソスソスノ変奇ソスソスソスソスソスノは?
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスu123ソスソスソスソスソスソスソスソスソスモ卯ソスvソスフようソスネ包ソスソスヘゑソスu31 32 33 82 A0 82 A2 82 A4 88 9F 88 D3 89 4Bソスvソスフようソスソス16ソスiソスソスソスノ変奇ソスソスソスソスソスノはどのようソスノゑソスソスソスホゑソスソスソスソスフでゑソスソス蛯、ソスソスソスH
ソスラ具ソスソスフゑソスソス゚、ソスナゑソスソスソスホゑソスソス黷シソスソスフ擾ソスソスソスソスフ会ソスソスソスソスソス閧「ソスソスソスソスソスソスソスナゑソスソスB
ソスヌなゑソスソスソスソスソスソスソスソスソスソスソスソス閧「ソスソスソスワゑソスソスB
ソスソスソスフ趣ソスフ包ソスソスヘ抵ソスソスラゑソスホ鯉ソスソス¥ソスソスソスソスワゑソスソスソスB
ソスソスソスLソスyソス[ソスWソスソスDelphiソスフ擾ソスソスQソスlソスノなゑソスワゑソスソスH
http://www.threeweb.ad.jp/‾satou/string.htm
ソスPソスソスソスノ変奇ソスソスソスソスソスソスソスソスフでゑソスソスソスホ、1ソスソスソスソスソスソスソスツ包ソスソスソスソスソスソスソスoソスソスソスAソスソスソスソス(Char)ソス数値(Byte)ソスノ変奇ソスソスソスソスAソスソスソスソスソス2ソスソスソスソス16ソスiソスソスソスノ変奇ソスソスソスソストゑソスソスソスソスソスOKソスナゑソスソスB
procedure TForm1.Button1Click(Sender: TObject);
var
S1: String;
S2: String;
i: Integer;
dd: Integer;
ds: Cardinal;
de: Cardinal;
begin
ds := GetTickCount; //ソスfソスoソスbソスOソスpソスFソスソスソスソスソスソスソスヤ計ソスソスソスJソスn
for dd := 1 to 2000 do //ソスfソスoソスbソスOソスpソスFソスJソスソスヤゑソスソスソスソスsソスソスソスネゑソスソスニ搾ソスソスソスソスかソスソスネゑソスソスフゑソス
begin
//ソスマ撰ソスソスフ擾ソスソスソスソスソス
S1 := '123ソスソスソスソスソスソスソスソスソスモ卯';
S2 := '';
//1ソスソスソスソスソスレゑソスソス迴ソスノ包ソスソスソスソスソスフ抵ソスソスソスソスソスソスソスソスソスソスソスソスソス
for i := 1 to Length(S1) do
begin
//1ソスソスソスソスソスソスソスソスソスoソスソスソスト包ソスソスソスソスRソス[ソスhソスソス謫セソスソスソスA16ソスiソスソスソスノ変奇ソス
S2 := S2 + IntToHex(Ord(S1[i]), 2) + ' ';
end;
end;
Edit1.Text := Copy(S2, 1, Length(S2) - 1);
//ソスネ会ソスソスAソスソスソスソスソスソスソスヤ計ソスソスソスp
de := GetTickCount;
Memo1.Lines.Add('Test1:' + IntToStr(de - ds) + 'ms');
end;
ソスハ会ソスヘ以会ソスソスフ通ゑソスB
ソスlソスノゑソスソスソストゑソスソスいソス書ソスソスソスソスソスソスソス痰「ソスワゑソスソスBソスソスソスソスソスニ。
procedure TForm1.Button2Click(Sender: TObject);
const
//ソス關費ソスニゑソスソスソス'0'ソス`'F'ソスフ配ソスソスソスpソスソス
HexStr: array[0..15] of char = '0123456789ABCDEF';
var
S1: String;
S2: String;
B: PBYTE;
C: PCHAR;
dd: Integer;
ds: Cardinal;
de: Cardinal;
begin
ds := GetTickCount; //ソスfソスoソスbソスOソスpソスFソスソスソスソスソスソスソスヤ計ソスソスソスJソスn
for dd := 1 to 2000 do //ソスfソスoソスbソスOソスpソスFソスJソスソスヤゑソスソスソスソスsソスソスソスネゑソスソスニ搾ソスソスソスソスかソスソスネゑソスソスフゑソス
begin
//ソスマ撰ソスソスフ擾ソスソスソスソスソス
S1 := '123ソスソスソスソスソスソスソスソスソスモ卯';
B := PBYTE(S1); //ソスソスソスソスソスソスフ最擾ソスソスフ位置ソスフポソスCソスソスソス^ソスソスソスソスソスソスソスソスiソスソスソスlソスニゑソスソストみゑソスフゑソスBYTEソス^ソスj
SetLength(S2, Length(S1) * 3 - 1); //ソスiソス[ソスソスソス髟カソスソスソスソスフ大きソスソスソスソスソスソスソスソスソス
C := PCHAR(S2); //ソスマ奇ソスソスソスフ包ソスソスソスソスソスフ最擾ソスソスフ位置ソスフポソスCソスソスソス^ソスソスソスソスソスソスソスソスiソスソスソスソスソスソスソスソスCHARソス^ソスj
//ソスソスソスソスソスソスフ終ソス[ソスソス 0 ソスネのゑソス 0 ソスナなゑソスソスヤ托ソスソスソスソスソス
while B^ <> 0 do
begin
//16ソスiソスソスソスフ1ソスソスソスソスソスレ。ソスPソスUソスナ奇ソスソスソスソスソスAソスEソスノシソスtソスgソスソスソスソスソスルゑソスソスソスソスソスソスソス
C^ := HexStr[B^ shr 4];
Inc(C);
//16ソスiソスソスソスフ2ソスソスソスソスソスレ。ソスPソスUソスナ奇ソスソスソスソスソスソスソスソスワゑソスソスソスAソス_ソスソスソスaソスナ出ソスソスソスソスソスソスソスソスソスソスソスソス
C^ := HexStr[B^ and 15];
Inc(C);
//ソスソスソスpソスXソスyソス[ソスXソスナ具ソスリゑソス
C^ := ' ';
Inc(C);
//ソスソスソスフ包ソスソスソスソスソスフポソスCソスソスソス^ソスソスPソスツ進ソス゚ゑソス
Inc(B);
end;
end;
Edit1.Text := S2;
de := GetTickCount;
Memo1.Lines.Add('Test2:' + IntToStr(de - ds) + 'ms');
end;
>Ruソスソスソスソス
ソスソスソスソスソスワゑソスソスソスBソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスQソスlソスノなゑソスワゑソスソスB
>ソスノゑソスソスフゑソスソスソス
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスフコソス[ソスhソスナ暦ソスソスzソスフ擾ソスソスソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスソスB
ソスソスソスJソスネ会ソスソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスBソスラ具ソスソスノなゑソスワゑソスソスソスソスB
ソスソスソスソスソスト擾ソスソスソスソスYソスソストまゑソスソスソスソスB
ソスソスソスソス16ソスiソスソスソスソスソスソスフ包ソスソスソスソスソスノ戻ゑソスソスノはどのようソスノ擾ソスソスソスソスソスソスソスホよいソスフでゑソスソス蛯、ソスソスソスH
ソスソスソスソスソスソスソスヘ鯉ソスソスソスソスソスソストゑソスoソストゑソスソスネゑソスソスト搾ソスソスソスソストゑソスソスワゑソスソスB
ソスxソスXソスソスソスソスソスワゑソスソスソスB
ソスヌなゑソスソスソスソスソスソスソスソスソスソスソスソス閧「ソスソスソスワゑソスソスB
Delphi7ソスナはゑソスソスソスニ便暦ソスソスネ関撰ソスソスソスソスソスソスソスワゑソスソスソスソスB
ソスwソスソスソスvソスナ、BinToHexソスAHexToBinソス調べてみてゑソスソスソスソスソスソスソスソスB
procedure TForm1.Button3Click(Sender: TObject);
var
S1: String;
S2: String;
i: Integer;
dd: Integer;
ds: Cardinal;
de: Cardinal;
begin
ds := GetTickCount; //ソスfソスoソスbソスOソスpソスFソスソスソスソスソスソスソスヤ計ソスソスソスJソスn
for dd := 1 to 2000 do //ソスfソスoソスbソスOソスpソスFソスJソスソスヤゑソスソスソスソスsソスソスソスネゑソスソスニ搾ソスソスソスソスかソスソスネゑソスソスフゑソス
begin
//ソスマ撰ソスソスフ擾ソスソスソスソスソス
S1 := '123ソスソスソスソスソスソスソスソスソスモ卯';
S2 := '';
SetLength(S2, Length(S1) * 2);
BinToHex(PCHAR(S1), PCHAR(S2), Length(S1));
end;
Edit1.Text := S2;//StrPas(PCHAR(S2));
//ソスネ会ソスソスAソスソスソスソスソスソスソスヤ計ソスソスソスp
de := GetTickCount;
Memo1.Lines.Add('Test1:' + IntToStr(de - ds) + 'ms');
end;
procedure TForm1.Button4Click(Sender: TObject);
var
S1: String;
S2: String;
i: Integer;
dd: Integer;
ds: Cardinal;
de: Cardinal;
begin
ds := GetTickCount; //ソスfソスoソスbソスOソスpソスFソスソスソスソスソスソスソスヤ計ソスソスソスJソスn
for dd := 1 to 2000 do //ソスfソスoソスbソスOソスpソスFソスJソスソスヤゑソスソスソスソスsソスソスソスネゑソスソスニ搾ソスソスソスソスかソスソスネゑソスソスフゑソス
begin
//ソスマ撰ソスソスフ擾ソスソスソスソスソス
S1 := Edit1.Text;
S2 := '';
SetLength(S2, Length(S1) * 2);
HexToBin(PCHAR(S1), PCHAR(S2), Length(S1) div 2);
end;
Edit2.Text := S2;//StrPas(PCHAR(S2));
//ソスネ会ソスソスAソスソスソスソスソスソスソスヤ計ソスソスソスp
de := GetTickCount;
Memo1.Lines.Add('Test1:' + IntToStr(de - ds) + 'ms');
end;
>ソスノゑソスソスフゑソスソスソス
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスソスノ簡単ソスソス16ソスiソスソスソスノゑソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスソスB
HexToBinソスヨ撰ソスソスwソスソスソスvソスナ鯉ソスソスワゑソスソスソスソスB
ソスソスソスソスソスTextソスソス16ソスiソスソスソスソスソスソスソスソスBufferソスノ変奇ソスソスソスソス黷スソスoソスCソスiソスソスソスソスソスソスソスソスAソスニゑソスソスソスソスソスソスニゑソスソスかソスソスソスソスソスソスナゑソスソスソスソスヌ記ソスqソスフ仕ソスソスソスソスソスソスソスソスソスマゑソスかソスソスワゑソスソスソスB
ソスヌのようソスノ記ソスqソスソスソスソスホ変撰ソスソスノ変奇ソスソスソスソスソスソスソスソスソスソスが托ソスソスソスソスソスソスソスフでゑソスソス蛯、ソスソスソスH
ソスソスソスxソスソスソスフ低いソスソスソスソスホゑソスソスソスナ申ソスソスソスソスネゑソスソスナゑソスソスB
>ソスソスソスソスソスTextソスソス16ソスiソスソスソスソスソスソスソスソスBufferソスノ変奇ソスソスソスソス黷スソスoソスCソスiソスソスソスソスソスソスソスソスAソスニゑソスソスソスソスソスソスニゑソスソスかソスソスソスソスソスソスナゑソスソスソスソスヌ記ソスqソスフ仕ソスソスソスソスソスソスソスソスソスマゑソスかソスソスワゑソスソスソスB
>ソスヌのようソスノ記ソスqソスソスソスソスホ変撰ソスソスノ変奇ソスソスソスソスソスソスソスソスソスソスが托ソスソスソスソスソスソスソスフでゑソスソス蛯、ソスソスソスH
ソスソスソスHexToBinソスフサソスソスソスvソスソスソスRソス[ソスhソスソスソスソスsソスソスソスソスホ、ソスマ奇ソスソスソスソス黷スソスoソスCソスiソスソスソスl(ソスソスソスソスソスソス)ソスソスソスマ撰ソスS2ソスノ難ソスソスソスフは趣ソスソスソスソスナ確ソスFソスナゑソスソスソスニ思ソスソスソスソスソスヌ?
ソスソスソスソスネのに、ソスuソスLソスqソスフ仕ソスソスソスソスソスソスソスソスソスマゑソスかソスソスワゑソスソスソスvソスニはどゑソスソスソスソスソスソスソスソスニ?
ソスソスソスソスソスソスソスソスソスフ回答ゑソスソス轤「ソスネゑソスソスソスAソスソスソスソスソス謔ュソスヌゑソスナなゑソスソスじゑソスネゑソスソスHソスB
(ソスソスソスTソスソスソスvソスソスソスRソス[ソスhソスソスSetLength(S2, Length(S1) * 2);ソスヘ、SetLength(S2, Length(S1) div 2);ソスフ間違いソスソスソスソスソスヌゑソス)
ソスソスソスあソスソスソスソスソスソスソスソスソスソスソスワゑソスソスソスB
ソス謔ュソスヌまゑソスソスソスBinToHexソスフ難ソスeソスソスソスニ擾ソスソスソスノ思ソスソスソストて最鯉ソスワでサソスソスソスvソスソスソスRソス[ソスhソスソスソストまゑソスソスソスナゑソスソスソスソスB
ソスノゑソスソスフゑソスソスすゑソスソスワゑソスソスソスBソス{ソスソスソスノ申ソスソスソスごゑソスソスソスソスワゑソスソスソスB
>ソスンゑソスソスンゑソスソスソスソスソス
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスBソスソスソスソスヘ厄ソスソス轤ゥソスノ趣ソスソスソスソスフ過趣ソスソスナゑソスソスB
ソスソスソスfソスソスソスソスソスソストゑソスソスワゑソスソストゑソスソスソスソスワゑソスソスソスB
ソスソスソスソスヘ細心ソスフ抵ソスソスモを払ゑソスソスト擾ソスソスソスソスソスソスンまゑソスソスB
ソスFソスlソスフゑソスソスソスソスソスソスナ厄ソスソスソスソスソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスソスソスB
ソスソスソスfソスソスソスソスソスソストゑソスソスワゑソスソスト本ソスソスソスノ申ソスソスソスソスネゑソスソスナゑソスソスB
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソス!