Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.22 » View Incident Report |
Serious |
Reported By: Bernd Kuhlmann Reported On: 2/7/2006 For: Version 4.22 Build 4 |
procedure TForm1.InsertRandom; var sl: TStringList; i: Integer; stream: TStream; size: Integer; s: String; begin sl:=TStringList.Create; Randomize; tbVorgang.Open; tbVorgang.Insert; size:=Random(10000); // write the blobfield stream:=tbVorgang.CreateBlobStream(tbVorgang.fieldByName('vBlob'),bmwrite); stream.Write(buffer,size); stream.Free; sl.add('Angebot '+IntToStr(Random(10000))); // write a memofield with full text index tbVorgang.fieldByName('txt_oben').assign(sl); tbVorgang.post; tbVorgang.Close; sl.Free; end; procedure TForm1.EditRandom; var sl: TStringList; i: Integer; stream: TStream; buffer: array[1..10000] of char; size: Integer; s: String; begin sl:=TStringList.Create; Randomize; tbVorgang.Open; tbVorgang.Last; tbVorgang.MoveBy(-Random(100)); tbVorgang.Edit; // Read and write the blobfield stream:=tbVorgang.CreateBlobStream(tbVorgang.fieldByName('vBlob'),bmread); size:=stream.Read(buffer,10000); stream.Free; stream:=tbVorgang.CreateBlobStream(tbVorgang.fieldByName('vBlob'),bmwrite); stream.Write(buffer,size); stream.Free; s:=''; for i:=1 to random(100)+50 do begin s:=s+buffer[i]; end; // write a memofield with full text index sl.assign(tbVorgang.fieldByName('txt_oben')); sl.add(s); tbVorgang.fieldByName('txt_oben').assign(sl); tbVorgang.post; tbVorgang.Close; sl.Free; end; procedure TForm1.DoTest; begin InsertRandom; EditRandom; end; procedure TForm1.bStartClick(Sender: TObject); var i: Integer; begin for i:=1 to StrToInt(edit1.text) do begin DoTest; caption:=IntToStr(i); end; end; procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin for i:=1 to 10000 do begin buffer[i]:=chr(Random(40)+65); if random(100)>90 then buffer[i]:=' '; end; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |