[DUG] Component names

[Stacey Verner]

 I see...

If Table is TTable then begin
	OpenOneTable(Table as TTable);
end;


Stacey

> -----Original Message-----
> From: delphi-bounces at ns3.123.co.nz 
> [mailto:delphi-bounces at ns3.123.co.nz] On Behalf Of Mark Howard
> Sent: Thursday, 25 August 2005 15:09
> To: NZ Borland Developers Group - Delphi List
> Subject: Re: [DUG] Component names
> 
> OK. I'll try to be more clear, by using the ACTUAL code.
> 
> I have:
> "procedure LoadGrid(grid: TStringGrid; table: TDBISAMDBDataset);"
> 
> The parameter "table" is defined as a Dataset because 
> ususally a TTable is passed but occasionally a TQuery is passed.
> 
> Before I do stuff, I want to see if the Dataset is active and 
> if not, open it: so I guess I can do
> 
>    "if not table.active then
>        table.open;
> 
> BUT I really want to use another procedure
> 
> "OpenOneTable(table)" instead of table.open becuse it does a 
> bunch of error trapping
> 
> Trouble is OpenOneTable requires a TTable to be passed to it 
> - not a TDataset and THAT (finally) is what I need a hand with.
> 
> Mark
> 
> PS the reason I am doing this is to speed up the opening of 
> my app in Client/Server mode by delaying the opening of 
> tables until they are needed.
> 
> 
> On Thu, 25 Aug 2005 14:38:14 +1200, Stacey Verner 
> <stacey at cjntech.co.nz> wrote:
> 
> > I am confused.
> >
> > Is the TDataset parameter actually the TTable or a different object 
> > that just happens to have the same name?
> > By ??.Name do you mean the component Name or the actual 
> table name in 
> > the database.?
> >
> > If the TTable and the TDataset are actually the same object 
> then just 
> > go "if MyTable = MyDataset then begin"
> >
> > Stacey
> >
> >> -----Original Message-----
> >> From: delphi-bounces at ns3.123.co.nz
> >> [mailto:delphi-bounces at ns3.123.co.nz] On Behalf Of Mark Howard
> >> Sent: Thursday, 25 August 2005 14:34
> >> To: NZ Borland Developers Group - Delphi List
> >> Subject: Re: [DUG] Component names
> >>
> >> Sorry Traci
> >>
> >> Didn't make myself clear
> >>
> >> I want to test if a TTable with the same name as the parameter 
> >> TDataset is active.
> >> If it is not I want to Open the TTable that has the same name as 
> >> TDataset.
> >>
> >> Mark
> >>
> >> On Thu, 25 Aug 2005 14:18:52 +1200, Traci Sumpter 
> >> <Traci.Sumpter at opus.co.nz> wrote:
> >>
> >> > If MyDataset.State <> dsActive then MyDataset.Datasource.Open ;
> >> >
> >> > Or try
> >> >
> >> > If MyDataset.State <> dsActive then MyDataset.Open ; // 
> not sure if 
> >> > this does the job also
> >> >
> >> >
> >> > -----Original Message-----
> >> > From: delphi-bounces at ns3.123.co.nz
> >> > [mailto:delphi-bounces at ns3.123.co.nz] On Behalf Of Mark Howard
> >> > Sent: Thursday, 25 August 2005 2:09 p.m.
> >> > To: delphi at ns3.123.co.nz
> >> > Subject: [DUG] Component names
> >> >
> >> > Hi
> >> >
> >> > Newbie (still!) question
> >> >
> >> > I have a procedure that is passed a parameter MyDataset 
> : TDataset
> >> >
> >> > Within the procedure I want to do
> >> >
> >> > if not MyTable.Active then
> >> > 	MyTable.Open;
> >> >
> >> > where MyTable.Name = MyDataset.Name
> >> >
> >> > Can someone please help me with the syntax, which eludes me?
> >> >
> >> > Thanks
> >> >
> >> > Mark
> >> >
> >> >
> >> > --
> >> > Forest Production Systems Ltd
> >> > Creators of PSLog - A harvesting information system 
> www.pslog.co.nz
> >> > Skype: markhoward
> >> >
> >> >
> >>
> >>
> >>
> >> --
> >> Forest Production Systems Ltd
> >> Creators of PSLog - A harvesting information system www.pslog.co.nz
> >> Skype: markhoward
> >>
> >>
> >> --
> >> No virus found in this outgoing message.
> >> Checked by AVG Anti-Virus.
> >> Version: 7.0.344 / Virus Database: 267.10.15/80 - Release
> >> Date: 23/08/2005
> >>
> >> _______________________________________________
> >> Delphi mailing list
> >> Delphi at ns3.123.co.nz
> >> http://ns3.123.co.nz/mailman/listinfo/delphi
> >>
> >
> > _______________________________________________
> > Delphi mailing list
> > Delphi at ns3.123.co.nz
> > http://ns3.123.co.nz/mailman/listinfo/delphi
> >
> >
> >
> 
> 
> 
> --
> Forest Production Systems Ltd
> Creators of PSLog - A harvesting information system www.pslog.co.nz
> Skype: markhoward
> 
> 
> -- 
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.344 / Virus Database: 267.10.15/80 - Release 
> Date: 23/08/2005
> 
> _______________________________________________
> Delphi mailing list
> Delphi at ns3.123.co.nz
> http://ns3.123.co.nz/mailman/listinfo/delphi
>