Hi Jason,

Yes, I´ll do.

Thanks
Harald

Jason Wharton schrieb:

>
> I could be convinced to make it public again I suppose.
> Go ahead and make the change locally and I will change it back.
>
> The other way it could be done is to use the Lookup() method and work with
> the variant array it gives you as a result.
>
> The way we do it here insulates us from having to use variants, which are in
> flux right now.
>
> FWIW,
> Jason Wharton
> CPS - Mesa AZ
> http://www.ibobjects.com
>
> ----- Original Message -----
> From: "Harald Klomann" <nibler@...>
> To: <IBObjects@yahoogroups.com>
> Sent: Tuesday, November 27, 2001 3:54 AM
> Subject: [IBO] Duplicate a record
>
> > Hi,
> >
> > I want to append a new record, with the all the values assigned from the
> current record in a grid.
> > My code works with IBO 3.6x, but with IBO 4.x the LookupKeyForBufferFields
> method defined as private,
> > so nore more useable. Also I can´t just assign rowdata, because I use
> blobs. Any recommendations ?
> >
> >
> > procedure TfrmDemo.Button1Click(Sender: TObject);
> > var i:integer;
> > begin
> > with IB_Query1 do begin
> > i := FieldByName('ID').AsInteger;
> > Append;
> > KeyFields.ByName('ID').AsInteger := i;
> > if LookupKeyForBufferFields then begin
> > for i := 0 to FieldCount-1 do
> Fields[i].Assign(BufferFields[i]);
> > post
> > end;
> > end;
> > end;
> >
> >
> > Thanks
> > Harald Klomann
> >
> >
> >
> ___________________________________________________________________________
> > IB Objects - direct, complete, custom connectivity to Firebird or
> InterBase
> > without the need for BDE, ODBC or any other layer.
> >
> ___________________________________________________________________________
> > http://www.ibobjects.com - your IBO community resource for Tech Info
> papers,
> > keyword-searchable FAQ, community code contributions and more !
> >
> > Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
> >
> >
> >