Hallo,
etwas fertiges wüßte ich nicht.
Ich hatte das mal so gelöst:
Delphi-Quellcode:
procedure TFormShowData.FormShow(Sender: TObject);
var
i:byte;
begin
with hexOutput do
begin
Clear;
Text:=' ';
for i:=0 to 15 do
Text:=Text+' '+IntToHex(i,2);
Text:=Text+#13#10+'00: ';
for i:=0 to high(dataSet.raw) do
begin
Text:=Text + IntToHex(dataSet.raw[i],2)+' ';
if (i+1) mod 16 = 0 then
begin
Text:=Text+#13#10;
Text:=Text+IntToHex((i+1),2)+': ';
end;
end;
end;
ComboBox1.ItemIndex:=0;
end;
Passt jetzt nicht ganz zu Deiner Problemstellung, aber ich
denke die Ansätze hier kannst Du gut verwenden.
Grüße
Klaus