Problem mit HexToDez

[thkerkmann]

Hi,

dann sollte deine Routine, die nach binär konvertiert einfach soviel nullen davor setzen bis es wieder acht Zeichen sind. Ist das so schwer.

Es gab mal eine Funktion PadLW (string, padchar, len), die einen String mit dem PadChar verlängert bis er die Länge len hat.

Delphi-Quellcode:

Function PadLw (const s:string; padchar:char; len:integer):string;
begin
  // pad a string from the left
  result := s;
  while length(result)<len do
    result := padchar + result;
end;

Function PadRw (const s:string; padchar:char; len:integer):string;
begin
  // pad a string to the right
  result := s;
  while length(result)<len do
    result := result + padchar;
end;

Vielleicht hilft dir das.

Gruss

[Nils_13]

Danke. Es war ein einfacher Denkfehler von mir: Ich dachte, dass bei (selbst wenn das evtl. nicht möglich wäre) z.B. 90h am Ende auch die 0 fehlen würde und dort ein andere Fehler auftreten würde. Wenn man dann aber nachrechnet: 9*16 + 0*1 kommt mit oder ohne 0*1 144 raus und es hat sich nichts geändert. :oops: