[delphi-br] =?iso-8859-1?Q?A/C_S=C1VIO_CLER?=

[info.suporte]

Sr.Sávio.

Coloquei: Button, Label, Table, FileListBox e eum DirectoryListBox.
O código que conta na sua pagina colouqie no botão, então ficou assim.
O que devo fazer? está completo?
Aguardo resposta.

Paulo.



unit Principal;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, FileCtrl, Db, DBTables;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Tabela: TTable;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Temp1: Integer;
  Temp2: Integer;
  Temp3: Integer;
 Origem: String;
implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Label1.Caption='Reestruturando Tabelas' then
 begin
  Temp3:=42;
  for Temp1:=1 to 2 do
  begin
   if Temp1=1 then
    begin
     Tabela.DatabaseName:='C:\Index\Principal';Criada estas duas pastas
     FileListBox1.Directory:='C:\Index\Arquivo Morto'; ???
     FileListBox1.Update;
    end else
     begin
      Tabela.DatabaseName:='C:\Index\Principal';
      FileListBox1.Directory:='C:\Index\Arquivo Morto';
      FileListBox1.Update;
     end;
   for Temp2:=0 to FileListBox1.Items.Count-1 do
    begin
     Origem:=UpperCase(FileListBox1.Items.Strings[Temp2]);
     if Copy(Origem,Length(Origem)-1,2)<>'DB' then
      DeleteFile(FileListBox1.Directory+'\'+Origem);
    end;
//********** INÍCIO DA REESTRUTURAÇÃO **********//
   // Tabelas que serão indexadas
   Tabela.TableName:='IRMA.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PATIVID.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Tabela.AddIndex('PorValor','Valor',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PCONTATO.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PDOENCA.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorCodigo','Codigo',[ixCaseInsensitive]);
   Tabela.AddIndex('PorNome','Nome',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PFAMILIA.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PFORMACAO.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PFUNCAO.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PHABILID.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PINSTRUC.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PITINERAR.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
   //
   Tabela.TableName:='PLICENCA.db';
   Tabela.AddIndex('','Chave',[ixPrimary,ixUnique]);
   Tabela.AddIndex('PorData','Data',[ixCaseInsensitive]);
   Dec(Temp3);
   Label1.Caption:=FloatToStrF(100-(Temp3/42*100),ffNumber,3,0)+'%';
   Update;
  end;
  Sleep(1000);
 end;
end;

end.


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html