all TForm2 :: Button2Click (TObject * Sender)
{(RadioButton1- gt; Checked == 1)
{(Edit2- gt; Text.IsEmpty ());
TLocateOptions Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource1- gt; DataSet- gt; Locate (ComboBox1- gt; Text, Edit2- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);
} (RadioButton2- gt; Checked == 1)
{
if (Edit2- gt; Text.IsEmpty ());
TLocateOptions Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource1- gt; DataSet- gt; Locate (ComboBox3- gt; Text, Edit2- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);
} (RadioButton3- gt; Checked == 1)
{
if (Edit2- gt; Text.IsEmpty ());
TLocateOptions Options; .Clear (); lt; lt; loCaseInsensitive lt; lt; loPartialKey; (! DataSource1- gt; DataSet- gt; Locate (ComboBox2- gt; Text, Edit2- gt; Text, Options)) (Application- gt; Handle, За вашим запитом нічого не знайдено! raquo ;, Пошук raquo ;, MB_ICONINFORMATION);
} - gt; Text= raquo ;;
}
//---------------------------------------------------------------------------__fastcall TForm2 :: N3Click (TObject * Sender)
{a=ExtractFilePath(Application-gt;ExeName)+laquo;Spravkamraquo;;(Handle,Llaquo;openraquo;,a.c_str(),NULL,NULL,SW_NORMAL);
}