Forum: Object-Pascal / Delphi-Language
by Rollo62,
25. Jul 2020
Hallo Stefan, genau solche Tricks meinte ich :)
Ich hatte mich dunkel daran erinnert das es da noch irgendwas mathematisches gab.
Das mit dem case ist aber auch schon weit vorne.
Gefühlt würde ich trotzdem sagen das die Sprungtabelle gewinnen könnte, zumindest bei Performance,
Aber meine Lieblingslösung ist das sicher nicht, wegen der Platzverschwendung.
Da gab es aber doch auch Tricks um...
Forum: Object-Pascal / Delphi-Language
by Rollo62,
24. Jul 2020
type
TNormTableByte = packed array of byte;
var
/// a conversion table from hexa chars into binary data
// - returns 255 for any character out of 0..9,A..Z,a..z range
// - used e.g. by HexToBin() function
// - is defined globally, since may be used from an inlined function
ConvertHexToBin: TNormTableByte;
Forum: Object-Pascal / Delphi-Language
by Rollo62,
24. Jul 2020
@Tigü, Ja super :thumb:
Warum bin ich da nicht selber drauf gekommen (bin wahrscheinlich mit den Gedanken in anderen Projekten).
Das wäre erstmal mein Favorit, bin gespannt ob man das noch toppen kann.
Forum: Object-Pascal / Delphi-Language
by Rollo62,
24. Jul 2020
Naja, ich sammle mal noch ein paar Vorschläge bis Dein 10.3 wieder läuft.
Wäre ja sicher auch für Andere spannend mal ein "amtliches" Ergebnis zu haben.
Forum: Object-Pascal / Delphi-Language
by Rollo62,
24. Jul 2020
Dankesehr für den Vorschlag, und das ist wirklich das schnellste ? :gruebel:
Muss ich mal reinschauen, KIJKG (*).
(*) KIJKG = Kann ich ja kaum glauben.
Forum: Object-Pascal / Delphi-Language
by Rollo62,
24. Jul 2020
Hallo zusammen,
ich baue gerade ein paar Basis-Funktionen um, und bin im Moment darüber gestolpert
das CharInSet deprecated ist.
Da frage ich mich was wohl am Besten / Schnellsten wäre um ein HEX-Char zu entdecken.
Also ich suche ein
function IsHEX( const AChar :Char ) : Boolean;