Hi,

I'm using the fonction ImportTable to import a text file in my table like this

T1.TableName := 'TBIFC';
T1.ImportTable('C:\import.txt' ,#9);

The import is working good so now I want to know how to use the ImportProgress function to view the pourcentage of the importation.

Can you help me ?

Thanks a lot

Bruno <br@ajsoft.fr> wrote:

Hi,

I'm using the fonction ImportTable to import a text file in my table like this

T1.TableName := 'TBIFC';
T1.ImportTable('C:\import.txt' ,#9);

The import is working good so now I want to know how to use the ImportProgress function to view the pourcentage of the importation.

Can you help me ?

Thanks a lot

I have found how to do this with using PercentDone

Bruno wrote:

> Hi,
>
> I'm using the fonction ImportTable to import a text file in my table
> like this
>
> T1.TableName := 'TBIFC';
> T1.ImportTable('C:\import.txt' ,#9);
>
> The import is working good so now I want to know how to use the
> ImportProgress function to view the pourcentage of the importation.
>
> Can you help me ?
>
> Thanks a lot

Kia Orana Bruno

1.   Add a progress bar to your form.
2.   Set Max = 100, Min = 0
3.   Create an OnImportProgress event on your table

Then

procedure TMyForm.MyTableImportProgress(Sender: TObject;
 PercentDone: Word);
begin
 MyProgressBar.Position := PercentDone;
end;

Cheers

Jeff

--
Jeff Cook
Aspect Systems Ltd
www.aspect.co.nz
+
Joan and Jeff Cook
The Cooks Oasis
www.cookislandsoasis.com