String, AnsiString, Ascii y la madre de Embarcadero

[[nlsgarcia]]

cesarsoftware,

Empezado por cesarsoftware

...¿Como puedo hacer que use la tabla "normal"?...

Empezado por nlsgarcia

...Quizás el problema esta relacionado al CodePage del Sistema Receptor...

Revisa este código:

Código Delphi [-]
// Definiendo un String con un CodePage determinado
procedure TForm1.Button1Click(Sender: TObject);
type

   // CodePage 437 OEM - United States
   USAString = type AnsiString(437);

   // CodePage 28591 ISO 8859-1 Latin I
   LatinIString = type AnsiString(28591);

var
   StrUSA : USAString;
   StrLatinI : LatinIString;
   i : Integer;
   S1, S2 : AnsiString;

begin

   Memo1.Clear;

   StrUSA := 'César';
   S1 := EmptyStr;
   S2 := EmptyStr;

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

   S2 := 'Value StrUSA = ' + StrUSA + ',' + ' CodePage = ' + IntToStr(StringCodePage(StrUSA)) +
         ',' + ' Ordinal StrUSA= ' + S1;

   Memo1.Lines.Add(S2);

   StrLatinI := 'César';
   S1 := EmptyStr;
   S2 := EmptyStr;

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

   S2 := 'Value StrLatinI = ' + StrLatinI + ',' + ' CodePage = ' + IntToStr(StringCodePage(StrLatinI)) +
         ',' + ' Ordinal StrLatinI = ' + S1;

   Memo1.Lines.Add(S2);

end;

El código anterior en Delphi 2010, define un tipo de string asociado a un codepage particular, lo cual permitirá enviar la información del Servidor al Cliente Remoto en función del formato requerido en el Msg #1 por medio del CodePage 437, según se muestra en la siguiente imagen:



Revisa este link:

Understanding Unicode Support in Delphi : http://delphi.about.com/od/objectpas...-in-delphi.htm

Espero sea útil

Nelson.