laura
17 de Mayo del 2005

hola disculpa que siga molestando pero ahora necesito realizar un programa que leea lo que estoy esccribiendo en el memo linea por linea y caracter por caracter y lo guarde en un archivo .txt expero que alguien me pueda ayudar.
gracias

franc_slash
17 de Mayo del 2005

Puedes especificar un poco mas?

laura
17 de Mayo del 2005

necesito realizar un programa que lea lo que coloco en el memo y lo guarde en un archivo .txt
exactamente como lo hice en el memo.pero que sea caracter por caracter y linea por linea.

mi codigo de leer del archivo al memo es el siguiente y ahora tengo que hacerlo al reves.



procedure TForm1.LeerLineasClick(Sender: TObject);
var
Archivo_Nombre:TextFile;
cadena:String;
begin
if OpenDialog1.Execute then
Memo1.Lines.Clear; //limpia el memo
begin
AssignFile(Archivo_Nombre,OpenDialog1.FileName);
Reset(Archivo_Nombre);
while not Eof (Archivo_Nombre) do //mientras no se llege al final
begin
Readln(Archivo_Nombre,cadena);
Memo1.Lines.Add(cadena);
end;
closefile(Archivo_Nombre);
Showmessage(\'proceso concluido\');
end;
end;
//************************************************************//
procedure TForm1.BLeerCaracterClick(Sender: TObject);
var
Archivo_Nombre: file of char;
cadena: String;
caracter: Char;
Temp_pos:integer;
begin
if OpenDialog1.Execute then
cadena:=\'\';
Memo1.Lines.Clear; //limpia el memo
begin
AssignFile(Archivo_Nombre,OpenDialog1.FileName);
Reset(Archivo_Nombre);
while not Eof (Archivo_Nombre) do //mientras no se llege al final
begin
Read(Archivo_Nombre,caracter);

cadena:=cadena+caracter;

if caracter=#13 then begin
Temp_pos:=Pos(#10,cadena);
if Temp_pos>0 then
Delete(cadena,Temp_pos,1);
Temp_pos:=Pos(#13,cadena);
if Temp_pos>0 then
Delete(cadena,Temp_pos,1);

Memo1.Lines.Add(cadena);
cadena:=\'\';
end;
end;
closefile(Archivo_Nombre);
Showmessage(\'proceso concluido\');
end;
end;

end.

LAURA
17 de Mayo del 2005

lo que necesito realizar un programa que leea lo que estoy esccribiendo en el memo linea por linea y caracter por caracter y lo guarde exactamente como lo pude en un archivo .txt expero que
alguien me pueda ayudar.
gracias.

mi codigo para leerlo de un archivo a un memo es el siguiente a hora necesito hacerlo al reves
procedure TForm1.LeerLineasClick(Sender: TObject);
var
Archivo_Nombre:TextFile;
cadena:String;
begin
if OpenDialog1.Execute then
Memo1.Lines.Clear; //limpia el memo
begin
AssignFile(Archivo_Nombre,OpenDialog1.FileName);
Reset(Archivo_Nombre);
while not Eof (Archivo_Nombre) do //mientras no se llege al final
begin
Readln(Archivo_Nombre,cadena);
Memo1.Lines.Add(cadena);
end;
closefile(Archivo_Nombre);
Showmessage('proceso concluido');
end;
end;
//************************************************************//
procedure TForm1.BLeerCaracterClick(Sender: TObject);
var
Archivo_Nombre: file of char;
cadena: String;
caracter: Char;
Temp_pos:integer;
begin
if OpenDialog1.Execute then
cadena:='';
Memo1.Lines.Clear; //limpia el memo
begin
AssignFile(Archivo_Nombre,OpenDialog1.FileName);
Reset(Archivo_Nombre);
while not Eof (Archivo_Nombre) do //mientras no se llege al final
begin
Read(Archivo_Nombre,caracter);

cadena:=cadena+caracter;

if caracter=#13 then begin
Temp_pos:=Pos(#10,cadena);
if Temp_pos>0 then
Delete(cadena,Temp_pos,1);
Temp_pos:=Pos(#13,cadena);
if Temp_pos>0 then
Delete(cadena,Temp_pos,1);

Memo1.Lines.Add(cadena);
cadena:='';
end;
end;
closefile(Archivo_Nombre);
Showmessage('proceso concluido');
end;
end;

end.