Ayuda con aplicacion (BD)

[marcoszorrilla]

Quizás este otro que es más corto te ayude más.

Código Delphi [-]
Procedure Leer_Incidencias();
Var
{Primero habrá ver si tiene fihero de incidencias}
  F   :TextFile;
  S   :string;
  cIncidencia:String;
  cCli:String;
  dFecha:TDate;
begin
cNomFicIncide:='Inc010'+Vendedor+cTipFileim;
cNomFicIncide:=cCaminoTerminales + cNomFicIncide;

  if FileExists(cNomFicIncide) then
  begin
    AssignFile(F, cNomFicIncide);
    Reset(F);

    While not Eof(F) Do
    begin
    Readln(F, S);

    cCli  :=Trim(Copy(S,1,10));
    dFecha:=Invierte_Fecha(Copy(S,13,10));

        if  Not DmTerm.BusInci.FindKey([cCli,Serie]) then
        begin
          DmTerm.PInciCli.Append;
          DmTerm.PInciCliCodClient.Value  := Trim(Copy(S,1,10));

            if DmTerm.QrClient.Locate('Codigo',Trim(Copy(S,0,10)),[]) then
            DmTerm.PInciCliNombre.Value     := DmTerm.QrClientBuscar.Value
            else
            DmTerm.PInciCliNombre.Value     := 'No encontrado';

          DmTerm.PInciCliCodigo.Value     := Copy(S,11,2);

             Case StrToInt(Copy(S,11,2)) of
             01:cIncidencia:=AInciden[01];
             02:cIncidencia:=AInciden[02];
             03:cIncidencia:=AInciden[03];
             04:cIncidencia:=AInciden[04];
             05:cIncidencia:=AInciden[05];
             06:cIncidencia:=AInciden[06];
             07:cIncidencia:=AInciden[07];
             08:cIncidencia:=AInciden[08];
             09:cIncidencia:=AInciden[09];
             10:cIncidencia:=AInciden[10];
             11:cIncidencia:=AInciden[11];
             end;

          DmTerm.PInciCliIncidencia.Value := cIncidencia;
          DmTerm.PInciCliFecha.Value      :=Invierte_Fecha(Copy(S,13,10));
          DmTerm.PInciCliHora.Value       :=StrToTime(Copy(S,24,5));
          DmTerm.PInciCliObservaciones.Value:=Copy(S,29,60);

          DmTerm.PInciCli.Post;
        end;

      end;

    CloseFile(F);

  end;
end;

Un Saludo.

[TheJoker]

Muchas gracias voy a ir leyendo haber q tal me sale.


Gracias de nuevo.

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