AnsiString Delphi XE7 [TEncoding]

[Satellite]

На Windows тип AnsiString присутствует, на Android отсутствует.

Имеется код (функция):
 

function TForm1.GetConvertedText(s: string): string;
var
  m:TMemoryStream;
  {$IFDEF MSWINDOWS}ss:AnsiString;{$ENDIF MSWINDOWS}
  {$IFDEF ANDROID} ss:String;{$ENDIF ANDROID}
  b:byte;
begin
  m:=TMemoryStream.Create;
  m.LoadFromFile(s);
  m.Seek(0,soFromBeginning);
  SetLength(ss,5);
  m.Read(ss[1],5);

  if ss=SIGN then
  begin
    ss:='';
    m.Read(b,1);
    SetLength(ss,;
    m.Read(ss[1],;
  end;

  Result:=ss;

  m.free;
end;

На Windows результат отображается нормально, потому что ss:=AnsiString;

А вот на Android'e нету значения AnsiString, поэтому для теста я просто присвоил String; Отсюда пошли кракозябры, как можно получить результат в нормальной читаемой кодировке?

 

Почитав немного, наткнулся на TEncoding, но не разобрался.

[estra]

Примерно так

// bb: TBytes;
bb := BytesOf( ss );
Result := TEncoding.ANSI.GetString( bb, Low( bb ), High( bb )+1 );

[Satellite]

estra, что-то вроде этого пробовал, выводит: "??_?".

[estra]

Пример выкладывайте, посмотрю.

[Satellite]

estra, Немного почистил у себя код, оставил только главное.

Test.zip

[estra]

Частично поправил функцию GetConvertedText, условие if ss=SIGN then выполняется. Далее сами по аналогии...

Test.zip