p> bool b = false;
for (int r = 1; r <= _filter.Length (); r + +)
{
if (_filter [r] == '<' &&! b) {b = true; tmp = "";}
else
if (_filter [r] == '>' && b && (! Tmp.Trim (). IsEmpty ())) {b = false; filter + = evt (tmp);}
else
if (_filter [r]! = '<' && b) {tmp + = _filter [r];}
else
if (! b) {filter + = _filter [r];}
}
return filter;
}
// --------------------------------------------- ------------------------------
void __ fastcall TfrmUniForm :: FormShow (TObject * Sender)
{
if (accept) ReorderFilters ();
}
// --------------------------------------------- ------------------------------
