Thema: Delphi String Konvertierung

Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: String Konvertierung

  Alt 27. Feb 2018, 08:49
Hier ist Buffer ein PChar und in diesen wird ein Char 'geschrieben', somit Out....

das 'S := '0056006F007200730063006800610075';' würde unter D6 nicht funktionieren, da hier nur Kleinbuchstaben zulässig sind, jedoch im Musterstring diese Großbuchstaben sind..

Wenn dies in einer späteren Delphiversion geändert worden ist, OK.. Ich hab hier im Moment nur in D6.

Unter D6 ist auch TBytes und PChar nicht kompatible..
Wo ein Wille, da ist auch ein Weg.
Das funktioniert auch unter D6. Beachte den aufrufenden Code in der procedure Main.
Entspricht den angepassten Beispiel von Himi:

Delphi-Quellcode:
program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  SysUtils;

// Von HolgerXs Delphi 6
function HexToBin(Text, Buffer: PChar; BufSize: Integer): Integer; assembler;
const
  Convert: array['0'..'f'] of SmallInt =
    ( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
     -1,10,11,12,13,14,15);
var
  I: Integer;
begin
  I := BufSize;
  while I > 0 do
  begin
    if not (Text[0] in ['0'..'f']) or not (Text[1] in ['0'..'f']) then Break;
    Buffer[0] := Char((Convert[Text[0]] shl 4) + Convert[Text[1]]);
    Inc(Buffer);
    Inc(Text, 2);
    Dec(I);
  end;
  Result := BufSize - I;
end;

procedure Main;
var
  S: string;
  B: string;
begin
  S := '0056006F007200730063006800610075';
  S := LowerCase(S);
  SetLength(B, Length(S) div 2);
  HexToBin(PChar(S), @B[1], Length(B));
  S := StringReplace(B, #0, '', [rfReplaceAll, rfIgnoreCase]);
  Writeln(S);
end;

begin
  try
    Main;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
  Mit Zitat antworten Zitat