Кодировка TStringStream

[Alex2009]

Ребят, здравствуйте.
Смотрите какая у меня беда получилась.
Есть FDocument - это TStringStream, так вот, в него заносится текст.
Задача моя сделать так, что бы при

Memo3.Lines.LoadFromStream(FDocument, TEncoding.UTF8);

не нужно было указывать TEncoding.UTF8. Иными словами нужно как то сменить кодировку уже готового документа.

Пробовал FDocument.Encoding.UTF8, не получилось.

[Аватар]

А так

  StringList.DefaultEncoding:=TEncoding.UTF8;

Ой, перепутал. Для StringStream наверно так

Stream:=TStringStream.Create('',TEncoding.UTF8);

[Alex2009]

StringList.DefaultEncoding:=TEncoding.UTF8;

StringList не подойдет, нужно использовать именно TStringStream или TMemoryStream

[Alex2009]

Сообщение от Аватар

Ой, перепутал. Для StringStream наверно так

Stream:=TStringStream.Create('',TEncoding.UTF8);

Пробовал и так тоже, не получилось, кодировка все равно не меняется.
Должны же быть какие то способы.

[Аватар]

Так уж и не получается. В примере во входном файле данные в ANSI, в выходном - UTF8. delphi XE2

procedure TForm1.Button1Click(Sender: TObject);
var StreamIn,StreamOut: TStringStream;
begin
  StreamIn:=TStringStream.Create;
  StreamIn.LoadFromFile('e:\MyText.txt');
  StreamOut:=TStringStream.Create('',TEncoding.UTF8);
  StreamOut.WriteString(StreamIn.ReadString(StreamIn.Size));
  StreamOut.SaveToFile('e:\MyText1.txt');
  StreamOut.Free;
  StreamIn.Free;
end;

[Alex2009]

Перепроверил еще раз, и заметил следующее.
Если в Memo грузить вот так

Memo3.Text := FDocument.DataString;

То все отлично работает, а если сделать вот так

Memo3.Lines.LoadFromStream(FDocument);

То кодировка не применяется. Возможно ли сделать так что бы в обеих случаях без добавления TEncoding в код Memo работала кодировка?
Если кто не понял я не хочу TEncoding добавлять так.

Memo3.Lines.LoadFromStream(FDocument, TEncoding.UTF8);

Моя задача что бы из списка выбиралась нужная кодировка, и мой класс будет переводить текст в нужную кодировку.

[Аватар]

Моя задача что бы из списка выбиралась нужная кодировка

А чего сразу не сказать? Вот, разбирайтесь http://docwiki.embarcadero.com/CodeE...oding_(Delphi))