Abrir un archivo txt en un StringGrid

[[Caral]]

Hola
Tal vez si nos muestras lo que tienes podriamos darnos una idea.
Saludos

[[Delphius]]

Hola blackpic,
No se si te he comprendido bien. ¿Deseas que el texto leído de un archivo se copie en un TStringGrid, cada letra en una columna distinta?

Si es eso, entonces bastaría con realizar un algoritmo como este, por ejemplo:

1. Establecer la cantidad de columnas adecuadas al tamaño del texto
2. Recorrer el texto y copiar el caracter i_ésimo en la columna i_ésima

Un ejemplo de esto es como sigue:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i, cant: integer;

begin
  cant := Length(edit1.Text); // la longitud de texto

  StringGrid1.ColCount := cant + 1; // suponemos que la primera columna es "fija"
  for i := 1 to cant do
    StringGrid1.Cells[i,1] := Edit1.Text[i]; // copiamos caracter
end;

Saludos,

[[Delphius]]

Empezado por blackpic

bueno te cuento que con un simplie codigo, usando un button y usando un Opendialog puedo abrir el archivo Txt y visualizarlo en un Memo...

aqui estan las pocas linea del codigo..

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
memo1.Lines.LoadFromFile(opendialog1.FileName);
{nose lo que va aqui para tambien cargarlo en el stringgrid}

end;

Bueno, eso es un avanze. El tema es que un StringGrid es una matriz. Y como matríz, para acceder a sus elementos, hay que referenciarlos por sus índices.

Para leer un archivo tienes dos opciones: Cargarlo en una fila, o cargarlo en una columna.
El StringGrid tiene dos propiedades del tipo TStrings: Cols, y Rows. Como son TStrings, cuentan con el método LoadFromFile. En resumen lo que pareciera estás buscando es esto:

Código Delphi [-]
StringGrid1.Cols[NumeroColumna].LoadFromFile(...); // O Bien,
StringGrid1.Rows[NumeroFila].LoadFromFile(...);

Pero hay algo que me llama la atención. Cómo debemos interpretar la diferencia entre 'Delphi' y 'D e l p h i'?:

Empezado por blackpic

Quiero que cuando habra el archivo, visualizarlo en forma de matrix en el StringGrid...
Por ejemplo en contenido del Txt es 'Delphi' y me gustaria verlo en la matrix de esta forma 'D e l p h i'.....

Si es como yo me lo imaginé en el post anterior, entonces deberás implementar tu propia rutina "LoadFromFile" para que a medida que lees el contenido del archivo, copies caracter a caracter ya sea en filas o en columnas.

Aconsejo leer la ayuda que proporciona Delphi sobre el componente que estamos tratando.

Saludos,

[[Caral]]

Hola
Aqui hay un ejemplo que hace mas cosas de las que necesitas, seguro te guiara.
Saludos

[blackpic]

bueno sigo con mis avances gracias a ustedes intentendo hacer algo con estas linea

Código Delphi [-]
 StringGrid1.Cols[NumeroColumna].LoadFromFile(...); // O Bien, 
StringGrid1.Rows[NumeroFila].LoadFromFile(...);

hice esta parte haver como podria verce el Txt en las columnas
y lo que sale en cada columna es
|Delphi| |Delphi| |Delphi| |Delphi| |Delphi| |Delphi|,
6 veces ya que en el contenido del Txt hay 6 lectras.. estoy buscano la manera de visualizarlo como el ejemplo que me puso el amigo Delphius con el Edit...

este es lo poco que tengo realizado...

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
var i, cant: integer;
begin 
opendialog1.Execute;  
cant := Length(opendialog1.FileName); // la longitud de texto  
StringGrid1.ColCount := cant + 1; // suponemos que la primera columna es "fija"   
for i := 1 to cant do  
stringgrid1.Cols[i].LoadFromFile(opendialog1.FileName);
 end;

ah amigo Delphius cuando me referia a escribir 'Delphi' y 'D e l p h i'?: era a representarlo ya sea en las columnas o en las filas de la matriz... y disculpa no se por que salio mal cuando lo publique ya que le di vista previa y vi el post bien...

[[Delphius]]

Empezado por blackpic

bueno sigo con mis avances gracias a ustedes intentendo hacer algo con estas linea
Código Delphi [-]StringGrid1.Cols[NumeroColumna].LoadFromFile(...); // O Bien, StringGrid1.Rows[NumeroFila].LoadFromFile(...);


hice esta parte haver como podria verce el Txt en las columnas
y lo que sale en cada columna es
|Delphi||Delphi||Delphi||Delphi||Delphi||Delphi|, 6 veces ya que en el contenido del Txt hay 6 lectras.. estoy buscano la manera de visualizarlo como el ejemplo que me puso el amigo Delphius con el Edit... este es lo poco que tengo realizado...
Código Delphi [-]procedure TForm1.Button2Click(Sender: TObject); var i, cant: integer; begin opendialog1.Execute; cant := Length(opendialog1.FileName); // la longitud de texto StringGrid1.ColCount := cant + 1; // suponemos que la primera columna es "fija" for i := 1 to cant do stringgrid1.Cols[i].LoadFromFile(opendialog1.FileName); end;


ah amigo Delphius cuando me referia a escribir 'Delphi' y 'D e l p h i'?: era a representarlo ya sea en las columnas o en las filas de la matriz...

blackpic, la verdad es que no logro entender nada de lo que escribiste.
Por favor edita el mensaje y emplea correctamente la etiqueta DELPHI:
[ DELPHI ]el código aqui[ /DELPHI ]

(Sin los espacios entre los corchetes)
Para que el código se resalte.

¿Cómo que te sale 6 veces, seis letras? Yo veo que por lo que comentas: tienes escrito 6 veces "Delphi" en tu archivo.
Ha, por cierto, cuando uno invoca al LoadFromFile() debe, previamente, establecerse la cantidad de filas o columnas. Al menos en D6, no se añaden las filas o columnas necesarias para que todo el contenido del archivo entre. Desconozco si en otras versiones el comportamiento es similar, o si se ha modificado.

¿Podrías aclararte por favor?
Cuanto más detalles nos aportes más fácil será ayudarte. No te vamos a cobrar por la cantidad de palabras. No ahorres, se más descriptivo y prolijo al momento de postear. Por favor.

Saludos,

[blackpic]

Disculpa pero ya esta el post correjido