Koby Peleg Hen schrieb:

>
> Hello all
> Can some one please tell me
> how can i preform the same code in my application as the "Load ordering
> default" that valid inside delphi when you click the right click on
> TIB_query in the ordering tab

Open the IBO_SQL.dpr project and have a look at the procedure (around
line 2255) where it is done in the query editor.

procedure TfrmQuery.LoadOrderingDefaults1Click(Sender: TObject);
var
iter, iter2, inspos: Integer;
s, fn: String;
sl_oi, sl_sl: TStringList;
ibc: TIB_Column;
qualified: Boolean;
begin
inherited;
With qrQuery do
begin
meOrderingItems.Clear;
Prepare;
qualified := Fields.RelationCount > 1;
sl_oi := TStringList.Create;
sl_sl := TStringList.Create;
With sl_oi do
try
for iter := 0 to Fields.ColumnCount - 1 do
begin
ibc := Fields[iter];
if ibc.IsCalculated or ibc.IsBlob or not ibc.Visible
then continue;
if ibc.RelName = EmptyStr
then fn := IntToStr(ibc.FieldNo)
else if qualified
then fn := ibc.FullFieldName + ';' + ibc.FullFieldName + ' DESC'
else fn := ibc.FieldName + ';' + ibc.FieldName + ' DESC';
s := AnsiUpperCase(stLitCriteria(ibc.FieldName));
for iter2 := 1 to Length(s) do
if not (s[iter2] in ['0'..'9', 'A'..'Z']) then
s[iter2] := '_';
//inspos := -1;
if Values[s] = EmptyStr then
inspos := Add(s + '=' + fn)
else
begin
iter2 := 1;
while Values[s + IntToStr(iter2)] <> EmptyStr do
Inc(iter2);
inspos := Add(s + IntToStr(iter2) + '=' + fn)
end;
// We cannot search in server-side expressions or aggregate
columns
if not ibc.PreventSearching and (ibc.RelName <> EmptyStr) then
begin
{if qualified
then sl_sl.Add(ibc.FullFieldName + '=' + Names[inspos])
else sl_sl.Add(ibc.FieldName + '=' + Names[inspos])}
sl_sl.Add(Names[inspos] + '=' + Names[inspos]);
end
end;
meOrderingItems.Lines.Assign(sl_oi);
meOrderingLinks.Lines.BeginUpdate;
try
meOrderingLinks.Clear;
for iter := 0 to Count - 1 do
meOrderingLinks.Lines.Add(Names[iter] + '=' + IntToStr(iter +
1));
finally
meOrderingLinks.Lines.EndUpdate;
end;
meSearchingLinks.Lines.Assign(sl_sl);
finally
Free;
sl_sl.Free;
end; // with sl_oi
end;
end;


Luc.