Suche String->Hex Funktion

Thema durchsuchen

Ansicht

Themen-Optionen

Suche String->Hex Funktion

Ein Thema von Jumpy · begonnen am 7. Mär 2012 · letzter Beitrag vom 7. Mär 2012

Vorheriger Beitrag

Nächster Beitrag

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.739 Beiträge

Delphi 6 Enterprise

#10

AW: Suche String->Hex Funktion

7. Mär 2012, 11:26

Danke Deddyh. Mit der Format-Funktion hat das geklappt. Muss zwar nochmal alle exotischen Zeichen ausprobieren, aber es sieht gut aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm2.Button2Click(Sender: TObject);

begin

  showmessage(Hex(edCommand.Text));

end;

function TForm2.Hex(s: String): String;

var

  h:String;

  i:integer;

begin

  for i := 1 to Length(s) do

    h:=h+Format('%.2x', [Ord(s[i])]);

  Result:=h;

end;