One construct I wish they'd put in delphi is the ability to write code like:
procedure TForm1.Button1Click(Sender: TObject);
var
ADataSet: TDataSet;
begin
for ADataSet in [qryStaff, qryClients, qryProducts] do
begin
ADataSet.Close;
ADataSet.Open;
end;
end;
At the moment to do this behaviour I have to do it like:
procedure TForm1.Button1Click(Sender: TObject);
procedure ReopenDataSet(DataSets: array of TDataSet);
var
i: integer;
begin
for i := Low(DataSets) to High(DataSets) do
begin
DataSets[i].Close;
DataSets[i].Open;
end;
end;
begin
ReopenDataSets([qryStaff, qryClients, qryProducts]);
end;
The former is alot cleaner, and would make life alot easier.
--On Friday, 11 May 2001 10:59 a.m. +1200 Neven MacEwan <[EMAIL PROTECTED]>
wrote:
> James
>
>> For Counter := 1 to Form1.Controlscount do
>
> Do a bit of VB programming do you? :-)
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
