Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#6

AW: String aus Hex konvertieren.

  Alt 12. Mai 2015, 22:47
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

  function GetChr(s: String; Index: Integer): Char;
  begin
    Result := Chr(StrToIntDef('$' + Copy(s, 1 + (Index - 1) * 2, 2), 0));
  end;

var
  s, String2: string;
  i: Integer;
begin
  s := '000000055550'; //anderes Beispiel (ABCDEF): '414243444546';
  String2 := '';
  for i := 1 to 6 do
    String2 := String2 + GetChr(s, i);

  ShowMessage(String2);
end;
Da vorne aber Nullen sind und #0 ein Steuerzeichen oder das Ende des Strings bedeutet, wird deine Zeichenfolge nichts anzeigen.
  Mit Zitat antworten Zitat