ADO connection string zur laufzeit verändern

[Stevie]

Was machst du denn da? Einer Funktion einen Wert zuweisen??? Ähem, das wird folgendermaßen gemacht!

Delphi-Quellcode:

function TDataModule1.OpenDatabase: Boolean;
begin
  Result := true;
  try
    ADOConnection1.Open;
  except
    Result := false;
  end;
end;

Delphi-Quellcode:

function TDataModule1.EditFussballEM_DSN(var DSN: string): Boolean;
begin
  Result := true;
  if ADOConnection1.Connected then //und hier der zweite
    if not CloseDatabase then
    begin
      Result := false;
      Exit;
    end;
  if EditConnectionString(ADOConnection1) then
    DSN := ADOConnection1.ConnectionString
  else
    Result := false;
end;