Aus Textdatei in ADOConnection.ConnectionString

[Kratos]

Dankeschön euch beiden für eure schnellen Antworten!
Das hat mich wieder ein Stück weitergebracht.


Wie würden die ersten Denkanstöße aussehen, wenn man den Zwischenschritt (Zwischenspeichern des Inhalts in der ListBox) weglassen möchte?
Meine neue Idee ist, dass der ConnectionString, der in der txt-Datei gespeichert ist, direkt aus der txt-Datei in ADOConnection.ConnectionString gelesen werden soll.
Ist das überhaupt möglich?

[Bbommel]

Also, eine von Delphi mitgelieferte Funktion, mit der du als "Einzeiler" den Inhalt der Datei an den ConnectionString zuweisen kannst, fällt mir zumindest auf Anhieb nicht ein. Die ganzen LoadFromFile und ähnliche sind alles Methoden, die eine Datei irgendwo in den Speicher laden und das kann man dann sauber weiterverarbeiten.

Aber es ist auf jeden Fall der absolut richtige Ansatz von dir, dass du das Laden der Datei nicht über den Umweg einer Visuellen Komponente wie der Listbox umsetzen willst! Ein möglicher und einfacher Ansatz, der dem bisherigen sehr nahe kommt, aber eben ohne diese visuelle Komponente, ist die Nutzung von TStringList:

Delphi-Quellcode:

procedure TForm.btnConnectClick(Sender: TObject);
var
  fileContent: TStringList;
begin
  fileContent:=TStringList.Create;
  fileContent.LoadFromFile(edtLaden.Text);
  ADOConnection.Connected := False;
  ADOConnection.ConnectionString := fileContent[0];
  ADOConnection.Connected := True;
  fileContent.Free;
end;

Um es sauber zu machen, sollte man das ganze noch mit try/except und/oder try/finally absichern, damit man reagieren kann, wenn beim Laden der Datei ein Problem auftritt. Aber das nur schon mal als Hinweis für den nächsten Schritt.

[Kratos]

Vielen Dank für den Tipp!

Mit StringList hab ich noch nicht gearbeitet.
Das werde ich jetzt auf jeden Fall nachholen.

VG
Kratos

[Kratos]

@Bbommel

Hat super geklappt dein Code. Danke dir!

Eine Frage hab ich dazu allerdings noch:
Was bedeutet die [0] bei

Code:

ADOConnection.ConnectionString := fileContent[0];

?
Bedeutet das, dass die erste Zeile, der in der Variablen fileContent gespeicherten Datei, dem ConnectionString zugewiesen wird, oder hat das eine andere Bedeutung?

[Bbommel]

Genau, so bekommst du den ersten Eintrag der Liste der Strings, die in der StringList "fileContent" gespeichert sind. Und das wiederum ist die erste Zeile deiner Datei.

Ausführlicher könnte man auch schreiben:
ADOConnection.ConnectionString := fileContent.Strings[0];
Aber weil "Strings" die Standardeigenschaft einer TStringList ist, kann man das auch weglassen.

Siehe hier: http://docwiki.embarcadero.com/Libra...trings.Strings

Ich hoffe, da waren noch ein paar hilfreiche Stichworte dabei, damit du dich weiter einlesen kannst.

[Kratos]

@Bbommel
Alles klar, danke dir.

Zitat:

Ich hoffe, da waren noch ein paar hilfreiche Stichworte dabei, damit du dich weiter einlesen kannst.

Ja, auf jeden Fall.

Ich finde es gerade irgendwie super geil, wie hier der Austausch funktioniert!

Nochmal danke @alle.

VG
Kratos

[haentschman]

Moin...
Unasbhängig von der Aufgabe...ich würde dir statt einer "normalen" Textdatei eine INI Datei empfehlen. Ist zwar auch nur eine Textdatei aber mit Struktur.
https://www.delphi-treff.de/tipps-tr...n/ini-dateien/

[freimatz]

Zitat von Bbommel:

Also, eine von Delphi mitgelieferte Funktion, mit der du als "Einzeiler" den Inhalt der Datei an den ConnectionString zuweisen kannst, fällt mir zumindest auf Anhieb nicht ein.

Seit einiger Zeit gibt es in unit System.IOUtils die Methode TFile.ReadAllText(). Das nimmt aber die ganze Datei und nicht nur die erste Zeile.