ADOConnection Servernamen ermitteln...

[Panschi]

Hab den Fehler gefunden Das Problem war die Copy Funktion. Habe gedacht, dass man den string angibt den anfangspunkt und den endpunkt, aber man muss ja den string, den anfangspunkt und die Länge des stringteiles angeben
Hier mein verbesserter Code, falls jemand ähnliches irgenwann, irgendwie, irgendwo benötigt:

Delphi-Quellcode:

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

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

  for i := 0 to length(Verbindung)-1 do
  begin
    if Verbindung[i] = ';' then
    begin
      u := u + 1;
      if u = 4 then
      begin
        Start := i;
      end;
      if u = 5 then
      begin
        Ende := i;
      end;
    end;
  end;

  for i := Start to Ende do
  begin
    if Verbindung[i] = '=' then
    begin
      Start := i + 1;
      Break;
    end;
  end;

  ServerName := Copy(Verbindung, start, Ende-start);
end;

Danke für eure Hilfe