TeilString aus DSN filtern

[NicoDE]

Quick 'n Dirty...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  Foo: string = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DATABASE.MDB;Jet OLEDB:Engine Type=4';
begin
  with TStringList.Create() do
  begin
    Text := StringReplace(Foo, ';', #10, [rfReplaceAll]);
    ShowMessage(Values['Data Source']);
    Free();
  end;
end;