ADOConnection Servernamen ermitteln...

[Panschi]

Es klappt und es ist mit DeddyHs Idee sogar kürzer und einfacher
Vielen dank

Hier mein Quelltext:

Delphi-Quellcode:

procedure TFMain.ServerNamen(const Con: TADOConnection);
var Verbindung: string;
    i: Integer;
    Start: Integer;

begin
  ServerName := '';
  Verbindung := Con.ConnectionString;

  start := Pos('Data Source=', Verbindung);
  start := start+12;

  ServerName := '';

  for i := start to length(verbindung)-1 do
  begin
    if Verbindung[i] = ';' then
    begin
      Break;
    end
    else begin
      Servername := Servername + Verbindung[i];
    end;
  end;
end;