Delphi 7 - скрытые возможности Unicode (WideString)

[BOBAH13]

Приветствую. Почему скрытые ? Вот к примеру, не могу понять, нигде встретить вообще не могу. Открывает модуль System.pas нажимаем поиск и вбиваем _WStrCopy и Мы видим, список всех функций для работы с этим интерфейсом WideString.

Собственно вопрос, как возможно, если вообще возможно, все это дело связананное с префиксом WStr... сделать видимым для моей программы в коде, чтобы можно было свободно использовать эти функции ?

Спасибо за сотрудничество.

[Роман Радер]

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

[mihali4]

А вот на это внимание не обратили?

Note
Under Win32, WideString values are not reference-counted. Under Linux, they are.

[BOBAH13]

Сообщение от Роман Радер

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

Гы. Если бы это было так легко Может уже есть порт где-нибудь ?

Сообщение от mihali4

А вот на это внимание не обратили?

Проблему не решает

Даже в таком случае почему тогда мы видим это:

procedure _WStrFromPWCharLen(var Dest: WideString; Source: PWideChar; CharLength: Integer);
{$IFDEF LINUX}
..............
{$ENDIF}
{$IFDEF MSWINDOWS}
asm
        { ->    EAX     Pointer to WideString (dest)      }
        {       EDX     Pointer to characters (source)    }
        {       ECX     number of characters  (not bytes) }
        TEST    ECX,ECX
        JE      _WStrClr

        .....

        CALL    SysFreeString
end;
{$ENDIF}

{$IFDEF MSWINDOWS} - зачем тогда ?

[mihali4]

Сообщение от BOBAH13

Проблему не решает

И не может решить, ибо не существует такой справки (и ссылок) для винды... Только для Линукса...

[BOBAH13]

Скопировал идею из System.pas, и написал саморучно, вот что вышло

function WideCopy(const Str: WideString; const Index, Count: Integer): WideString;
var
  i, n, l: Integer;
begin
  l := Length(Str);
  i := Index;
  n := Count;

  if (i < 1) then
    i := 0
  else
  begin
    Dec(i);
    if (i > l) then
      Exit;
  end;
  
  if (n < 0) then
    Exit;
  n := l - i;
  if (n > Count) then
    n := Count;

  SetLength(Result, n);
  Move(Pointer(Integer(Pointer(Str)) + i * SizeOf(WChar))^,
    Pointer(Result)^, n * SizeOf(WChar));  
end;

[Serge_Bliznykov]

Ребят, а перейти на версию 2009 - не вариант? Там заявленная нативная поддержка уникода (в том числе и в VCL контролах)...

[BOBAH13]

Сообщение от Serge_Bliznykov

Ребят, а перейти на версию 2009 - не вариант? Там заявленная нативная поддержка уникода (в том числе и в VCL контролах)...

Не вариант Но я уже собираюсь, просто проект уже делаю на дельфи 7. Щас вот все String заменяю на WideString, вроде все стало норм.