モナーの *やさしい* Delphi質問スレ Ver3
レス数が900を超えています。1000を超えると表示できなくなるよ。
0945デフォルトの名無しさん
NGNGfunction BinaryStrToInt(s:string):integer;
var
i,c:integer;
begin
result := 0;
c := 1;
for i := Length(s) downto 1 do begin
if s[i] = '1' then result := result + c;
c := c*2;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s := '0001001100101001';
Label1.Caption := IntToHex(BinaryStrToInt(s),1);
end;
レス数が900を超えています。1000を超えると表示できなくなるよ。