Программное обеспечение базы данный "Экологический мониторинг"

Курсовой проект - Экология

Другие курсовые по предмету Экология

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();

}

 

//---------------------------------------------------------------------------