BDEのAliasから絶対パスを取得するには？

解決

hebo  2012-05-15 20:37:54  No: 42193  IP: [192.*.*.*]

未だにBDEでparadoxを使っているんですが、BDEのAliasから絶対パスを取得する関数が有ったと思うんですが、分らなくなってしまいました。
どなたか、教えていただけませんか。それにしてもXE2のヘルプは使いにくいです。

編集    削除
tarou  2012-05-16 00:11:45  No: 42194  IP: [192.*.*.*]

var
  i  :Integer;
  s  :String;
  name :String;
  st :TStringList;
begin
  Session.GetAliasNames(ListBox_dumy.Items);
  st := TStringList.Create;
  LKbouclient :=''; LKbouserver :='';
  for i :=0 to ListBox_dumy.Items.Count -1 do
  begin
    if ListBox_dumy.Items[i] ='TEST' then
    begin
      Session.GetAliasParams(ListBox_dumy.Items[i], st);
      s :=st[0]; name :=StringReplace(s,'PATH=','',[rfReplaceAll, rfIgnoreCase]);
    end;
  end;
  st.Free;
end;


TESTアリアスからnameに取得します。

編集    削除
hebo  2012-05-16 00:56:12  No: 42195  IP: [192.*.*.*]

tarou様、ありがとうございます。
samplecodeでよく分りました。

編集    削除