ADOConnection Servernamen ermitteln...

[Panschi]

habe jetzt eine Prozedur geschrieben, welche den Data Source Teil, welcher sich im Connection string zwischen dem 4. und dem 5. ";" befindet, rauskopiert. Der resultierende String fängt an der richtigen Stelle an, endet aber zu weit hinten
Hier mein bisheriger quelltext:

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-1;
      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);
end;

Edit: Die Varialbe u zählt in der Prozedur die vorkommenden ";"