Hola maycampana.
No quise aventurarme por desconocer que estabas haciendo, pero eso te iba a comentar; que podías hacerlo directamente con
TStrings ya que la propiedad
Lines del
TMemo es de ese tipo.
Como por ejemplo de este modo que modifica la línea indicada:
Código Delphi
[-]
procedure CambiarFila(const FName,Valor: string; const Linea:integer);
begin
with TStringList.Create do
try
LoadFromFile(FName);
Strings[Linea]:= Valor;
SaveToFile(FName);
finally
Free;
end;
end;
Ejemplo de llamada:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
CambiarFila('C:\ARCHIVO.TXT','***************', 1);
end;
Saludos.