Subject Re: [IBO] Duplicate a record
Author Jason Wharton
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.

Jason Wharton
CPS - Mesa AZ

----- Original Message -----
From: "Harald Klomann" <nibler@...>
To: <>
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
> post
> end;
> end;
> end;
> Thanks
> Harald Klomann
> IB Objects - direct, complete, custom connectivity to Firebird or
> without the need for BDE, ODBC or any other layer.
> - your IBO community resource for Tech Info
> keyword-searchable FAQ, community code contributions and more !
> Your use of Yahoo! Groups is subject to