[ivanisimus]

Здравствуйте
EurekaLog говорит что в след функции утечка памяти.... подскажите что не так?

Код:

function TSQLiteTable.GetFieldByName(FieldName: string): string;
begin
  Result:=UTF8ToUnicodeString(GetFields(self.GetFieldIndex(FieldName)));
end;

а когда вот так:

Код:

function TSQLiteTable.GetFieldByName(FieldName: string): string;
begin
  Result:=GetFields(self.GetFieldIndex(FieldName));
end;

то утечки нет. как сделать чтобы строка конвертировалась но не было утечки?
Спасибо.

[M.A.D.M.A.N.]

Результат ф-ии getfields прибивать после передачи в функцию UTF8ToUnicodeString.

[ivanisimus]

Скажите пожалуйста, как это правильно сделать, и если можно скажите почему оно само не прибивается?

[M.A.D.M.A.N.]

Код:

function TSQLiteTable.GetFieldByName(FieldName: string): string;
var
  foo: string;
begin
  foo := GetFields(self.GetFieldIndex(FieldName));
  Result:=UTF8ToUnicodeString(foo);
  setlength(foo, 0);
end;

[ivanisimus]

Спасибо, работает.

[ivanisimus]

Прошу прощения, не работает
code.jpg