BDE Path değiştirme

[ozcank]

Arkadaşlar BDE Administrator da Databases de bulunan Path' i program içerisnden nasıl değiştirip kaydedebilirim kod olarak yardım edermisiniz?

C:\SIS2003\DATA2004 İken;
C:\SIS2003\DATA2006 yapıp kaydedecem.

[ozcank]

Arkadaşlar bu şekilde yapıyorum fakat ;

Kod: Tümünü seç

procedure TForm1.FormActivate(Sender: TObject);
begin
Edit1.Text:=('PATH=' + 'c:\SIS2003\DATA2006');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Session.ModifyAlias('SIS2003',Edit1.Text);  // Burda hata veriyor.
Session.SaveConfigFile;
end;

[Error] Unit1.pas(37): Unterminated string
[Error] Unit1.pas(38): Incompatible types: 'TStrings' and 'String'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas' hatalarını vriyor yardım ederseniz sevinirim.

[m_ekici]

Eski prg.larımıda bunu buldum;

Var
AParams:TStringList;
begin
AParams := TStringList.Create;
try
AParams.Clear;
AParams.Add('PATH='+ 'c:\SIS2003\DATA2006');
Session.ModifyAlias('SIS2003',AParams);
Session.SaveConfigFile;
Session.Close;
Session.Open;
finally
AParams.free;
end;