contagem de registros atraves do progressbar

Delphi

04/02/2004

qual a forma de contar os registros de 0 a 100¬
e utilizando o progressbar para demonstrar a progressao da importação
sendo que nao estou conseguindo acrescentar estas funções

segue o projeto teste
abaixo

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Mask;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    DBEdit1: TDBEdit;
    Edit1: TEdit;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    OpenDialog1: TOpenDialog;
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 txt:TextFile;
 Linha:string;
 cont : integer;
 begin
  AssignFile(Txt,edit1.Text);
  Reset(Txt); //abre o arquivo para leitura
  cont := 0;
 While not Eof(Txt) do
  begin
  ReadLn(txt,Linha);
  cont := cont + 1; //conta a quantidade de registros
  datamodule2.Table1.Insert;
  datamodule2.Table1codigo.Value:=copy(linha,01,06);  //
  datamodule2.Table1Nome.Value:=copy(linha,07,40);
//datamodule2.Table1nome.value:=StrtoFloat(copy(linha,01,7));
  datamodule2.Table1.Post;
 // Memo1.Lines.Add(Linha); // Adiciona os dados no MEMO, caso queira usar um memo.

 end;
  closefile(txt)
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 if opendialog1.Execute then
 begin
  Edit1.Text := opendialog1.FileName;
  Edit1.SetFocus;
 end;
end;

end.


Editado pelo Moderador para adicionar BBCode. (AZ)


Eme_matos

Eme_matos

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

04/02/2004

unit Unit1;


procedure TForm1.BitBtn1Click(Sender: TObject);
var
 txt:TextFile;
 Linha:string;
 cont : integer;
 begin
  AssignFile(Txt,edit1.Text);
  Reset(Txt); //abre o arquivo para leitura
  cont := 0;
// aqui você coloca o valor maximo dele;
 While not Eof(Txt) do
  begin
  //aqui você incrementa o progressbar;
  ReadLn(txt,Linha);
  cont := cont + 1; //conta a quantidade de registros
  datamodule2.Table1.Insert;
  datamodule2.Table1codigo.Value:=copy(linha,01,06);  //
  datamodule2.Table1Nome.Value:=copy(linha,07,40);
//datamodule2.Table1nome.value:=StrtoFloat(copy(linha,01,7));
  datamodule2.Table1.Post;
 // Memo1.Lines.Add(Linha); // Adiciona os dados no MEMO, caso queira usar um memo.

 end;
  closefile(txt)
end;

end.



Qualquer dúvida me da um toque!

Lucas!


GOSTEI 0
POSTAR