//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{ AnsiString s;
if(AnsiPos('#',Form2->Edit6->Text)||AnsiPos('/',Form2->Edit6->Text)){ShowMessage("В пароле запрещено использовать сииволы # и / ");}
else
{if(Form2->Edit6->Text!=""){
if(parol_2(Form2->Edit6->Text,1,0)==0)ShowMessage("такой пароль уже сушествует");
else{Form1->Memo1->Lines->Strings[0]=Form2->Edit6->Text;
s=GetDir(); s=s+"БД\\pas.txt";
Form1->Memo1->Lines->SaveToFile(s);
ShowMessage("Изменения внесены.");
}
}else ShowMessage("Введите новый пароль");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{AnsiString s;
if(AnsiPos('#',Form2->Edit7->Text)||AnsiPos('/',Form2->Edit7->Text)){ShowMessage("В пароле запрещено использовать сииволы # и / ");}
else
{if(parol_2(Form2->Edit7->Text,1,1)==0)ShowMessage("такой пароль уже сушествует");
else{
Form1->Memo1->Lines->Strings[1]=Form2->Edit7->Text;
s=GetDir(); s=s+"БД\\pas.txt";
Form1->Memo1->Lines->SaveToFile(s);
ShowMessage("Изменения внесены. НЕЗАБЫВАЙТЕ СВОЙ ПАРЛЬ");
}
}
}
//---------------------------------------------------------------------------
Form 3
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
void not_see3();
void Show_vopros(int n_v,int f);
int nomer_poslednego_voprosa();
void v_a_see(AnsiString v_a,int n,int f);
AnsiString road;
int add=0;//(ФЛАЖОК)При добавлепнии вопроса делает не видимыми лишние(пустые) Edit-ты
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{not_see3();}
//---------------------------------------------------------------------------
void add_see_f()
{add=1;}
void give_road(AnsiString t)
{road=t;}
void add_see_EDIT_x()
{Form3->Edit3->Visible=false;
Form3->Edit4->Visible=false;
Form3->Edit5->Visible=false;
Form3->Edit6->Visible=false;
Form3->Edit7->Visible=false;
Form3->Edit8->Visible=false;
Form3->Edit9->Visible=false;
Form3->Edit10->Visible=false;
Form3->Label3->Visible=false;
Form3->Label4->Visible=false;
Form3->Label5->Visible=false;
Form3->Label6->Visible=false;
Form3->Label7->Visible=false;
Form3->Label8->Visible=false;
Form3->Label9->Visible=false;
Form3->Label10->Visible=false;
Form3->RadioButton3->Visible=false;
Form3->RadioButton4->Visible=false;
Form3->RadioButton5->Visible=false;
Form3->RadioButton6->Visible=false;
Form3->RadioButton7->Visible=false;
Form3->RadioButton8->Visible=false;
Form3->RadioButton9->Visible=false;
Form3->RadioButton10->Visible=false;
}
void not_see3()
{Form3->Edit1->Visible=false;
Form3->Edit2->Visible=false;
Form3->Edit3->Visible=false;
Form3->Edit4->Visible=false;
Form3->Edit5->Visible=false;
Form3->Edit6->Visible=false;
Form3->Edit7->Visible=false;
Form3->Edit8->Visible=false;
Form3->Edit9->Visible=false;
Form3->Edit10->Visible=false;
Form3->Label1->Visible=false;
Form3->Label2->Visible=false;
Form3->Label3->Visible=false;
Form3->Label4->Visible=false;
Form3->Label5->Visible=false;
Form3->Label6->Visible=false;
Form3->Label7->Visible=false;
Form3->Label8->Visible=false;
Form3->Label9->Visible=false;
Form3->Label10->Visible=false;
Form3->RadioButton1->Visible=false;
Form3->RadioButton2->Visible=false;
Form3->RadioButton3->Visible=false;
Form3->RadioButton4->Visible=false;
Form3->RadioButton5->Visible=false;
Form3->RadioButton6->Visible=false;
Form3->RadioButton7->Visible=false;
Form3->RadioButton8->Visible=false;
Form3->RadioButton9->Visible=false;
Form3->RadioButton10->Visible=false;
Form3->Button2->Visible=false;
Form3->Button3->Visible=false;
Form3->Button4->Visible=false;
Form3->Button5->Visible=false;
Form3->Button6->Visible=false;
}
int end_BD()//Возвращает номер последней строки БД
{AnsiString s='\0';
int i=0;
s=Form3->Memo1->Lines->Strings[i].c_str();
for(i=0;s[1]!='@';i++)
{s=Form3->Memo1->Lines->Strings[i+1].c_str();}
return( i);
}
int nomer_poslednego_voprosa()
{int i=0,n,j=1;
n=end_BD();
if(n!=0)
{AnsiString s='\0',s1="";
n=n-2;
s=Form3->Memo1->Lines->Strings[n].c_str();
for(i=n;s[1]!='['&&i>=0;i--)
{s=Form3->Memo1->Lines->Strings[i].c_str();}
while(s[j+1]!=']'){s1=s1+s[j+1];j++;}
n=atoi(s1.c_str());
}
return (n);
}
int nomer_stroki(int n)// возвращает номер строки в Бд, вопроса намер n.
{AnsiString s='\0',p_n="";
int j;
s=Form3->Memo1->Lines->Strings[0].c_str();
for(int i=0;s[1]!='@';i++)
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.