Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
23. Dez 2005
Hallo Michael,
meinen wichtigsten Hinweis hast du einfach überlesen - call by reference ist notwendig, wenn du abschneiden willst. Beachte das var Schlüsselwort in der Signatur. Die lokalen Zwischenspeicher habe ich eliminiert und die nibble Berechnung als inline code aufgenommen.
const
HEX_DIGITS: string = '123456789ABCDEF0';
procedure myhex2bin(var data; var hex: string; const...
Forum: Object-Pascal / Delphi-Language
Delphi
by marabu,
22. Dez 2005
Hallo Michael,
Wo macht sie das denn? Kennst du den Unterschied von call-by-value und call-by-reference?
Du kannst deine Konstante HEXES ruhig aus den Prozeduren heraus nehmen - eine Konstante reicht für beide Prozeduren. Und wenn du dich ein wenig anstrengst, dann kommst du auch ohne zusätzliche lokale Variablen (bytes, workwith) aus. Deine Funktion IndexOf ist viel zu teuer für ihren...