Текущий архив: 2005.02.20;
Скачать: CL | DM;

Вниз

Как возвратить TStrings из dll?   Найти похожие ветки 

← →
RamZeS   (2005-02-03 03:25) [0]

сабж...

---

← →
Думкин ©   (2005-02-03 07:15) [1]

А в чем затруднения? Как пробовал?

---

← →
REA   (2005-02-03 10:03) [2]

Лучше PChar. Иначе придется ShareMem подключать.

---

← →
RamZeS   (2005-02-03 21:43) [3]

Вот:

function GetGames(FileName: string): TStrings;
var i: TIniFile;
begin
 i:=TIniFile.Create("test.db");
 i.ReadSections(result);
 i.Free;
end;

Что не так?

---

← →
i-s-v ©   (2005-02-04 02:42) [4]

Наверноe лучше так. Экземпляр TStrings создавай внутри ДЛЛки

var
 s: TStrings;

procedure Init;
begin
 s := TStringList.Create;
end;

function GetGames(FileName: string): pointer;
var i: TIniFile;
begin
i:=TIniFile.Create("test.db");
i.ReadSections(s);
i.Free;
Return @s;
end;

procedure Remove;
begin
 s.Free;
end;

---

← →
Думкин ©   (2005-02-04 07:42) [5]

Я испоkьзую ShareMem. Возвращаю через var. Но пока не вижу проблем и в другом. Надо попробовать будет.

---

← →
Владислав ©   (2005-02-04 10:36) [6]

> i-s-v ©   (04.02.05 02:42) [4]

А огрести потенциальные проблемы?

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.045 c