String, AnsiString, Ascii y la madre de Embarcadero

[[nlsgarcia]]

cesarsoftware,

Empezado por cesarsoftware

...si mando una cadena con mi nombre a...digamos un socket no se envia "César" sino "CÚsar'...(67, 130, 115, 97, 114) osea "César"...sale (67,233, 115, 97, 114) osea "CÙsar"...

Te comento: El ordinal 130 corresponde al carácter "," y el ordinal 233 corresponde al carácter "é".

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
   A1 : Array[1..5] of Byte = (67,233,115,97,114);
   A2 : Array[1..5] of Byte = (67,218,115,97,114);

var
   i : Integer;
   AuxStr : String;
   Secuencia : String;

begin

   // 1- Secuencia 'César' en Representación Ordinal

   Secuencia := EmptyStr;
   AuxStr := 'César';

   for i := 1 to Length(AuxStr) do
      Secuencia := Secuencia + IntToStr(Ord(AuxStr[i])) + ',';

   ShowMessage(Secuencia + ' = ' + '67,233,115,97,114,');

   // 2- Arreglo (67,233,115,97,114) en Representación de Carácteres

   Secuencia := EmptyStr;

   for i := Low(A1) to High(A1) do
      Secuencia := Secuencia + Chr(A1[i]);

   ShowMessage(Secuencia + ' = ' + 'César');

   // 3- Secuencia 'CÚsar' en Representación Ordinal

   Secuencia := EmptyStr;
   AuxStr := 'CÚsar';

   for i := 1 to Length(AuxStr) do
      Secuencia := Secuencia + IntToStr(Ord(AuxStr[i])) + ',';

   ShowMessage(Secuencia + ' = ' + '67,218,115,97,114,');

   // 4- Arreglo (67,218,115,97,114) en Representación de Carácteres

   Secuencia := EmptyStr;

   for i := Low(A2) to High(A2) do
      Secuencia := Secuencia + Chr(A2[i]);

   ShowMessage(Secuencia + ' = ' + 'CÚsar');

end;

El código anterior en Delphi 7 sobre Windows 7 Professional x32, representa la secuencia (C, é, s, a, r) en valores ordinales (67, 233, 115, 97, 114) y la secuencia (C,Ù,s,a,r) en valores ordinales (67, 218, 115, 97, 114) según lo esperado, Pregunto: ¿Las secuencias de carácteres del código anterior se representan correctamente en sus valores ordinales en tu sistema?.

Revisa este link:

ASCII Code - The extended ASCII table : http://www.ascii-code.com/

Espero sea útil

Nelson.