Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Дек

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

Posted by maloy under Delphi, Архив

BOBAH13

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

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

mihali4

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

Цитата:

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

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;

тема на форуме от 2009 года