ADOConnection Servernamen ermitteln...

[Panschi]

jop, so klappt diese Variante dann auch :thumb:

[Sir Rufo]

Ihr macht euch aber auch das Leben schwer :)

Delphi-Quellcode:

with TStringList.Create do
  try
    DelimitedText := con.ConnectionString;
    ServerName := Values[ 'Data Source' ];
  finally
    Free;
  end;

[DeddyH]

Naja, falls Leerzeichen im Servernamen erlaubt sind, bringt Deine Routine unter Delphi 5 u.U. ein falsches Ergebnis, da es noch keine StrictDelimiter-Property gibt.

[FredlFesl]

Er hat aber D7E.

[DeddyH]

Da trifft dasselbe zu.