Утечка памяти.

[HelloWold]

Вот, нашел описание функций:
1) GetPartOfSpeech([in] BSTR gram_code, [retval, out] UINT* result) – выдает по коду номер части речи;
2) GetPartOfSpeechStr([in] UINT PartOfSpeech, [retval, out] BSTR* result) – выдает по номеру части речи текстовое представление части речи;
3) GetGrammems([in] BSTR gram_code, [retval, out] UINT* result) – выдает по одному коду(первые два символа в gram_code) набор граммем (один бит а result – одна граммема);
4) GrammemsToStr([in] UINT grammems, [retval, out] BSTR* result) – переводит набор граммем в текстовое представление;

[Krok27]

function GetMorphDetail(const SrcAncodes: string): string;
  var
    OneAncode: string;
    i: integer;
  begin
    Result := '';
    i := 1;
    while  i < Length(SrcAncodes) do
      begin
        OneAncode := Copy(SrcAncodes, i, 2);
        if Result <> '' then
          Result := Result + ' ';
        Result := Result + ' ' + RusGramTab.GetPartOfSpeechStr(RusGramTab.GetPartOfSpeech(OneAncode)) + '=' + RusGramTab.GrammemsToStr(RusGramTab.GetGrammems(OneAncode));
        i := i + 2;
      end;
  end;

Вольный перевод:

String __fastcall GetMorphDetail(const String SrcAncodes)
{
    String OneAncode,  Result = "";
    int i=1;
    while(i < SrcAncodes.Length())
    {
            OneAncode = SrcAncodes.SubString(i, 2);
            if(Result != "")
            {
                  Result += " "; 
            }
            
             Result += " "+Form1->RusGramTab->GetPartOfSpeechStr(Form1->RusGramTab->GetPartOfSpeech(OneAncode)) + "=" +
                                  Form1->RusGramTab->GrammemsToStr(Form1->RusGramTab->GetGrammems(OneAncode));
             i +=2;
             // или мне больше нравится
             //++i;
             //++i;

    }

}

[HelloWold]

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

Вольный перевод:

Практически ничем не отличен от моего кода.
Просто данную строчку:

Form1->RusGramTab->GetPartOfSpeechStr(Form1->RusGramTab->GetPartOfSpeech(OneAncode))

Я разбил на две(что бы узнать в какой идет утечка)

P.S. В Debug переменные выглядят так(см аттач) - ничего криминального.

[HelloWold]

Может мне RusGramTab нужно как-то по-другому объявить?
На данный момент объявлено так:

Unit1.h

class TForm1 : public TForm
{
__published:	// IDE-managed Components
	TButton *Button1;
	TMemo *Memo1;
	TMemo *Memo2;
	void __fastcall FormCreate(TObject *Sender);
	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
	void __fastcall Button1Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
	__fastcall TForm1(TComponent* Owner);
	IGramTabPtr RusGramTab;
};

Unit1.cpp

void __fastcall TForm1::FormCreate(TObject *Sender)
{
	RusGramTab = new CoRusGramTab->Create();
	RusGramTab->Load();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
	RusGramTab->Release();
}

[Krok27]

Практически ничем не отличен от моего кода.

Я бы поспорил. Надеюсь посмотрите внимательно и сделаете выводы.
Или мне построчно показывать?

IGramTabPtr

- это COM интерфейс? Судя по коду, то да.
тогда, осмелюсь предположить:

RusGramTab = new CoRusGramTab->Create();

надо поменять на:

RusGramTab = CoRusGramTab->Create();

Посмотрите, что возвращает

Create();

Неплохо было бы проверять

RusGramTab

на NULL после получения экземпляра из

Create();

.

[Krok27]

Ох, все дядя Леня должен делать.

После изучения заголовочных файлов либ имеем:

interface DECLSPEC_UUID("{ECD62F7D-19B6-11D3-A77A-2679A7000000}") IGramTab;
typedef TComInterface<IGramTab, &IID_IGramTab> IGramTabPtr;
......
typedef IGramTabPtr RusGramTabPtr;
......

// *********************************************************************//
// COCLASS DEFAULT INTERFACE CREATOR
// CoClass  : RusGramTab
// Interface: TCOMIGramTab
// *********************************************************************//
typedef TCoClassCreatorT<TCOMIGramTab, IGramTab, &CLSID_RusGramTab, &IID_IGramTab> CoRusGramTab;

Далее в VCL у нас:

class TCoClassCreatorT : public CoClassCreator
{
public:
  static TOBJ    Create();

...
};
Значит надобно делать так:

объявляем:

RusGramTabPtr RusGramTab;

вызываем экземпляр:

RusGramTab = CoRusGramTab::Create();

уничтожаем:

RusGramTab->Release();