Array of char til PChar og/eller hex

Hvorfor nævner du BinToHex?

var
    ac : array[1..5] of char;
  i : integer;
begin
    ac:='asder';
    for i:=1 to 5 do
  begin
      showmessage(ac[i]); // char
        showmessage(IntToHex(ord(ac[i]),2)); // hex
    showmessage(IntToStr(ord(ac[i]))); // integer
  end;
end;

Perfekt. Takker mange gange for det hurtige svar.

Læg et svar for point...

ok

Ved godt jeg kører i samme rille mht. mit forslag, men jeg synes opbygningen er smart:

type
  TCharData = class
  private
    fData : char;
  public
    constrcutor Create(aData : char);
    property Data : char read fData;
    function AsInteger : integer;
    function AsHexStr(const aLength : integer = 4) : string;
    function AsOctStr(const aLength : integer = 6) : string;
    function AsBinStr(const aLength : integer = 32) : string;
  end;

  TDataList = class(TObjectList)
  private
  public
    function LoadFromFile(const aFileName : string) : boolean;
    property Items[const aIndex : integer] : TCharData read GetCharData; default;
  end;

Skallen til et lille objektorienteret klassesæt der kan håndtere data. Jeg kan godt lave det færdigt hvis det har interesse.