Regulärer Ausdruck für Hexzahlen

[arnold mueller]

In System.Classes gibt es BinToHex und umgekehrt.

http://docwiki.embarcadero.com/Libra...asses.HexToBin

Wenn man darum eine Wrapper Funktion baut, die String bzw. TBytes verarbeitet, wäre das relativ elegant.

[Ghostwalker]

Danke erstmal für eure Antworten. Da ich hier mit RegEx arbeiten möchte hab ich mal mit SProske Variante gearbeitet.

Das mit den "," in der Liste ist natürlich ein Tipp-Fehler gewesen Das es dafür eine eigene Klasse gibt
wusst ich nicht.

Tut auch soweit bis auf 2 Probleme:

1. Das $-Zeichen (oder eben nichts) sollte ein unabhängiger Match sein

also quasi

Code:

  Match 1: $
  Match 2: aa
  Match 3: BB
  Match 4: cc

2. Der zweite Teil (also quasi die Bytes) sollen min 1 max 8 sein so das
man das ganze im Zweifelsfall als einen Integer (Int64) umwandeln kann.

[SProske]

Na das wird.. unschön - so in etwa:

Delphi-Quellcode:

program HexCheck;

uses
  System.RegularExpressions, System.SysUtils;

const
  HEX_STRINGS: array[0..6] of string = ('$AA', '00', '$AA00BB11CC22DD33', 'AA00BB11CC22DD33', 'A', 'XX1100', '$AA00BB11CC22DD33EE');
var
  M: TMatch;
  S: string;
  I: Integer;
begin
  for S in HEX_STRINGS do
  begin
    WriteLn(Format('Testing %s', [S]));
    I := 0;
    M := TRegex.Match(S, '(?:^\$(?=(?:[[:xdigit:]]{2}){1,8}$)|\G([[:xdigit:]]{2})(?=(?:[[:xdigit:]]{2}){0,7}$))');
    if M.Success then
    begin
      repeat
        WriteLn(Format('%d: %s', [I, M.Groups[0].Value]));
        Inc(I);
        M := M.NextMatch;
      until not M.Success;
    end else
      WriteLn(Format('No match for %s', [S]));
  end;
  ReadLn;
end.

[Ghostwalker]

Danke, genau das was ich brauch

Hast du da irgendwie so ein kleines Männchen das dir die Dinger so fix einflüstert ?

[SProske]

Zitat von Ghostwalker:

Danke, genau das was ich brauch

Hast du da irgendwie so ein kleines Männchen das dir die Dinger so fix einflüstert ?

Keine Ursache - und nein, nur eine gewisse Faszination für das Thema