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 ";"