использование строк, указателей (string, PChar) в Delphi XE2

[XAKKEP]

Пишу функцию для конвертации одной строки в массив array of const для последующего вызова функции Format. Возникла одна проблема. На третьем шаге во второй элемент массива Result пишется та же ссылка, что и в нулевой. И в нулевом элементе заменяется значение на такое же, что во втором.
например:

  type TVarRecArr = array of TVarRec;

  function Split(Str: string; const Ch: Char): TVarRecArr; // разделяет целую строку Str на массив array of const. элменты массива разделяются знаком Ch
  var
    i, j: Integer;
    Count: Integer; // количество разделителей
    Fstr: string;

  begin
    // считаем сколько будет частей
    Count := 0;
    for i := 1 to Length(Str) do
      if Str[i] = Ch then
        Inc(Count);

    // выделяем память под столько частей
    SetLength(Result, Count);

    // копируем
    j := 0;
    for i := 1 to Length(Str) do // для того чтобы отдельно последний элемент не писать, в исходной строке гарантированно последний знак будет Ch
    begin
      if Str[i] = Ch then
      begin
        Result[j].VPWideChar := PChar(Copy(FStr, 1, maxint));
        Result[j].VType := vtPWideChar; // устанавливаем тип
        Inc(j);
        Fstr := '';
      end
      else
        insert(Str[i], Fstr, Length(Fstr)+1);
    end;
  end;

[Sibedir]

var
  i, j: Integer;
  Count: Integer; // количество разделителей
  Fstr: string;
  PWCh: PWideChar;
begin
  // считаем сколько будет частей
  Count := 0;
  for i := 1 to Length(Str) do
    if Str[i] = Ch then
      Inc(Count);

  // выделяем память под столько частей
  SetLength(Result, Count);

  // копируем
  j := 0;
  Fstr := '';
  for i := 1 to Length(Str) do // для того чтобы отдельно последний элемент не писать, в исходной строке гарантированно последний знак будет Ch
  begin
    if Str[i] = Ch then
    begin
      PWCh := GetMemory ((Length(Fstr)+1) * 2);
      StringToWideChar (Fstr, PWCh, (Length(Fstr)+1) * 2);

      Result[j].VType := vtPWideChar; // устанавливаем тип
      Result[j].VPWideChar := PWCh;
      Inc(j);
      Fstr := '';
    end
    else
      Fstr := Fstr + Str[i];
  end;
end;

[XAKKEP]

Спасибо, помогло.

И если не сложно, хотелось бы услышать объяснения, почему Copy не сработал

[Sibedir]

Не сработал? Как-раз сработал. Не понятно только куда он скопировал. Ведь место под WideChar мы не выделяли.

[GunSmoker]

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

Спасибо, помогло.

И если не сложно, хотелось бы услышать объяснения, почему Copy не сработал

http://www.transl-gunsmoker.ru/2009/09/pchars.html

Несложно сообразить, что:
1. Если ты сам не сохраняешь результат вызова функции, то компилятор вынужден сохранять его во временную переменную.
2. В цикле временная переменная всего одна на каждую итерацию.