Asignar valor alojado en .txt a campo Protocol

[pgranados]

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.

[[movorack]]

¡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)

[pgranados]

Empezado por movorack

¡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

[pgranados]

Empezado por pgranados

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.

ERROR MIO, NO ES CAMPO PROTOCOL, ES CAMPO SERVER

[Casimiro Noteví]

Empezado por pgranados

ERROR MIO, NO ES CAMPO PROTOCOL, ES CAMPO SERVER

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