ADOConnection Servernamen ermitteln...

[DeddyH]

Nein, Strings gehen von 1 bis Length. Ich habe da auch noch einen Vorschlag (getippt und nicht getestet):

Delphi-Quellcode:

procedure TFMain.ServerNamen(const Con: TADOConnection);
const
  SUCHSTRING = 'Data Source=';
var Verbindung: string;
    i: Integer;
    Start: Integer;

begin
  Verbindung := Con.ConnectionString;
  ServerName := '';
  
  Start := Pos(SUCHSTRING, Verbindung);
  if Start > 0 then
    begin
      Delete(Verbindung, 1, Start + Length(SUCHSTRING));
      Start := Pos(';', Verbindung);
      if Start > 0 then
        Delete(Verbindung, Start, Length(Verbindung));
      Servername := Verbindung;
    end;  
end;