Visualizar Contenido de Archivo!!

[paucuellar]

Hola:
Priemero que nada, saludos y gracias...soy un poco nueva programando en delphi y de vdd que necesito ayuda...
Ya busque por aqui por el foro, pero las formas que venian ya las utilize y ni asi...
Bueno mi problemita es el siguiente, estoy intentando de que en un memo me muestre el contenido de un archivo, el problemas es que no lo muestra, ya lo intente con Memo.Lines.LoadFromFile(Archivo);
y tmb leyendo cada linea del archivo y luego pasarla al memo pero ni asi. No habra alguna otra manera, que no sea con un memo??? lo necesito urgente ya me vuelvo loca... Muchisimas Gracias!!

[dec]

Hola,

¿De qué tipo es el archivo? Si fuera de "texto plano" un "TMemo" puede mostrarlo sin problemas... tal como tratas de hacerlo, con el método de "Lines" "LoadFromFile".

[paucuellar]

Gracias por responderme!,
Asi es, pero no lo muestra me lo deja en blanco, ya cheque el archivo y si tiene información, entonces no se a que se deba, de seguro es una pequeñez pero nadamas no doy... gracias de nuevo

[[seoane]]

Con que programa lo abres para comprobar que tiene información ???

[paucuellar]

hola, con el bloc de notas...

[[seoane]]

Empezado por paucuellar

hola, con el bloc de notas...

Bien, pues con el documento abierto en el bloc de notas, utiliza la opción del menú "Guardar como ..." y cunado aparezca el dialogo "Guardar como" fíjate que pone en el apartado "Codificación" y nos la dices

[[egostar]]

Pues con esto deberia de bastar

Código Delphi [-]
 
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  Archivo: String;
begin
  Archivo := 'C:\STARW\QUERY1.SQL';
  Memo1.Lines.LoadFromFile(Archivo);
end;

Salud OS.

[paucuellar]

Empezado por seoane

Bien, pues con el documento abierto en el bloc de notas, utiliza la opción del menú "Guardar como ..." y cunado aparezca el dialogo "Guardar como" fíjate que pone en el apartado "Codificación" y nos la dices

jajaja yap gracias estaba en unicode, no se porque, con razon nadamas me ponia un signo raro....gracias me salvaste de reprobar....

[paucuellar]

Empezado por egostar

Pues con esto deberia de bastar


Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
Archivo: String;
begin
Archivo := 'C:\STARW\QUERY1.SQL';
Memo1.Lines.LoadFromFile(Archivo);
end;





Salud OS.

Gracias! asi mismo lo tengo saluditos

[[seoane]]

Se resolvió el misterio

[[egostar]]

Cierto, guarde el archivo como UNICODE y me salio esto

ÿþS

Todos los dias se aprende algo nuevo.

Salud OS.