RE: TZF -

Jerry:

The following is a code snippet that I am using to filter on dates.  It
is working successfully.  Chkdate is a string variable that sets the
date on which I want to focus.

line1.setfilterto('dtoc(date) == "'+ chkdate +'"');
line1.gotop;

Brent 
 

-----Original Message-----
From: Jerry Mallett [mailto:[email protected]] 
Sent: Wednesday, February 05, 2003 4:39 PM
To: [email protected]
Subject: TZF -

Ok Guys ... my original question/query again and a new one.

Extremely dissapointed at the lack of responses to my first question 
which for some of you guys I thought would have been a breeze.

But here goes again.

Original Question First
------------------------
Looking to filter a database on a date field. Is this possible. I'm 
having trouble doing so.
SFilter being a string input date in the format 18/10/1953
UK/Ireland date format.
Competitors.SetFilterTo('DATES == "'+CTOD(SFilter)+'"');
This line above does not work no matter what way I type it.

Have tried the DTOC function as well as Marie suggested. No Good.
---------------------------------------------
2nd Question.
------------
Create a procedure 
Procedure DoThis;
Begin 
End;

And you can call it easily enough by just entering DoThis;

Procedure DoThat;
Begin
// call procedure
  DoThis;
End;


OK Now my question. Button on forum and create an event like so
 // silly example but I hope you get the jist of what I mean.

procedure TForm1.DBFData1Click(Sender: TObject);
begin
  SalesForm.SalesDBF.AppendFrom('mydata.dbf');
end;

Then write a procedure like so

procedure TForm1.ImportBtnClick(Sender: TObject);
begin
   case TzDialogBox('Import Utility','?','Select Data Type To Import',
                    'DBF CSV Abort') Of
     'd','D' : ; // TForm1.DBFData1Click;
     'c','C' : ; // TForm1.CSVData1Click(Sender: TObject);
     'a','A' : Exit;
   end; // case
end;

This don't work so I'm wondering how do we call a procedure created by a

button event.

Anybody help!  Please

Many thanks in advance

Jerry

==^^===============================================================
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
==^^===============================================================