Universale ToHex und FromHex procedure/function

[sirius]

Zitat:

Ja, davon würde ich den Sinn auch nicht verstehen, aber das ist ja auch garnicht Sinn der Sache .

Naja, wenn ich eine Funktion toHex aufrufe, dann erwarte ich, dass meine Eingangszahlen hinten als Hex herauskommen und nicht das irgendetwas als Hex heraus kommt (auch wenn es eineindeutig ist).

Zitat:

Kannst du mir mal sagen, wie man auf was anderes kommen soll??

Einfach statt 64Bytes, 32 Bytes verwenden, so wie es das Set auch benötigt

Zitat:

Ich hab's doch drangeschrieben: Zum Speichern eines sets in einem string. Was kann man den daran nicht verstehen...?

Also das war dein sinn? Und warum hast du da (abgesehen von den tausend anderen Varianten) nicht einfach das Zeichen abgespeichert, was du unter pchar gefunden hast:

Delphi-Quellcode:

function SetToString(data: PChar; bytes: integer):string; 
var i: integer; 
begin 
  setlength(result, bytes); 
  for i:=1 to bytes do 
  begin 
    result[i]:=data^; 
    inc(data); 
  end; 
end;

oder einfach so:

Delphi-Quellcode:

function SetToString(const data; bytes: integer):string; 
begin 
  setlength(result, bytes); 
  move(data,result[1],bytes);
end;