Borrar una línea de en un txt

[ecfisa]

Hola maycampana.

Para borrar una línea determinada de un TMemo:

Código Delphi [-]
 Memo1.Lines.Delete( Número de línea );

Para borrar el contenido de una línea determinada:

Código Delphi [-]
  Memo1.Lines[ Número de línea ]:= '';

Recuerda que las líneas comienzan numerándose de 0.

Si aún así no logras el resultado sería interesante poder ver el código.

Saludos.

[maycampana]

Gracias ecfisa, estaba intentando con una var TStringList como encontré por ahí en la web, no lograba que ande porque la estaba mal ubicado el código. Ahora funciona creando la var TStringList, luego cargarla con LoadFromFile(nombredelarchivo) y después con la función Delete como me indicaste. Mil gracias

[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.

[maycampana]

Gracias amigo, ya solucioné el tema de borrar la línea guardada en un archivo txt. Ahora sigo renegando con una progressbar que quiero poner en una ventana, pero me voy por el hilo que ya había creado. Saludos