Forum: Datenbanken
by DeddyH,
29. Sep 2011
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.
Forum: Datenbanken
by DeddyH,
28. Sep 2011
Dann löschen wir ein Zeichen weniger:
Delete(Verbindung, 1, Start + Length(SUCHSTRING) - 1);
Forum: Datenbanken
by DeddyH,
28. Sep 2011
Wie meinen? Zeig doch mal das Original und dann das Ergebnis, dann sieht man wohl eher, wo der Fehler liegt.
Forum: Datenbanken
by DeddyH,
28. Sep 2011
Nein, Strings gehen von 1 bis Length. Ich habe da auch noch einen Vorschlag (getippt und nicht getestet):
procedure TFMain.ServerNamen(const Con: TADOConnection);
const
SUCHSTRING = 'Data Source=';
var Verbindung: string;
i: Integer;
Start: Integer;
begin
Verbindung := Con.ConnectionString;
Forum: Datenbanken
by DeddyH,
28. Sep 2011
Wie schon gesagt: such doch einfach im ConnectionString nach der Zeichenfolge (mit Pos/PosEx). Ab der Position kopierst Du dann.
Forum: Datenbanken
by DeddyH,
28. Sep 2011
Wieso suchst Du nicht einfach nach "Remote Server=" und kopierst ab da bis zum nächsten Semikolon oder bis zum Stringende, falls kein Semikolon mehr kommt?