PAnsiChar utf8 русские буквы ?

[Stilet]

В смысле быдло код?

В том смысле что ты возвращаешь из функции указатель на запрошенную в функции память. Но пока не видно что ты эту память освобождаешь.
Можтбть это кнечно и не быдлокод, но утечки память, если не будешь контролировать то что вернет твоя функция тебе обеспечены.

[Должно быть имя?]

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

В том смысле что ты возвращаешь из функции указатель на запрошенную в функции память. Но пока не видно что ты эту память освобождаешь.
Можтбть это кнечно и не быдлокод, но утечки память, если не будешь контролировать то что вернет твоя функция тебе обеспечены.

Ха) вот значит в каком смысле. Нет, ничего освобождать не надо))Вы же имели введу через SetLength ? ну вот) если через нее освободить прям в функции, то я не получу конечный результат где надо, потому что переменная будет освобождена

[Stilet]

Вы же имели введу через SetLength ?

Нет )

если через нее освободить прям в функции

Не в функции а после функции
Ну не важно уже. Делай как делаешь. Лишь бы не для больниц и самолетостроителей.

[Должно быть имя?]

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

Нет )

Не в функции а после функции
Ну не важно уже. Делай как делаешь. Лишь бы не для больниц и самолетостроителей.

И чем же тогда освобождать? али примером наградите ?

[Stilet]

А освобождать за пределами функции.
Примером? Ну я даже не знаю...
Что -то типа

var s:PChar;
...
s:=ТвояФункция();
...
s:='';
Или FreeMem(s);

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

[Vapaamies]

Сообщение от Должно быть имя?

али примером наградите ?

Правильный пример -- тупо удалить эти функции. Именно это я и советовал. Внутри кода на Delphi они не нужны. Для строк должна быть всего одна функция:

function ZValueToString(const Source: zvalue_value): AnsiString;
var
  R: RawByteString;
begin
  SetString(R, Source.Val, Source.Len);
  SetCodePage(R, CP_UTF8, not IsUTF8String(R));
  Result := R;
end;

Эта функция используется везде, где нужны AnsiString, UnicodeString или PAnsiChar:

var
  A: AnsiString;
  U: UnicodeString;
  P: PAnsiChar;
begin
  A := ZValueToString(...);
  U := A; // работает магия компилятора
  P := Pointer(A); // имеет смысл в пределах процедуры, где описана A
end;

Автору темы плюс за желание разобраться. Только так из начинающих становятся профи.

[Должно быть имя?]

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

Правильный пример -- тупо удалить эти функции. Именно это я и советовал. Внутри кода на Delphi они не нужны. Для строк должна быть всего одна функция:

function ZValueToString(const Source: zvalue_value): AnsiString;
var
  R: RawByteString;
begin
  SetString(R, Source.Val, Source.Len);
  SetCodePage(R, CP_UTF8, not IsUTF8String(R));
  Result := R;
end;

Эта функция используется везде, где нужны AnsiString, UnicodeString или PAnsiChar:

var
  A: AnsiString;
  U: UnicodeString;
  P: PAnsiChar;
begin
  A := ZValueToString(...);
  U := A; // работает магия компилятора
  P := Pointer(A); // имеет смысл в пределах процедуры, где описана A
end;

Автору темы плюс за желание разобраться. Только так из начинающих становятся профи.

Спасибо большое! сделал так как вы и сказали, удалил и в правду не нужны

Благодаря этой функции я налепил этакое

function GetStringZval(z:zval):RawByteString;
begin
  Result := '';
  case z._type of
    IS_STRING : begin
      SetString(Result, z.value.str.val, z.value.str.len);
      SetCodePage(Result, CP_UTF8, not IsUTF8String(Result));
    end;
    IS_BOOL, IS_LONG   : Result := RawByteString(inttostr(z.value.lval));
    IS_DOUBLE          : Result := RawByteString(FloatToStr(z.value.dval));
  end;
end;

function ZValueToString(z:zval):WideString;
begin
  Result := WideString(GetStringZval(z));
end;

function ZValueToStringA(z:zval):AnsiString;
begin
  Result := GetStringZval(z);
end;

C PAnsiChar все равно русская кодировка не сохраняется(( По этому я решил что приоритетней будет функция ZValueToString. Которая будет возвращать WideString... Как в общем и сделано везде в XE7, например в LoadLibrary.

Насчет разобраться ДА! я люблю копаться в коде, и учиться.. тем более когда смотрю на свой же код, который буквально был написан пару дней назад, появляется адское желания его выкинуть, он выглядит дико из за того что додумался до более легкого варианта. К примеру вот этот код

function VarinatTypes(n:Integer; arr:array of string):string;
begin
  if (n mod 10 = 1) and (n mod 100 <> 11) then
    Result := arr[0]
  else begin
    if (n mod 10 >= 2) and (n mod 10<=4) and ((n mod 100 < 10) or (n mod 100 >= 20)) then
      Result := arr[1]
    else
      Result := arr[2];
  end;
end;

Выглядел в километр строк он поваляет подобрать правильное окончания числу.

VarinatTypes(45745745634, ['День', 'Дня', 'Дней']); - дней
VarinatTypes(34, ['День', 'Дня', 'Дней']); - Дня