;;
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;
Qq
;;
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;
Qq coisa
Sr.Sávio.
Se puderes me ajudar ficareimuito grato.
Paulo.
O codigo encontre logo abaixo:
unit Principal;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ExtCtrls, FileCtrl, Db, DBTables;
type
TForm1
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, Con
4 matches
Mail list logo