![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Reported for Version 2.33 » View Incident Report |
![]() |
Reported By: Terry Swiers Reported On: 10/29/2020 For: Version 2.33 Build 1 |
procedure TForm1.Button2Click(Sender: TObject); function WordGeneratorExists(ModuleName: String): Boolean; var Q : TEDBQuery; begin Q := TEDBQuery.Create(nil); Q.SessionName := EDBSession1.SessionName; Q.DatabaseName := EDBDatabase1.DatabaseName; Q.DisableControls; Q.SQL.Text := 'select * from configuration.wordgenerators where name = :ModuleName'; Q.ParamByName('ModuleName').AsString := ModuleName; Result := False; try Q.Open; Result := Q.RecordCount > 0; Q.Close; except end; Q.Free; end; begin EDBSession1.Execute( Format('DROP DATABASE "%s"', ['MemDB']) ); EDBSession1.Execute( Format('CREATE DATABASE "%s" IN MEMORY', ['MemDB']) ); EDBSession1.Open; if WordGeneratorExists('SomeName') then Caption := ''; EDBSession1.Close; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy Policy![]() © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |