Ragna Ragna is a query builder for projects written in Delphi, compatible with FireDAC and UniDAC components.
We created a channel on Telegram for questions and support:
Installation is done using the boss install command:
boss install ragnaIf you choose to install manually, simply add the following folders to your project, in Project > Options > Resource Compiler > Directories and Conditionals > Include file search path
../ragna/src/core
../ragna/src/helpers
../ragna/src/interfaces
../ragna/src/state
../ragna/src/types
You need to use Ragna
uses Ragna;- Open query
begin
Country.OpenUp;
end;- Open empty query
begin
Country.OpenEmpty;
end;- Where
begin
Country
.Where(CountryName).Equals('Brazil')
.OpenUp;
end;- Or
begin
Country
.Where(CountryName).Equals('Brazil')
.&Or(CountryName).Equals('Canada')
.OpenUp;
end;- And
begin
Country
.Where(CountryName).Equals('Brazil')
.&And(CountryCapital).Equals('Brasilia')
.OpenUp;
end;- Like
begin
Country
.Where(CountryName).Like('B')
.OpenUp;
end;- Order
begin
Country
.Order(CountryName)
.OpenUp;
end;- To JSON object
var
LJson: TJSONObject;
begin
LJson := Country.OpenUp.ToJSONObject;
end;- To JSON array
var
LJson: TJSONArray;
begin
LJson := Country.OpenUp.ToJSONArray;
end;Ragna is free and open-source middleware licensed under the MIT License.