Fórum Hexa para Ascii #192196

Opa, uma correção: No título, eu quis dizer Hexa para String. Para não confundí-los, mudem o nome da função:
[color=red:a5a8b44f17]function AsciiToHex(Texto: String): string;[/color:a5a8b44f17] para
[color=green:a5a8b44f17]function MyStrToHex(Texto: String): string;[/color:a5a8b44f17]

Resumindo, este exemplo mostra um texto (string) convertido em Hexadecimal. Eu quero saber o contrário, como faço para converter Hexadecimal para String.

Também vou colocar a conversõa de String para o código Ascii
correspondente, mas deixarei isto para outra pergunta!

Valeu, pessoal!

[color=blue:e1936a138f]Oi, pessoal, quando eu disse que a conversão Ascii ia ficar para outra pergunta, não vai mais ficar, porque descobri sem querer![/color:e1936a138f]

A função é quase igual a MyStrToHex, muda só duas coisinhas. Vejam:
Aonde está IntToHex(Ord(Texto[i]),1) mude para:
IntToStr(Ord(Texto[i]))

Eu ainda pretendo colocar a representação para binário, se eu conseguir lhes aviso!

Bem, o código completo até agora fica assim:

**********************************************************
Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit; {aqui você digita alguma coisa}
Edit2: TEdit; {aqui aparecerá a representação em Hexadecimal}
Edit3: TEdit; {aqui aparecerá a represemtação em Ascii}
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function MyStrToHex(Texto: string): string;
function MyStrToAscii(Texto: string): string;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.MyStrToAscii(Texto: string): string;
var
Tamanho,i : integer;
PalavraHex : String;
begin
Tamanho := Length(Texto);
for i := 1 to Tamanho do begin
PalavraHex:= PalavraHex + IntToStr(Ord(Texto[i]))+ ´ ´;
end;
Result := PalavraHex;
end;

function TForm1.MyStrToHex(Texto: String): string;
var
Tamanho,i : integer;
PalavraHex : String;
begin
Tamanho := Length(Texto);
for i := 1 to Tamanho do begin
PalavraHex:= PalavraHex + IntToHex(Ord(Texto[i]),1)+ ´ ´;
end;
Result := PalavraHex;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit2.Text:= MyStrToHex(Edit1.Text);
Edit3.Text:= MyStrToAscii(Edit1.Text);
end;

end.