Subject | Re: [IBO] OT: String->Query |
---|---|
Author | Marc Leclerc |
Post date | 2001-04-09T09:50Z |
Are you trying to free manualy ?
----- Original Message -----
From: <guido.klapperich@...>
To: <IBObjects@yahoogroups.com>
Sent: Sunday, April 08, 2001 7:17 PM
Subject: Re: [IBO] OT: String->Query
> Now Application is the owner of my forms:
> CustomersForm:=TCustomersForm.Create(Self) has become
> CustomersForm:=TCustomersForm.Create(Application)
>
> but now I get an AV, when I close my app.
> Any ideas ?
>
> Guido
>
> guido.klapperich@... wrote:
>
> > Thanks Markus, that's exactly, what I have been looking for. But only my
MainForm
> > has the owner Application, I thought every form has this owner ?
> >
> > Guido
> >
> > Markus Ostenried wrote:
> >
> > > Hi Guido !
> > >
> > > If your DataModules all have the Owner "Application" you can do
something like:
> > >
> > > function FindQuery( AName: String ): TIB_Query;
> > > var
> > > p, i, j : Integer;
> > > sDataModule, sQuery: String;
> > > DM : TDataModule;
> > > begin
> > > Result := nil;
> > > p := Pos( '.', AName );
> > > if (p = 0) then Exit;
> > > sDataModule := Copy( AName, 1, p-1 );
> > > Delete( AName, 1, p );
> > > sQuery := AName;
> > > for i := 0 to Application.ComponentCount-1 do begin
> > > if (Application.Components[i].Name = sDataModule) then begin
> > > DM := (Application.Components[i] as TDataModule);
> > > for j := 0 to DM.ComponentCount-1 do begin
> > > if (DM.Components[i].Name = sQuery) then begin
> > > Result := (DM.Components[i] as TIB_Query);
> > > Break;
> > > end; // if Com.Name = sQuery
> > > end; // for j
> > > end; // if Com.Name = sDataModule
> > > end; // for i
> > > end;
> > >
> > > not tested - just coded....
> > >
> > > HTH,
> > > Markus
> > >
> > > At 23:14 08.04.2001 +0200, you wrote:
> > > >I have a string 'CustomersDataModule.CSQuery' and I want to convert
this
> > > >string to a IB_Query.
> > > >I want something like that:
> > > >
> > > >var Query; TIB_Query;
> > > >begin
> > > > Query:=Convert('CustomersDataModule.CSQuery');
> > > > Query.Open;
> > > >end;
> > > >
> > > >Is this possible ?
> > > >
> > > >
> > > >Guido.
> > >
> > >
> > >
> > >
> > > Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
> >
> >
> >
> >
> > Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
>
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>