Unicode и Delphi 7

[Valio]

Всем привет.

Дано:
На форме расположены компоненты Edit и RichEdit. Заполняя эти компоненты пользователь сохраняет их в массив записи, предположим такую:

Type
  TPr = Record 
    A : String; 
    B : TStrings;
  End;

и переходит к следующей записи. Тоесть по сути происходит редактирование массива записей TPr. Постоянно идёт сохранение в массив (Edit и RichEdit -> Tpr[i]) а также загрузка из массива (Tpr[i] -> Edit и RichEdit).

Задача:
Нужно (как минимум в RichEdit) вводить спецсимволы (плюсминус, градус, знак диаметра и может ещё чтото).

Проблема:
Лишь RichEdit может работать с этими спецсимволами, но из за того что происходит сохранение (Edit и RichEdit -> Tpr[i]) а также загрузка из массива (Tpr[i] -> Edit и RichEdit), то происходит потеря этих спецсимволов (из за того что есть TStrings).

Тобишь получается что нужно искать компоненты и типы переменых, которые моглиб работать с Unicode. Но судя повсему Delphi 7 такими вещами не располагает.

Вообщем мне нужно както научить своё приложение работать с спецсимволами. В Delphi 9 как с Unicode обстоят дела? Может в ней все компоненты могут работать с Unicode.
И вообще в юникоде ли дело....

Спасибо.

[OlegVE]

Здравствуйте
Попробуйте это

function GetRTFAsString(rEd : TRichEdit):string;
var
  tmpStr : string;
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  rEd.Lines.SaveToStream(MemoryStream);
  SetLength(tmpStr, MemoryStream.Size);
  MemoryStream.Seek(0, soFromBeginning);
  MemoryStream.ReadBuffer(Pointer(tmpStr)^, MemoryStream.Size);
  Result := tmpStr;
  MemoryStream.Free;
end;

Чтобы обратно записать - думаю, сами доделаете

...
  MemoryStream.WriteBuffer(Pointer(tmpStr)^, Length(tmpStr));
  MemoryStream.Seek(0, soFromBeginning);
  rEd.Lines.LoadFromStream(MemoryStream);

...

До свидания

[Valio]

Спасибо.

Я просто думаю что реализация данного вопроса будет выглядить большим программным костылём, который в итоге застопорит дальнейшее развитие программы. Хотелось бы обойтись без костылей.

Как вариант я намерен буду установить Delphi 9 (ибо давно пора) и просто пока программа не разраслась функционалом, переписать туды её в стадии зародыша.

У меня программа использует компоненты ListBox, Memo, RichEdit, Edit... Это всё будет поддерживать Юникод в 9 версии Delphi?

[Человек_Борща]

дадададада