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

解決

hebo 2012-05-15 20:37:54 No: 42193

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

tarou 2012-05-16 00:11:45 No: 42194

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

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