Einzelnen Beitrag anzeigen

Bbommel

Registriert seit: 27. Jun 2007
Ort: Köln
659 Beiträge
 
Delphi 12 Athens
 
#5

AW: Aus Textdatei in ADOConnection.ConnectionString

  Alt 15. Okt 2019, 14:35
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.
  Mit Zitat antworten Zitat