Ich hab nun festgestellt, woran es liegt.
Weiß aber nicht warum...
Wenn ich folgende Prozedur deaktiviere, werden auch die Daten zur Laufzeit angezeigt:
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var DSN: string;
begin
if ReadDSNFromRegistry(DSN)=true then begin
if DataModule2.SetMeineAnwendungDSN(DSN)=true then
if DataModule2.OpenDatabase=false then begin
MessageDlg('Es konnte keine Verbindung zur Datenbank '+
'aufgebaut werden.', mtError, [mbOK], 0);
DatenbankKonfiguration1Click(Sender);
end;
end
else if DataModule2.OpenDatabase=false then begin
MessageDlg('Es konnte keine Verbindung zur Datenbank '+
'aufgebaut werden.', mtError, [mbOK], 0);
DatenbankKonfiguration1Click(Sender);
end
else begin
MessageDlg('Es konnte keine DSN ausgelesen werden.',
mtError, [mbOK], 0);
DatenbankKonfiguration1Click(Sender);
end;
end;
Wenn ich sie aktiviert lasse, läuft sie aber ohne Fehler durch, sodaß ich annehmen muß, daß das Auslesen des Strings erfolgreich war...
