Программное обеспечение базы данный "Экологический мониторинг"
Курсовой проект - Экология
Другие курсовые по предмету Экология
if (tm->name == valname.Trim())
{
if (!tm->retid.IsEmpty())
tmp= tm->retid;
else
tmp= "NULL";
}
}
return tmp;
}
//---------------------------------------------------------------------------
// ф-ция разбора строки
AnsiString __fastcall TfrmUniForm::TranslateString(AnsiString str, TGetValueEvent evt)
{
AnsiString tmp, filter, _filter = str;
tmp = "";
filter = "";
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();
}
//---------------------------------------------------------------------------