Este exemplo demonstra como validar um conteúdo a partir de uma string em quatro diferentes expressões regulares, que são:

• Validar se a string enviada contém um endereço de e-mail
• Validar se a string enviada contém um endereço de IP válido
• Validar se a string enviada está no formato dd-mm-yyyy
• Validar se a string enviada está no formato mm-dd-yyyy

O código a seguir mostra as quatro expressões regulares usadas por essa aplicação.

void __fastcall TForm1::lbRegExpChange(TObject *Sender) {
	switch (lbRegExp->ItemIndex) {
	case 0:
		lbType->Text = "E-mail for validation";

		MemoRegEx->Text =
			"^((?>[a-zA-Z\d!#$%&''*+\\-/=?^_`{|}~]+\\x20*" "|\"((?=[\\x01-\\x7f])[^\"\\\\]|\\\\[\\x01-\\x7f])*\"\\"
			"x20*)*(?\.?[a-zA-Z\d!" "#$%&''*+\\-/=?^_`{|}~]+)+|\"\"((?=[\\x01-\\x7f])"
			"[^\"\\\\]|\\\\[\\x01-\\x7f])*\")@(((?!-)[a-zA-Z\\d\\" "-]+(?)$";

		break;
	case 1: {
			// Accept IP address between 0..255
			lbType->Text = "IP address for validation (0..255)";
			MemoRegEx->Text =
				"\\b(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\\" ".(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\\."
				"(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\\." "(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\\b";
			break;

		}
	case 2: {
			// Data interval format mm-dd-yyyy
			lbType->Text =
				"Date in mm-dd-yyyy format from between 01-01-1900 and 12-31-2099";
			MemoRegEx->Text =
				"^(0[1-9]|1[012])[- /.](0[1-9]|[12][0-9]|3[" "01])[- /.](19|20)\\d\\d$";
			break;

		}
	case 3: {
			// Data interval format mm-dd-yyyy
			lbType->Text =
				"Date in dd-mm-yyyy format from between 01-01-1900 and 31-12-2099";
			MemoRegEx->Text =
				"^(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[01" "2])[- /.](19|20)\\d\\d$";
			break;

		}
	}
	EditTextChangeTracking(EditText);

}

Para executar a validação, utilizamos o método TRegExp::IsMatch como demonstrado a seguir:
To execute the validation you can use the method TRegExp::IsMatch as you can see bellow:

void __fastcall TForm1::EditTextChangeTracking(TObject *Sender) {
       // EditText contain the string value and MemoRegEx the regular expression
	if (TRegEx::IsMatch(EditText->Text, MemoRegEx->Text)) {
		SEResult->ShadowColor = TAlphaColors::Green;
	}
	else
		SEResult->ShadowColor = TAlphaColors::Red;

}

Uma vez que este é um aplicativo FireMonkey, utilizei o efeito de sombra para demonstrar ao usuário se o valor informado no Edit é válido ou não (Verde = válido / Vermelho = inválido). A seguinte imagem demonstra o que irá acontecer caso o usuário informe um endereço de e-mail inválido no Windows e Mac.

Abaixo o resultado quando o usuário informar o endereço de e-mail válido.

Você pode baixar o código fonte  aqui ou atualizar a pasta de exemplos local do seu RAD Studio XE2 a partir do repositório do RAD Studio XE2 no SVN.

Posts relacionados

• Usando dbExpress Framework no Windows e Mac com C++Builder
• Conectando ao PostgreSQL com dbExpress ODBC driver
• Vídeo: Delphi XE2 e FireMonkey app no Windows, Mac e iOS
• Desenvolvimento de software, tecnologias e outros assuntos #6
• Hora de seguir em frente
• Apresentações do Delphi Conference 2011 disponíveis para download

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

• Jailbreak para iPhone 4S e iPad 2 finalmente disponibilizado, desta vez os hackers tiveram muito trabalho para quebrar os novos aparelhos da Apple com aparelho A5
• Se você está interessado em saber como escalar suas aplicações nas nuvens, leia o artigo publicado pela equipe da Netflix onde eles compartilham a experiência deles com a Amazon “Auto Scaling in the Amazon Cloud”
• Eu sou fan do iPhone, talvez mude para o Nokia Lumia 900 (Windows Phone) no futuro e Android não está nos meus planos. A algumas semanas descobrir este artigo “Why I Hate Android“, é pelo menos interessante.
• A guerra dos browsers continua, Chrome está ganhando e o IE continua na liderança, vamos ver por quanto tempo
• Projeto Delphi Open Source do mês - DORM é um framework ORM para Delphi criado pelo Daniele Teti
• Se você precisa converter seus projetos VCL Delphi e C++Builder para FireMonkey, da uma olhada neste solução conhecida como Mida, um produto comercial para converter projetos VCL em FireMonkey
• TMS Software acaba de lançar o  TMS Instrumentation Workshop para FireMonkey, um conjunto de componentes para aplicações que necessitam de instrumentação e multimídia, os componentes podem ser utilizados em Windows, Mac e iOS
• Uma ótima oportunidade para os clientes Embarcadero - BOGO está de volta!!! – Compre uma ferramenta de desenvolvimento e leve a segunda GRÁTIS!
• Artigo (em inglês) muito bom que mostra como criar FireMonkey shader effects

Posts relacionados

• Usando expressões regulares em aplicações FireMonkey com C++Builder
• Usando dbExpress Framework no Windows e Mac com C++Builder
• Desenvolvimento de software, tecnologias e outros assuntos #5
• Desenvolvimento de software, tecnologias e outros assuntos #4
• Desenvolvimento de software, tecnologias e outros assuntos #3
• Desenvolvimento de software, tecnologias e outros assuntos #2

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse

Neste primeiro artigo, demonstro como usar dbExpress Framework para executar SQLs em um banco de dados InterBase, meu objetivo é executar a aplicação no Windows e Mac, tendo que escrever uma única aplicação, assim sendo criei um aplicativo console que utilizar FireMonkey.

O assistente (Wizard) para criação de aplicações console em C++ foi atualizado no C++ Builder XE2, este agora contém a opção Target Framework, como você pode ver abaixo.

O código abaixo mostra como conectar a uma base de dados InterBase, executar um SELECT na tabela COUNTRY e exibir os resultados, vale lembrar que você pode usar o dbExpress Framework para interagir com qualquer banco de dados suportado pelo dbExpress, lembrando que alguns drivers dbExpress não estão disponíveis no Mac, como por exemplo, SQL Server e o driver ODBC.

Se você é um desenvolvedor C++ rapidamente irá entender o código abaixo, o qual contém comentários para facilitar o entendimento.

#include <fmx.h>

#pragma hdrstop
#pragma argsused

#include <tchar.h>
#include <stdio.h>
#include <System.SysUtils.hpp>
#include <Data.DBXDynalink.hpp>
#include <Data.DBXCommon.hpp>
#include <Data.DBXInterbase.hpp>
#include <memory>

int _tmain(int argc, _TCHAR* argv[]) {

	// Get database connection instance
	std::auto_ptr<TDBXConnection>conn
		(TDBXConnectionFactory::GetConnectionFactory()->GetConnection
		("EMPLOYEE", "sysdba", "masterkey"));

	if (conn.get() != NULL) {

		printf("================= Connection Properties ============\n");

		AnsiString s = conn->ConnectionProperties->Properties->Text + "\n";
		printf(s.c_str());

		// create command and transaction objects to execute the query
		std::auto_ptr<TDBXCommand>command(conn->CreateCommand());

                // initiate a transaction
		TDBXTransaction *transaction =
			conn->BeginTransaction(TDBXIsolations::ReadCommitted);

		command->Text = "SELECT * FROM Country";
		command->Prepare();

		// execute the query and get the cursor (DBXReader)
		std::auto_ptr<TDBXReader>reader(command->ExecuteQuery());

		// print number of columns and each record
		printf(AnsiString("Number of Columns:" + IntToStr(reader->ColumnCount) +
			"\n").c_str());

		// display the list of records
		while (reader->Next()) {
			printf((reader->Value[reader->GetOrdinal("COUNTRY")]->GetAnsiString
				() + "\n").c_str());
		}

		printf("====================================================\n");

		conn->CommitFreeAndNil(transaction);
	}

	Sleep(5000);
	return 0;
}

Antes de executar esse código, certifique-se que o alias dbExpress EMPLOYEE está configurado para a conectar ao banco de dados EMPLOYEE.GDB e o cliente do InterBase esteja instalado, a partir do momento em que o ambiente está configurado, compile e execute este aplicativo no Windows e Mac, a imagem a seguir mostra esta aplicação rodando no Mac.

Existem alguns pontos que você precisa estar ciente quando distribuir e executar suas aplicação no Mac, estou preparando um post onde vou explicar mais sobre este tema.

Até aqui aprendemos como usar DBX Framework, distribuir e executar este tipo de aplicação no Windows e Mac.

Você pode baixar o código fonte aqui ou apenas atualizar suas pasta de exemplos do RAD Studio XE2 a partir do repositório do RAD Studio no SVN.

Posts relacionados

• Usando expressões regulares em aplicações FireMonkey com C++Builder
• Conectando ao PostgreSQL com dbExpress ODBC driver
• Vídeo: Delphi XE2 e FireMonkey app no Windows, Mac e iOS
• Desenvolvimento de software, tecnologias e outros assuntos #6
• Hora de seguir em frente
• Apresentações do Delphi Conference 2011 disponíveis para download

Andreano Lanusse | Tecnologia e Desenvolvimento de Software
Follow me on Twitter: @andreanolanusse