Borrar una línea de en un txt

[ecfisa]

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.