- 29 名前：デフォルトの名無しさん mailto:sage [2008/06/28(土) 08:55:06 ]
- 以下のコードがありまして、Button1をクリックするとStringGridのセルが
両方とも00になります。なんででしょう？
procedure TForm1.Button1Click(Sender: TObject);
var
H : Byte;
S : string;
begin
H := $FF;
SetLength(S,2);
BinToHex(@H, PChar(S),1);
StringGrid1.Cells[1,1] := S;
H := $00;
BinToHex(@H, PChar(S),1);
StringGrid1.Cells[1,2] := S;
end;
