Ver Mensaje Individual
  #5  
Antiguo 23-03-2018
rrf rrf is offline
Miembro
 
Registrado: ago 2003
Ubicación: S/C Tenerife, España
Posts: 454
Reputación: 21
rrf Va por buen camino
Aunque no lo pregunté, pensaba también añadir la opción de leer una lista de nombres desde un archivo de texto y añadirlos en una columna del StringGrid, a partír de la 2 fila.

Usando el código de Ecfisa (gracias de nuevo), hice una adaptación y aquí lo adjunto por si le puede ayudar a alguien. Con pequeños cambios puede adaptarse para que el texto se escriba desde una celda determinada, según las necesidades de cada cual.

Código Delphi [-]
procedure TCreaLista1.Button2Click(Sender: TObject);
var
  ff: TStrings;
  i : integer;
begin
      // Leer archivo de texto con una lista de nombres
      //-------------------------------------------------

  if OpenDialog1.Execute
  then
    begin

      ff:= TStringList.Create ;
      try
        ff.LoadFromFile( OpenDialog1.FileName );

          // escribe el archivo leido en la 2ª columna, desde la 2ª fila hacia abajo
        for i := 0 to ff.Count-1 do
          StringGrid1.Cols[1].Strings[1+i] := ff[i];

      finally
        ff.Free;
      end;

    end
  else
    begin
      ShowMessage( 'No se seleccionó un archivo de texto.');
      exit ;
    end ;

end;

Saludos.
Responder Con Cita