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/
>
>
>