Delphi - Ayuda urgente bloc de notas

 
Vista:

Ayuda urgente bloc de notas

Publicado por el novato (1 intervención) el 27/03/2006 19:40:07
Hola amigos necesito ayuda urgente, que sucede estoy haciendo un block de notas, he utilizado para realizar la operacion de abrir y guardar un actionlist, en tiempo de ejecucion me sale la respectiva ventana Abrir, pero no se visualiza el contenido del archivo abierto en el RichEdit, los mismo sucede con la opcion guardar, a ver si me explico las acciones se llevan a cabo, por lo menos aparentemente, pero no hacen la funcion que debieran....me imagino que me falte algun parametro por especificar, pero no se cual.Les agradecere cualquier ayuda que puedan darme.Gracsias de atemano...
Saludos a todos..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 5
Ha aumentado 1 puesto en Delphi (en relación al último mes)
Gráfica de Delphi

RE:Ayuda urgente bloc de notas

Publicado por MS (35 intervenciones) el 28/03/2006 04:50:47
PRUEBA CON ESTO...

// (((ABRE UN ARCHIVO DE TEXTO )))

var xArchivo:string;
begin

Opendialog1.filter:='Archivos de Texto (*.txt)[*.txt]All files (*.*)[*.*';
if OpenDialog1.Execute then
begin
Richedit1.clear;
xArchivo:=Opendialog1.filename;
Richedit1.lines.LoadFromFile(xArchivo);
end;
end;
//NOTA: Utiliza un componente llamado (Opendialog) que esta en la ficha (Dialog)

// (((GUARDA UN ARCHIVO DE TEXTO)))

var xArchivo:string;
begin
showmessage('!Evita sobreescribir archivos ya existentes!');
SaveDialog1.Title:='Guardando archivo';
SaveDialog1.Filename:='Busca de Cristo';
SaveDialog1.Filter:='Archivos de Texto (*.txt)[*.txt]Todos los Archivos (*.*)[*.*';
if SaveDialog1.Execute then
try
begin
xArchivo:=savedialog1.filename;
richedit1.Lines.SaveToFile(xArchivo);
Richedit1.Modified:=false;
end;
except on exception do
showmessage('!Imposible Guardar los Datos' );
end;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar