Asignar valor alojado en .txt a campo Protocol
 

Buen día amigos, tengo duda con lo siguiente, necesito que al dar clic en un botón seleccione la base de datos que está en la ruta del ejecutable y que el parámetro Protocolo sea el contenido de un .TXT


Mi boton de "conectar (por asi decirlo)" es:

Código Delphi [-]
procedure TForm1.ConectarClick(Sender: TObject);
begin
  Unit2.DMPrincipal.FDConnection1.Params.Values['Database'] := ExtractFilePath(Application.ExeName)+'Test.FDB';
  FDQuery1.Open;
end;

Mi codigo para guardar la información que deberia de ir "Protocol" es:

Código Delphi [-]
procedure TForm3.CERRARClick(Sender: TObject);
var
  SList : TStringList;
begin
  SList := TStringList.Create;
  try
    if NombreServer.Text <> '' then
    begin
      SList.Add(NombreServer.Text);
      SList.SaveToFile(ExtractFilePath(Application.ExeName)+'PARAMETROS.TXT');
      ShowMessage('UBICACIÓN DE SERVIDOR GUARDADO');
      Form3.Close;
    end
    else
    begin
      ShowMessage('INGRESE UNA DIRECCIÓN POR FAVOR');
      Exit;
    end;
  finally
    SList.Free;
    SList := nil;

  end;

end;

¿Alguien podrá ayudarme? Saludos.
:D

¡Hola, pgranados!

Para la escritura y lectura de archivos en general, te recomiendo leerte este articulo de DelphiBasics (http://www.delphibasics.co.uk/Article.php?Name=Files).

Aunque también puedes usar un archivo .ini para guardar la configuración y leerla. En este otro artículo puedes leer al respecto. (https://docwiki.embarcadero.com/RADS...nd_TMemIniFile)

Gracias, para imprimir el dato alojado en PARAMETROS.TXT realice lo siguiente:

Código Delphi [-]
procedure TForm3.Button1Click(Sender: TObject);
var
 MiArchivoTxt:textfile;
 lsLine:String;
begin
 AssignFile(MiArchivoTxt,ExtractFilePath(Application.ExeName)+'PARAMETROS.TXT');
 Reset(MiArchivoTxt);
 ReadLn(MiArchivoTxt,lsLine);
 Label6.Caption:=Label6.Caption+lsLine;
 CloseFile(MiArchivoTxt);
 end;

Funciona bien, pero lo que busco indicarle al FDConnection que el parámetro 'Server' lo lea de PARAMETROS.TXT

ERROR MIO, NO ES CAMPO PROTOCOL, ES CAMPO SERVER

No estamos sordos ;)
Punto 6 de nuestra guía de estilo.