Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 4.24 » View Incident Report |
Serious |
Reported By: Tomas R Reported On: 10/9/2006 For: Version 4.24 Build 1 |
procedure TForm1.Button1Click(Sender: TObject); function GenerateRandomArticleID: Integer; begin Randomize; Result := RandomRange(1000000, 9999999); end; function AddGKBDocument(ADataSet: TDBISAMDataSet; ATopicID: Integer; const ADefault: Boolean = true): Boolean; begin result := false; ADataSet.Open; ADataSet.Insert; ADataSet.FieldByName('ID').AsInteger := GenerateRandomArticleID; ADataSet.FieldByName('TopicID').AsInteger := ATopicID; ADataSet.FieldByName('Title').AsString := 'GKB Document'; ADataSet.FieldByName('Link').AsString := 'main.kbd'; ADataSet.FieldByName('Extension').AsString := 'kbd'; ADataSet.FieldByName('Default').AsBoolean := ADefault; ADataSet.Post; result := true; end; begin qDocument.BeginCachedUpdates; AddGKBDocument(qDocument, 1); qDocument.Delete; qDocument.ApplyCachedUpdates; end;
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |