我的dbgrid的picklist是动态添加的，想给最终用户也能自定义其值，所以我想往picklist中add一个text文件，其值就在这文件中，而且是放在程序目录的txt目录下，请问如何读入？

Question

picklist是一个TStrings的对象，你可以像操作一个TStrings一样操作它。具体到你的情况，大概是dbgrid1.columns[i].PickList.LoadFromFile('.\txt\sex.txt'),sex.txt文件存放你想放到下拉列表的值。我有没有理解错你的意思？另外，我没有试验，不知道行不行。

Answer 1

你可以利用一个函数用于取得当前路径,如:
function TMainForm.GetDir: string;
begin
  Result := ExtractFilePath(ParamStr(0));
  if Result[length(Result)] <> '\' then
    Result := Result + '\';
end
这样可这样写:
dbgrid1.columns[i].PickList.LoadFromFile(mainform.getdir+'\txt\sex.txt'),
保证没问题.

Answer 2

hzb(Explorer)　：对，就这意思。
wfmwg(马子)　：我去试试。

Answer 3

hzb(Explorer)　:多谢，可以的。
wfmwg(马子)　：好象不是很对，TMainForm程序认不出这是什么。要不要加上声明？我是菜鸟，别生气。

Answer 4

还有一个问题，就是如何检测目录下有此文件？比如万一这个txt文件给删了，程序就会出错。
应该用个if 有此文件 then load...；没有的话就不load了。这样又是如何写呢？

Answer 5

当然要在USES里面将MAINFORM添加上