Aus Textdatei in ADOConnection.ConnectionString

[Kratos]

Hi Leute,

ich bin Delphi-Neuling und nutze Delphi 10.3. Das konnte ich aber leider hier im Forum nicht auswählen.
Ich hab das Forum schon durchsucht, aber nicht ganz das Richtige für mich gefunden. Ich hoffe es ist kein Problem, dass ich ein neues Thema erstellt habe. Vielleicht hat ja einer einen passenden Link parat, sodass dieser Thread schnell wieder geschlossen werden kann.

Mein Programmaufbau:

Code:

edtLaden(TEdit), btnLaden(TButton)
btnConnect(TButton)
ADOCOnnection
ListBox1

Meine Idee:
Ich klick auf btnLaden . TOpenDialog erscheint. Ich wähle eine txt-Datei aus. Der Pfad wird in edtLaden geladen. In der txt-Datei ist in einer einzigen Zeile ein ConnectionString gespeichert, den ich brauche um eine Verbindung zu einer Datenbank herzustellen.
--- Bis hier hin klappt alles.
Wenn ich jetzt auf btnConnect klicke, soll die erste Zeile/der Inhalt der txt-Datei in ADOConnection.ConnectionString geschrieben werden. Das klappt aber nicht. ich bekomme folgende Fehlermeldung:

 E2010 Inkompatible Typen: 'WideString' und 'procedure, untyped pointer or untyped parameter'

Der Inhalt der Datebank soll dann in ListBox1 angezeigt werden. Wenn ich den ConnectionString manuell in ADOConnection.ConnectionString eintrage, klappts.
Wenn ich den ConnectionString bereits bei FormCreate aufrufe, klappts auch.
Jedoch will ich später mit meinen Programm, mehrere Datenbanken einlesen, ohne das Programm schließen zu müssen und ohne den ConnectionString jedes Mal neu eintragen zu müssen.
Vielleicht kann mir ja jemand weiterhelfen

Mein Versuch:

Code:

procedure TForm.btnConnectClick(Sender: TObject);
begin
  ADOConnection.Connected := False;
  ADOConnection.ConnectionString := ListBox1.Items.LoadFromFile(edtLaden.Text);
  ADOConnection.Connected := True;
end;

Das klappt:

Code:

procedure TForm.FormCreate(Sender: TObject);
begin
  ADOConnection.ConnectionString := 'bliblablub';
end;

[Moombas]

ListBox1.Items.LoadFromFile(edtLaden.Text) ist ja auch kein String.
Du willst ja das erste Item der Listbox haben.

Code:

 ADOConnection.ConnectionString := ListBox1.Items[Zeile des ConnectionString];

[p80286]

Code:

  ADOConnection.ConnectionString := ListBox1.Items.LoadFromFile(edtLaden.Text);

  ADOConnection.ConnectionString := 'bliblablub';

Fällt Dir was auf?

Falls nicht
ADOConnection.ConnectionString := ListBox1.Items[a]; ist erfolgversprechender. (hab jetzt die genaue Syntax nicht parat, es muß auf jeden Fall ein String sein)

Gruß
K-H

[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/