Beispiel #1
0
//---------------------------------------------------------------------------
AnsiString __fastcall DirFromAbbr( AnsiString AbbrDir, AnsiString ProjDir )
// Получает имя директории из  $(PRJ)\Obj (или типа того)
{
  AbbrDir = ExcludeTrailingBackslash(AbbrDir);
  AnsiString Subs = AbbrDir.SubString( 1, 6);
  if (Subs == PrjDir) {
    AbbrDir.Delete(1,6);
    if (ProjDir == "")
      return ExtractFileDir(Project->NameOfFile) + AbbrDir;
    else
      return ProjDir + AbbrDir;
  } else if (Subs == MseDir) {
    char buff[301];
    AbbrDir.Delete(1,6);
    if (GetMSEPathStr( pcProgram, buff, 300))
      return buff + AbbrDir;
    return ExtractFileDir(Application->ExeName) + AbbrDir;
  } else if (Subs == DatDir) {
    char buff[301];
    AbbrDir.Delete(1,6);
    if (GetMSEPathStr( pcData, buff, 300))
      return buff + AbbrDir;
    return ExtractFileDir(Application->ExeName) + "\\Data" + AbbrDir;
  } else
    return AbbrDir;
}
AnsiString __fastcall TMainFrm::ExcludeTrailingBackslash(AnsiString dir)
{
 if  ( *dir.AnsiLastChar() == '\\' )
     dir.Delete(dir.Length(),1);

return dir;
}
Beispiel #3
0
bool __fastcall TEntryForm::InValidInteger(AnsiString label, TEditPlus *edit, int length)
{
  if (edit->ReadOnly == true)
    return false;
  AnsiString ud = edit->Text;
  if (ud.IsEmpty() == true)
  {
    AnsiString msg = "The field "+label+" contains the value '"+edit->Text+"'."
                    +" This is invalid for a non null integer field allowing"
                    +" for "+length+" bytes of data";
    Application->MessageBox(msg.c_str(), "No Data Entered", ID_OK);
    return true;
  }
  if (ud[1] == '-')
    ud.Delete(1,1);
  int n = ud.Length();
  if (n <= length
  && strspn(ud.c_str(), "0123456789") == (unsigned)n)
    return false;
  AnsiString msg = "The field "+label+" contains the value '"+edit->Text+"'."
                  +" This is invalid for a non null integer field allowing"
                  +" for "+length+" bytes of data";
  Application->MessageBox(msg.c_str(), "Invalid Number", ID_OK);
  return true;
}
Beispiel #4
0
//---------------------------------------------------------------------------
/// Metoda odpowiada za znalezienie danych w przekazanym tekœcie, szukany tekst musi znajdowaæ siê pomiêdzy
/// pocz¹tkowym znacznikiem a znakiem wystêpuj¹cym na koñcu tekstu, w przypadku nie znalezienie znacznika pocz¹tkowego
/// metoda zwraca pusty tekst.
AnsiString __fastcall ParsujDane::ZnajdzDane(AnsiString &AText, AnsiString AZnacznikPocz, char AZnakKonca)
{
	int pozycjaZnacznik, start, koniec;
	AnsiString tekst, str = "";
	pozycjaZnacznik = AText.Pos(AZnacznikPocz);
	start = pozycjaZnacznik;
	if (pozycjaZnacznik == 0) return "";
	pozycjaZnacznik = pozycjaZnacznik + AZnacznikPocz.Length();

	while(AText[pozycjaZnacznik] != AZnakKonca)
	{
		str += AText[pozycjaZnacznik];
		pozycjaZnacznik++;
		if ((AText[pozycjaZnacznik] == ']' && AText[pozycjaZnacznik - 1] != '\"') ||
		(AText[pozycjaZnacznik] == '\"' && AText[pozycjaZnacznik - 1] == '\\'))
		{
            str += AText[pozycjaZnacznik];
			pozycjaZnacznik++;
		}
	}
	koniec = pozycjaZnacznik;
	AText.Delete(start,  koniec + 1 - start);
	str.TrimLeft(); str.TrimRight();
	return str;
}
Beispiel #5
0
//---------------------------------------------------------------------------
/// Meotoda odpowiada za w³aœciwe wyszukiwanie danych opini, metoda przyjmuje znaczniki pocz¹tkowe oraz koñcowe,
/// pomiêdzy którymi znajduj¹ siê po¿¹dane teksty.
AnsiString __fastcall ParsujDane::ZnajdzTekstOpini(AnsiString &ATextOpini, AnsiString AZnacznikPocz, AnsiString AZnacznikKoniec, bool ATnij)
{
	AnsiString txt;
	int pozycjaZnacznik, start, koniec;
	pozycjaZnacznik = ATextOpini.Pos(AZnacznikPocz);
	if (pozycjaZnacznik == 0) return "";
	while (true)
	{
		txt += ATextOpini[pozycjaZnacznik];
		if (ATnij) { if (txt.Pos(AZnacznikPocz) > 0) { txt = txt.Delete(1, AZnacznikPocz.Length()); } }
		if (txt.Pos(AZnacznikKoniec) > 0) break;
		pozycjaZnacznik++;
	}
	if (!ATnij)
	{
		start = AZnacznikPocz.Length() + 1;
		koniec = txt.Length() - AZnacznikPocz.Length() - AZnacznikKoniec.Length();
	}
	else
	{
		start = 1;
		koniec = txt.Length() - AZnacznikKoniec.Length();
	}
	txt = txt.SubString(start, koniec);
	txt.TrimLeft(); txt.TrimRight();
	return txt;
}
Beispiel #6
0
LPCSTR _CopyVal(LPCSTR src, AnsiString& dst, char separator)
{
    LPCSTR p;
    u32 n;
    p = strchr(src, separator);
    n = (p > 0) ? (p - src) : xr_strlen(src);
    dst = src;
    dst = dst.Delete(n + 1, dst.Length());
    return dst.c_str();
}
Beispiel #7
0
//---------------------------------------------------------------------------
/// Metoda odpowiedzialna za dostosowanie wad i zalet do zapisu do bazy danych
void __fastcall ParsujDane::DostosujWadyIZalety(AnsiString &AText)
{
	int pozycjaZnacznik;
	AnsiString str, text, znakKonca;
	if (AText.IsEmpty()) return;
	znakKonca = "<ENDL>";

	while (true)
	{
		pozycjaZnacznik = AText.Pos(znakKonca);

		if (pozycjaZnacznik > 0) AText.Delete(pozycjaZnacznik, znakKonca.Length());
		if (pozycjaZnacznik == 0) break;
		text = AText.SubString(1, pozycjaZnacznik - 1);
		UsunZnacznik(text, ' ');
		str += text + "<ENDL>";
		AText.Delete(1, pozycjaZnacznik);
	}
	AText = str;
}
Beispiel #8
0
bool __fastcall TEntryForm::InValidDouble(AnsiString label, TEditPlus *edit)
{
  AnsiString ud = edit->Text;
  if (ud[1] == '-')
    ud.Delete(1,1);
  if (strspn(ud.c_str(), "0123456789.") == (unsigned)ud.Length())
    return false;
  AnsiString msg = "The field "+label+" contains the value '"+edit->Text+"'."
                  +" This is invalid for a non null double field";
  Application->MessageBox(msg.c_str(), "Invalid Double", ID_OK);
  return true;
}
Beispiel #9
0
//---------------------------------------------------------------------------
long double Str2Float(AnsiString s)
{
  for (int i = 1; i <= s.Length(); i++)
    if (s[i] < '0' || s[i] > '9')
      if (s[i] == '.' || s[i] == ',')
        s[i] = DecimalSeparator;
      else
			{
				s.Delete(i, 1);
        i--;
      }
  return s.Length() ? StrToFloat(s) : 0;
}
Beispiel #10
0
void __fastcall TfrmTreeFrame::LoadSubItem(TTreeNode *TN,TMenuItem * MI)
{

    if ((MI->Caption=="-") || (!((MI->Tag ==0) || (MI->Tag ==1))) || (!MI->Enabled))
       return ;
    AnsiString  temp =MI->Caption;
    temp.Delete(temp.Pos("&"),1);
    TN = Tree->Items->AddChildObject(TN,temp,MI);
    TN->ImageIndex =MI->Tag;
    TN->SelectedIndex = MI->Tag;
  //  inc(CurMenuIndex);
    for (int i=0;i<MI->Count;i++)
      LoadSubItem(TN, MI->Items[i]);
}
Beispiel #11
0
//---------------------------------------------------------------------------
/// Metoda odpowiedzialna za usunieciê przekazanych znaczników z przekazanego tekstu,
/// metoda umo¿liwia umieszczenie znacznika konca lini w zamian za przyjmowany znacznik
void __fastcall ParsujDane::UsunZnacznik(AnsiString &AText, AnsiString AZnacznik, bool AWstawENDL)
{
	int pozycjaZnacznik, i;
	i = 0;
	while (true)
	{
		pozycjaZnacznik = AText.Pos(AZnacznik);
		if (AZnacznik == ' ')
		{
			if (AText.Pos(' ') > 1) break;
		}
		if (pozycjaZnacznik > 0) AText.Delete(pozycjaZnacznik, AZnacznik.Length());
		if (pozycjaZnacznik > 0 && AWstawENDL) AText.Insert("<ENDL>",pozycjaZnacznik);
		if (pozycjaZnacznik == 0) break;
	}
	AText.TrimLeft(); AText.TrimRight();
}
Beispiel #12
0
void __fastcall TMailSndForm::BuildRcptList(void)
{
	AnsiString Buf;
	int        I;

	SmtpClient->RcptName->Clear();
	Buf = ToEdit->Text;
	while (TRUE) {
		I = Buf.Pos(";");
		if (I <= 0) {
			SmtpClient->RcptName->Add(Trim(Buf));
			break;
		}
		else {
			SmtpClient->RcptName->Add(Trim(Buf.SubString(1, I - 1)));
			Buf.Delete(1, I);
		}
	}
}
Beispiel #13
0
void __fastcall TMainForm::TabSheet3Show(TObject *Sender)
{
  // Отображение информации
  TOraQuery * refQuery = new TOraQuery(this);
  try
  {
    AnsiString refQueryStr = "SELECT ";

    ValueListEditorFind->Strings->Clear();
    for (unsigned int i=0; i < m_view_list.size(); i++)
    {
      ValueListEditorFind->InsertRow(m_view_list [i].full_name, "", true);

      if (!m_view_list [i].ref_name.IsEmpty())
      {
        ValueListEditorFind->ItemProps [i]->EditStyle = esPickList;

        AnsiString field = m_view_list [i].ref_name;
        field.Delete(1, 4);
        refQuery->SQL->Text = refQueryStr + field + " FROM " + m_shema + "." +
                              m_view_list [i].ref_name + " ORDER BY " + field;
        refQuery->Open();
        refQuery->First();
        while (!refQuery->Eof)
        {
          ValueListEditorFind->ItemProps [i]->PickList->Add (refQuery->Fields->FieldByName (field)->AsString);
          refQuery->Next();
        }
      }
    }
    refQuery->Close();
  }
  __finally
  {
    safe_delete (refQuery);
    //delete refQuery;
  }
}
Beispiel #14
0
/*
 =======================================================================================================================
 =======================================================================================================================
 */
void __fastcall TSCFormasCompactas::Button1Click(TObject *Sender)
{
	/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
	extern vector<bool> ocultarNANDNOR;
	/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

	NANDyNOR->StringGrid->ColCount = Tabla.NumColumnas();
	NANDyNOR->ScrollBar1->Max = Tabla.NumColumnas();

	// metemos las cadenas en el StringGrid Este tratamiento es las funciones y las "X"
	for(int j = 0; j < Tabla.NumColumnas(); j++)
	{
		/*~~~~~~*/
		int i = 0;
		/*~~~~~~*/

		NANDyNOR->StringGrid->Cells[j][0] = "";
		NANDyNOR->StringGrid->Cells[j][1] = "";
		while(StringGrid1->Cells[j][i] != "")
		{
			NANDyNOR->StringGrid->Cells[j][0] = NANDyNOR->StringGrid->Cells[j][0] + StringGrid1->Cells[j][i];
			i = i + 1;
		}

		/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
		AnsiString	temp = NANDyNOR->StringGrid->Cells[j][0];
		/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

		temp.Delete(temp.Length(), 1);
		NANDyNOR->StringGrid->Cells[j][0] = temp;
		NANDyNOR->StringGrid->Cells[j][2] = temp;

		i = 0;
		while(StringGrid2->Cells[j][i] != "")
		{
			NANDyNOR->StringGrid->Cells[j][1] = NANDyNOR->StringGrid->Cells[j][1] + StringGrid2->Cells[j][i];
			i = i + 1;
		}

		temp = NANDyNOR->StringGrid->Cells[j][1];
		temp.Delete(temp.Length(), 1);
		NANDyNOR->StringGrid->Cells[j][1] = temp;
		NANDyNOR->StringGrid->Cells[j][3] = temp;
	}

 	ocultarNANDNOR.clear();

	/*~~~~~~~~~~~~~*/
	AnsiString	temp;
	/*~~~~~~~~~~~~~*/

	if(Disyuntivo->Checked == true)
	{
		// POS
		for(int j = 0; j < Tabla.NumColumnas(); j++)
		{
			temp = NANDyNOR->StringGrid->Cells[j][0];
			if(Trim(temp).AnsiPos("*"))
				ocultarNANDNOR.push_back(false);
			else
				ocultarNANDNOR.push_back(true);
			if(Trim(NANDyNOR->StringGrid->Cells[j][0]) != "")
			{
				// Estas llamadas son para NOR - funciones
				temp = NANDyNOR->StringGrid->Cells[j][0];
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, true);
				temp.Insert("~(", 1);
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][2] = temp;

				// Hacemos el cambio a Expresion NAND - funciones
				temp = NANDyNOR->StringGrid->Cells[j][0];
				temp = InvertirVariables(temp);
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, false);
				temp.Insert("~(~(", 1);
				temp.Insert(")", temp.Length());
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][0] = temp;

				// Ahora hay que escribirlo en su formulario
			}
			else
			{
				NANDyNOR->StringGrid->Cells[j][0] = "";
			}

			temp = NANDyNOR->StringGrid->Cells[j][1];
			if(Trim(NANDyNOR->StringGrid->Cells[j][1]) != "")
			{
				// Estas llamadas son para NOR - "X"
				temp = NANDyNOR->StringGrid->Cells[j][1];
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, true);
				temp.Insert("~(", 1);
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][3] = temp;

				//
				// Ahora hay que escribirlo en su formulario
				// Hacemos el cambio a Espresion NAND - "X"
				//
				temp = NANDyNOR->StringGrid->Cells[j][1];
				temp = InvertirVariables(temp);
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, false);
				temp.Insert("~(~(", 1);
				temp.Insert(")", temp.Length());
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][1] = temp;
			}
			else
			{
				NANDyNOR->StringGrid->Cells[j][1] = "";
			}
		}
	}
	else	// Ahora hacemos tratamiento de la expresion SOP
	{
		for(int j = 0; j < Tabla.NumColumnas(); j++)
		{
			temp = NANDyNOR->StringGrid->Cells[j][0];
 			if(Trim(temp).AnsiPos("+"))
				ocultarNANDNOR.push_back(false);
			else
				ocultarNANDNOR.push_back(true);
			if(Trim(NANDyNOR->StringGrid->Cells[j][0]) != "")
			{
				// Estas llamadas son para NOR - funciones
				temp = NANDyNOR->StringGrid->Cells[j][0];
				temp = InvertirVariables(temp);
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, false);
				temp.Insert("~(~(", 1);
				temp.Insert(")", temp.Length());
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][2] = temp;

				//
				// Ahora hay que escribirlo en su formulario
				// Hacemos el cambio a Espresion NAND - funciones
				//
				temp = NANDyNOR->StringGrid->Cells[j][0];
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, true);
				temp.Insert("~(", 1);
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][0] = temp;

				// Ahora hay que escribirlo en su formulario
			}
			else
			{
				NANDyNOR->StringGrid->Cells[j][0] = "";
			}

			temp = NANDyNOR->StringGrid->Cells[j][1];
			if(Trim(NANDyNOR->StringGrid->Cells[j][1]) != "")
			{
				// Estas llamadas son para NOR - "X"
				temp = NANDyNOR->StringGrid->Cells[j][1];
				temp = InvertirVariables(temp);
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, false);
				temp.Insert("~(~(", 1);
				temp.Insert(")", temp.Length());
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][3] = temp;

				// Hacemos el cambio a Espresion NAND - "X"
				temp = NANDyNOR->StringGrid->Cells[j][1];
				temp = InvertirExpresiones(temp);
				temp = CambiarSignos(temp, true);
				temp.Insert("~(", 1);
				temp.Insert(")", temp.Length());
				NANDyNOR->StringGrid->Cells[j][1] = temp;
			}
			else
			{
				NANDyNOR->StringGrid->Cells[j][1] = "";
			}
		}
	}

	for(int j = 0; j < Tabla.NumColumnas(); j++)
	{
		NANDyNOR->StringGrid->Cells[j][0] = NombresCompletos(NANDyNOR->StringGrid->Cells[j][0]);
		NANDyNOR->StringGrid->Cells[j][2] = NombresCompletos(NANDyNOR->StringGrid->Cells[j][2]);
		NANDyNOR->StringGrid->Cells[j][1] = NombresCompletos(NANDyNOR->StringGrid->Cells[j][1]);
		NANDyNOR->StringGrid->Cells[j][3] = NombresCompletos(NANDyNOR->StringGrid->Cells[j][3]);
	}

	NANDyNOR->Exp->Checked = false;
	NANDyNOR->ShowModal();

	// SCFormasCompactas->Hide();
}
void TForm1::AnalyseOneFunction(int &FunctionCount, int NumberOfCalls, AnsiString FunctionString, std::ofstream &OutFile)
{
AnsiString Prelim = "./";
for(int x=0;x<5000;x++)
    {
    DupNumArray[x] = -1;
    MissingNumArray[x] = -1;
    }
Label1->Caption = "Analysing function:   " + FunctionString + " (" + AnsiString(FunctionCount + 1) + "/" + AnsiString(NumberOfCalls) + ")";
Form1->Repaint();
int DupNumArrayIndex = 0;
for(int x=0;x<NumFiles;x++)
    {
    AnsiString FullFileName = Prelim + FileString[x];
    std::ifstream InFile(FullFileName.c_str());
    if(InFile == 0)
        {
        ShowMessage("Input file failed to open - " + FileString[x]);
        return;
        }
    char Buffer[5000];
    bool EndOfFile = false;
    while(!EndOfFile)
        {
        InFile.getline(Buffer, 5000);
        AnsiString OneLine(Buffer);
        for(int x = 1; x< OneLine.Length() - FunctionString.Length() + 1;x++)
            {
            if(OneLine.SubString(x,FunctionString.Length() + 1) == FunctionString + '(')
            //rule out other functions that contain the sought function name (allow to be preceded by space, !, ., > or (
                {if((x == 1) || (OneLine[x-1] < '"') || (OneLine[x-1] == '.') || (OneLine[x-1] == '>') || (OneLine[x-1] == '('))
                    {
                    AnsiString NumberLineStr = OneLine.SubString(x + FunctionString.Length() + 1,OneLine.Length() - (x + FunctionString.Length() + 1));
                    AnsiString NumberString = "";
                    while((NumberLineStr.Length() > 0) && ((NumberLineStr[1] <= '9') && (NumberLineStr[1] >= '0')))
                        {
                        NumberString+= NumberLineStr[1];
                        NumberLineStr.Delete(1,1);
                        }
                    if(NumberString != "")
                        {
                        int Number = NumberString.ToInt();
                        DupNumArray[DupNumArrayIndex] = Number;
                        DupNumArrayIndex++;
                        }
                    }
                }
            }
        if(InFile.eof())
            {
            EndOfFile = true;
            }
        }
    InFile.close();
    }
//Label1->Caption = "Array analysis started for function " + FunctionString;
//Form1->Repaint();
int MaxIndex = -1;//so first brings it to 0
int MaxNumber = -1;
for(int x=0;x<5000;x++)
    {
    if(DupNumArray[x] > -1)
        {
        MaxIndex++;
        if(DupNumArray[x] > MaxNumber) MaxNumber = DupNumArray[x];
        }
    else break;
    }
for(int x=0;x<MaxIndex+1;x++)
    {
    MissingNumArray[x] = DupNumArray[x];
    }
//check for duplicates
for(int x=0;x<MaxIndex + 1;x++)
    {
    int CheckNumber = DupNumArray[x];
    if(CheckNumber == -1) continue;
    int RepeatCount = 0;
    for(int y=x+1;y<MaxIndex + 1;y++)
        {
        if(DupNumArray[y] == CheckNumber)
            {
            RepeatCount++;
            DupNumArray[y] = -1;//so it isn't counted again if appears more than twice in all
            }
        }
    if(RepeatCount > 0)
        {
        AnsiString MessageString = "Number " + AnsiString(CheckNumber) + " repeated " + AnsiString(RepeatCount) + " times in function " + FunctionString;
        if(Screen)
            {
            int button = Application->MessageBox(MessageString.c_str(), "", MB_OKCANCEL);
            if (button == IDCANCEL)
                {
                BreakFlag = true;
                return;
                }
            }
        if(Print) OutFile << MessageString.c_str() << CHAR(13) << CHAR(10);
        }
    }

//now check for missing numbers
if(CheckBox1->Checked)
    {
    int IncNumber = 0;
    bool FoundFlag=false;
    while(IncNumber <= MaxNumber)
        {
        FoundFlag = false;
        for(int x=0;x<MaxIndex + 1;x++)
            {
            if(MissingNumArray[x] == IncNumber)
                {
                FoundFlag = true;
                break;
                }
            }
        if(!FoundFlag)
            {
            AnsiString MessageString = "Number " + AnsiString(IncNumber) + " missing for function " + FunctionString;
            if(Screen)
                {
                int button = Application->MessageBox(MessageString.c_str(), "", MB_OKCANCEL);
                if (button == IDCANCEL)
                    {
                    BreakFlag = true;
                    return;
                    }
                }
            if(Print) OutFile << MessageString.c_str() << CHAR(13) << CHAR(10);
            }
        IncNumber++;
        }
    }
FunctionCount++;
}
//---------------------------------------------------------------------------
void __fastcall TBolBB::SetCampoLivre(AnsiString CampoLivre)
{
  NossoNumero = "";
  CodigoDeBarra = CodigoBanco + CodigoMoeda;
  int Dias = CalculaDatas( DataVencimento, 19971007, DIFDATAS_DIAS ) - 1;
  CodigoDeBarra = CodigoDeBarra + IntToStr( 0 ).sprintf( "%04d", Dias );
  CodigoDeBarra = CodigoDeBarra + ValorBoleto;

  AnsiString FL = CampoLivre.SubString( 1, 25 ); // elimina o ultimo digito do campolivre
  AnsiString FLU = CampoLivre;                   // flu ...
  AnsiString Num = GetNumeroDocumento();

  //----------------------------------------------------------------------------
  //  Percorre os caracteres do campo livre, procurando pela letra 'Z'
  //  que devera ser substituida pelo nosso numero, que neste caso, sera o
  //  proprio numero do documento, que é o mes, o ano, o codigo
  //  e o tipo de faturamento do cliente, refenrentes a cobranca.
  //----------------------------------------------------------------------------
  for( int a = FL.Length(); a >= 1; a-- )
   {
    if( FL[a] == 'Z' )  // 'Z' indica local para nosso numero
     {
      if( Num.Length() )  // se houver numero de documento
       {
        FL[a] = ( char ) ( ( (Num[Num.Length()]) - 48 ) + 65 );
        Num = Num.Delete( Num.Length(), 1 );
       }
      else
       {
        FL[a] = 'A';  // caso o Num esteja vazio, troca o 'Z' pelo 'A'
       }
     }
   }

  //----------------------------------------------------------------------------
  //  Percorre os caracteres do campo livre, e se o caracter for maior ou igual
  //  a 65 (Inicio das letras maiusculas), diminui de 65, gerando assim um indice
  //  numerico para cada letra encontrada.
  //----------------------------------------------------------------------------
  for( int a = 1; a <= FL.Length(); a++ )
   {
    if( FL[a] >= 'A' )
     {
      AnsiString Letra = ( char ) ( FL[a] ) - 65;
      CodigoDeBarra = CodigoDeBarra + Letra;
      NossoNumero = NossoNumero + Letra;
     }
    else
     {
      CodigoDeBarra = CodigoDeBarra + String( FL[a] );
     }
   }
  LinhaDigitavel = CodigoDeBarra;

  //----------------------------------------------------------------------------
  //  Verifica se o ultimo caracter do campo livre (FLU) é igual a 1 e se for,
  //  calcula o digito verificador utilizando o modulo 11
  //----------------------------------------------------------------------------

  if( FLU[FLU.Length()] == '1' )
   {
    short D = StrToInt(CalcMod11( NossoNumero ));
    AnsiString Dig = "";
    if( D < 10 )
     {
      Dig = IntToStr( D );
     }
    else
     {
      Dig = "X";
     }
    NossoNumero = NossoNumero + "-" + Dig;
   }
};
Beispiel #17
0
/*
 =======================================================================================================================
 =======================================================================================================================
 */
void __fastcall TFormasNormales::BitBtn1Click(TObject *Sender)
{
	/*~~~~~~~~~~*/
	int error = 0;
	/*~~~~~~~~~~*/

	// Quitamos todos los blancos
	for(int j = 0; j < StringGrid1->ColCount; j++)
	{
		/*~~~~~~~~~~~~~~~~~~~~*/
		AnsiString	cadena = "";
		int			k = 1;
		/*~~~~~~~~~~~~~~~~~~~~*/

		while(k <= StringGrid1->Cells[j][0].Length())
		{
			if(StringGrid1->Cells[j][0].SubString(k, 1) == " ")
			{
				cadena = StringGrid1->Cells[j][0];
				cadena.Delete(k, 1);
				StringGrid1->Cells[j][0] = cadena;
			}
			else
				k = k + 1;
		}

		/*~~~~~~*/
		int l = 1;
		/*~~~~~~*/

		while(l <= StringGrid2->Cells[j][0].Length())
		{
			if(StringGrid2->Cells[j][0].SubString(l, 1) == " ")
			{
				cadena = StringGrid2->Cells[j][0];
				cadena.Delete(l, 1);
				StringGrid2->Cells[j][0] = cadena;
			}
			else
				l = l + 1;
		}
	}

	//
	// Comprobamos que los valores se encuentran entre los limites establecidos en la
	// función
	//
	for(int j = 0; j < StringGrid1->ColCount; j++)
	{
		StringGrid1->Cells[j][0] = StringGrid1->Cells[j][0].Trim();

		/*~~~~~~~~~~~~~~~~~~~~~~~~~*/
		AnsiString	temp, temp2 = "";
		/*~~~~~~~~~~~~~~~~~~~~~~~~~*/

		for(int i = 0; i < StringGrid1->Cells[j][0].Length(); i++)
		{
			/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
			AnsiString	car = StringGrid1->Cells[j][0].SubString(i + 1, 1);
			/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

			if((car < '0') | (car > '9'))
			{
				if(((car != ",") & (car != ":")) | (temp == ""))
				{
					error = 1;
				}
				else if(temp.ToInt() >= Tabla.NumFilas())
				{
					error = 2;
				}
				else	// si el valor es correcto se borra la var. temporal
				{
					if(car == ":")
					{
						if(temp2 != "")
							error = 3;
						else
							temp2 = temp;
						if(i == StringGrid1->Cells[j][0].Length() - 1) error = 3;
					}
					else
					{
						if((temp2 != "") & (temp2 > temp)) error = 4;
						temp2 = "";
					}

					temp = "";
				}
			}
			else
			{
				temp = temp + car;

				// si es el final no va a haber coma
				if(i == StringGrid1->Cells[j][0].Length() - 1)
				{
					if(temp.ToInt() >= Tabla.NumFilas()) error = 2;
					if((temp2 != "") & (temp2 > temp)) error = 4;
				}
			}

			if(error != 0) break;
		}

		if(error != 0) break;
	}

	// en las X
	for(int j = 0; j < StringGrid2->ColCount; j++)
	{
		StringGrid2->Cells[j][0] = StringGrid2->Cells[j][0].Trim();

		/*~~~~~~~~~~~~~~~~~~~~~~~~~*/
		AnsiString	temp, temp2 = "";
		/*~~~~~~~~~~~~~~~~~~~~~~~~~*/

		for(int i = 0; i < StringGrid2->Cells[j][0].Length(); i++)
		{
			/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
			AnsiString	car = StringGrid2->Cells[j][0].SubString(i + 1, 1);
			/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

			if((car < '0') | (car > '9'))
			{
				if(((car != ",") & (car != ":")) | (temp == ""))
				{
					error = 1;
				}
				else if(temp.ToInt() >= Tabla.NumFilas())
				{
					error = 2;
				}
				else	// si el valor es correcto se borra la var. temporal
				{
					if(car == ":")
					{
						if(temp2 != "")
							error = 3;
						else
							temp2 = temp;
						if(i == StringGrid1->Cells[j][0].Length() - 1) error = 3;
					}
					else
					{
						if((temp2 != "") & (temp2 > temp)) error = 4;
						temp2 = "";
					}

					temp = "";
				}
			}
			else
			{
				temp = temp + car;

				// si es el final no va a haber coma
				if(i == StringGrid2->Cells[j][0].Length() - 1)
				{
					if(temp.ToInt() >= Tabla.NumFilas()) error = 2;
					if((temp2 != "") & (temp2 > temp)) error = 4;
				}
			}

			if(error != 0) break;
		}

		if(error != 0) break;
	}

	if(error == 1) Application->MessageBox(MENSAJE(msgCaracterNoValido), NULL);
	if(error == 2) Application->MessageBox(MENSAJE(msgNoTantasVariables), NULL);
	if(error == 3) Application->MessageBox(MENSAJE(msgCaracterDosPuntos), NULL);
	if(error == 4) Application->MessageBox(MENSAJE(msgRangoErroneo), NULL);

	// si todo esta bien introducimos los valores en el objeto Tabla
	if(error == 0)
	{
		// inicializamos el objeto Tabla con ceros o unos
		for(int i = 0; i < Tabla.NumFilas(); i++)
		{
			for(int j = 0; j < Tabla.NumColumnas(); j++)
			{
				if(FormasNormales->Disyuntivo->Checked)
					Tabla.EscribirDinArray(i, j, '0');
				else
					Tabla.EscribirDinArray(i, j, '1');
			}
		}

		/*
		 * introducimos los valores de cada funcion en el objeto Tabla comprobando que tan
		 * solo se asigna un valor a cada posición y sacando una advertencia en caso
		 * contrario, persistiendo la X sobre los unos o ceros
		 */
		for(int j = 0; j < StringGrid1->ColCount; j++)
		{
			/*~~~~~~~~~~~~~~~~~~~~~~~~~*/
			AnsiString	temp, temp2 = "";
			/*~~~~~~~~~~~~~~~~~~~~~~~~~*/

			for(int i = 0; i < StringGrid1->Cells[j][0].Length(); i++)
			{
				/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
				AnsiString	car = StringGrid1->Cells[j][0].SubString(i + 1, 1);
				/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

				if((car != ",") & (car != ":"))
				{
					temp = temp + car;

					// si es el final no va a haber coma
					if(i == StringGrid1->Cells[j][0].Length() - 1)
					{
						/*~~~~~*/
						int k, l;
						/*~~~~~*/

						if(temp2 == "")
							k = temp.ToInt();
						else
							k = temp2.ToInt();
						l = temp.ToInt();

						for(; k <= l; k++)
						{
							if(FormasNormales->Disyuntivo->Checked)
								Tabla.EscribirDinArray(k, j, '1');
							else
								Tabla.EscribirDinArray(k, j, '0');
						}

						temp = "";
						temp2 = "";
					}
				}
				else if(car == ":")
				{
					temp2 = temp;
					temp = "";
				}
				else
				{
					/*~~~~~*/
					int k, l;
					/*~~~~~*/

					if(temp2 == "")
						k = temp.ToInt();
					else
						k = temp2.ToInt();
					l = temp.ToInt();

					for(; k <= l; k++)
					{
						if(FormasNormales->Disyuntivo->Checked)
							Tabla.EscribirDinArray(k, j, '1');
						else
							Tabla.EscribirDinArray(k, j, '0');
					}

					temp = "";
					temp2 = "";
				}
			}
		}

		// Aqui metemos las X
		for(int j = 0; j < StringGrid2->ColCount; j++)
		{
			/*~~~~~~~~~~~~~~~~~~~~~~~~~*/
			AnsiString	temp, temp2 = "";
			/*~~~~~~~~~~~~~~~~~~~~~~~~~*/

			for(int i = 0; i < StringGrid2->Cells[j][0].Length(); i++)
			{
				/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
				AnsiString	car = StringGrid2->Cells[j][0].SubString(i + 1, 1);
				/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/

				if((car != ",") & (car != ":"))
				{
					temp = temp + car;

					// si es el final no va a haber coma
					if(i == StringGrid2->Cells[j][0].Length() - 1)
					{
						if
						(
							((FormasNormales->Disyuntivo->Checked) & (Tabla.LeerDinArray(temp.ToInt(), j) == '1')) |
								(
									(FormasNormales->Conjuntivo->Checked) &
										(Tabla.LeerDinArray(temp.ToInt(), j) == '0')
								)
						)
						{
							Application->MessageBox(MENSAJE(msgSobreescribeConX), NULL);
						}

						/*~~~~~*/
						int k, l;
						/*~~~~~*/

						if(temp2 == "")
							k = temp.ToInt();
						else
							k = temp2.ToInt();
						l = temp.ToInt();

						for(; k <= l; k++)
						{
							Tabla.EscribirDinArray(k, j, 'X');
						}

						temp = "";
						temp2 = "";
					}
				}
				else if(car == ":")
				{
					temp2 = temp;
					temp = "";
				}
				else
				{
					if
					(
						((FormasNormales->Disyuntivo->Checked) & (Tabla.LeerDinArray(temp.ToInt(), j) == 1)) |
							((FormasNormales->Conjuntivo->Checked) & (Tabla.LeerDinArray(temp.ToInt(), j) == 0))
					)
					{
						Application->MessageBox(MENSAJE(msgSobreescribeConX), NULL);
					}

					/*~~~~~*/
					int k, l;
					/*~~~~~*/

					if(temp2 == "")
						k = temp.ToInt();
					else
						k = temp2.ToInt();
					l = temp.ToInt();

					for(; k <= l; k++)
					{
						Tabla.EscribirDinArray(k, j, 'X');
					}

					temp = "";
					temp2 = "";
				}
			}
		}

		Application->MessageBox(MENSAJE(msgSCGuardado), "");
	}
}