Follow the code:
procedure TfrmGrid.btnLoadClick(Sender: TObject);
var
txt: TextFile;
treg, lreg: integer;
valortxt, valorbd : double;
dt1, dt2,lTemp, valor, dtcompratxt: String;
dtcompra: TDateTime;
begin
lreg:= 1;
treg:= 0;
StatusBar1....
asked by
13.05.2014 / 21:42