Ayuda con aplicacion (BD)

[ecfisa]

Hola Joker.

Se me ocurre que podrías utilizar un OpenDialog para agregar los nombres al archivo de texto y eliminarlos desde allí.

Algo así :

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    btnAgregar: TButton;
    OpenDlg: TOpenDialog;
    btnBorrar: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnAgregarClick(Sender: TObject);
    procedure btnBorrarClick(Sender: TObject);
  private
    FArchivos: TextFile;
    procedure AgregarArchivo;
    procedure BorrarArchivos;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
 
implementation {$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AssignFile(FArchivos,'C:\AELIMINAR.TXT');
  try
    Reset(FArchivos);
  except
    Rewrite(FArchivos);
  end;
end;

procedure TForm1.AgregarArchivo;
var
  SList: TStringList;
begin
  SList:= TStringList.Create;
  SList.LoadFromFile('C:\AELIMINAR.TXT');
  if OpenDlg.Execute then
  begin
    if SList.IndexOf(OpenDlg.FileName)> 0 then
      ShowMessage('El archivo ya existe en la lista para ser eliminado')
    else
    begin
      Append(FArchivos);
      Writeln(FArchivos, OpenDlg.FileName);
      CloseFile(FArchivos);
    end;
  end;
end;
 
procedure TForm1.BorrarArchivos;
var
  Nombre: string;
begin
  Reset(FArchivos);
  while not Eof(FArchivos) do
  begin
    Readln(FArchivos, Nombre);
    if not DeleteFile(Nombre) then
      ShowMessage('No se pudo eliminar: '+Nombre);
  end;
  CloseFile(FArchivos);
end;

procedure TForm1.btnAgregarClick(Sender: TObject);
begin
  AgregarArchivo;
end;

procedure TForm1.btnBorrarClick(Sender: TObject);
begin
  BorrarArchivos;
end;
 
end.

Carece de algunas comprobaciones necesarias quizás, pero es para dar una idea.


Saludos.