TeilString aus DSN filtern

[Ultimator]

Oder auch so:

Delphi-Quellcode:

function Rausfinden(Originalstring: string): string;
begin
  OriginalString:=StringReplace(OriginalString,';','',[]);
  result:=copy(Originalstring,Pos('Data Source=')+12,Pos(';',OriginalString));
end;

Zeile 1 entfernt aus dem EingabeString erstmal das erste Semikolon, damit man mit Pos einfach auf das 2te zugreifen kann (okok, hätte man auch per PosEx machen können, hatte aber gerade keine OH da ).
Ja, und die 2te Zeile weist dem Ergebnis einen Teil des OriginalStrings zu, nämlich alles von 'Data Source='+12 (+12, weil 'Data Source=' eben 12 Zeichen hat, und man ja dahinter anfangen will ) bis zum Semikolon (sollte jetzt das einzige Semikolon im Text sein, das andere wurde ja oben schon ersetzt )