Isso pode parecer básico, mas no final das contas é muito útil e muitos não sabem, então resolvi compartilhar aqui no blog.

Muitas vezes temos que ler o conteúdo de uma string que contém várias informações separadas por algum caractere, geralmente isso ocorre em leitura de arquivos texto. Imagine  a linha abaixo, onde você precisa identificar o conteúdo separado por vírgulas, cada string está entre aspas porque você pode ter conteúdos como endereço onde a vírgula é parte da string e não o delimitador.

“Barack Obama”, “President”, “United States”, “04/08/1961”

Utilizando TStringList podemos definir o delimitador a ser utilizado e desta forma percorrer o StringList conforme o exemplo abaixo.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes;

procedure Split(const Delimiter: Char; Value: string; const Strings: TStrings);
begin
  Assert(Assigned(Strings));
  Strings.Clear;
  Strings.DelimitedText := Value;
  Strings.Delimiter := Delimiter;
end;

var
  List: TStringList;
  I : Integer;
begin

  try

    List := TStringList.Create;
    try
      Split(',','"Barack Obama","President","United States","04/08/1961"', List);
      for I := 0 to List.Count -1 do
        Writeln(List[I]);
      Readln;
    finally
      List.Free;
    end;

  except
    on E: Exception do begin
      Writeln(E.ClassName, ': ', E.Message);
      Readln;
    end;
  end;

end.

O resultado ao executar este programa será:
– Barack Obama
– President
– United States
– 04/08/1961

Simples, mas útil.

Andreano Lanusse | Tecnologia e Desenvolvimento de Software Siga-me no Twitter: @andreanolanusse

Pessoal, acabo de disponibilizar no CodeCentral os fontes que utilizo para demonstrar os recursos do Delphi 2010 relacionados a Touch, Multitouch e Gesture.

São 8 exemplos, contendo código fonte. Vale lembrar que os exemplos que utilizam Multitouch requerem Windows 7, já os exemplos que utilizam Touch e Gesture podem ser executados em Windows 2000, XP e Vista. Caso você não tenho um monitor touchscreen, basta utilizar o mouse para simular os toques.

Os usuários de C++Builder 2010 poderam utilizar os mesmo recursos disponíveis no Delphi 2010.

Ao clicar na imagem abaixo, você verá um dos exemplos sobre multitouch em ação.

Download dos fontes

Andreano Lanusse | Tecnologia e Desenvolvimento de Software Siga-me no Twitter: @andreanolanusse

Na última sexta-feira dia 29 de agosto de 2009, tivemos o evento online de lançamento do Delphi 2010, foram quase 1000 desenvolvedores conectados para conhecer as novidades desta que é sem dúvida a melhor versão de todos os tempos.

Gostaria de agradecer a todos que prestigiaram o evento, agradecer as centenas de emails que recebi parabenizando a nossa equipe pelo trabalho realizado nesta versão.

Aqueles que não tiveram a oportunidade de participar do evento, podem assistir as apresentações diretamente do seu browser clicando em cada uma das imagens abaixo ou efetuar o download. A apresentação tem em torno de 2:30 minutos e foi dividida em duas partes, desta forma você pode efetuar o download ou assistir uma de cada vez.

Gostaria de lembrar que dia 15 de setembro será realizado o minicurso sobre Delphi 2010 em São Paulo, o evento é gratuito e iremos fundo nas novidades durante este minicurso, faça sua inscrição as vagas são limitadas.

*** Para assistir ou baixar o vídeo é necessário ter uma conta no EDN, ao tentar assistir ou efetuar o download o sistema automaticamente lhe perguntará pelo login e senha ou criar uma conta caso não tenha. É fácil, gratuito e você terá acesso a milhares de artigos e códigos fonte.

Enquanto você assiste a apresentação faça o download do trial e conheça na prática as novidades

Andreano Lanusse | Tecnologia e Desenvolvimento de Software Siga-me no Twitter: @andreanolanusse

TeeChart é um dos componentes de terceiros mais utilizados no Delphi e o que acompanha o Delphi por mais tempo, não me lembro agora, mas já fazem muitos anos que ele está presente. Desenvolvimento pela Steema Software que ano a ano implementa novas funcionalidades e extende toda os seus componentes para outras linguagens.

É muito fácil utilizar este componente, posso dizer que para muitos gráficos você não precisaria escrever código, através dos wizards disponíveis você pode criar gráficos, trazendo dados de um DataSet e pronto, mas claro que existiram situações onde você talvez necessita customizar algo e ai codificar será inevitável.

Assim sendo resolvi escrever este post e mostra um exemplo simples de como seria criar gráficos sem estar conectado a DataSet, ou seja, passar os dados a partir de um array ou algo parecido. O resultado final será o gráfico abaixo, onde se compara mês a mês o resultado das vendas de 2008 e 2009, além disso para cada mês temos o percentual que representou aquele mês no ano.

Vamos agora conhecer o código e saber como foi implementando este gráfico, ao final você poderá baixar os fontes.

Antes de mais nada, este é uma aplicação VCL, onde foi adicionado o componente TChart e com o botão direito selecione a opção Edit Chart, adicione duas séries através do botão Add, neste exemplo utilizei gráficos de barra.

A fonte de dados deste gráfico é um array que contém o total vendas para cada mês.

var
  i: Integer;
  val : Array[1..12] of Double;
begin

  val[1] := 10.2;
  val[2] := 12.2;
  val[3] := 11.7;
  val[4] := 6.3;
  val[5] := 8.0;
  val[6] := 2.9;
  val[7] := 20.3;
  val[8] := 1.4;
  val[9] := 4.5;
  val[10] := 6;
  val[11] := 10;
  val[12] := 15;

Após a definição da fonte de dados, remove os dados adicionados em tempo de runtime para as duas séries existentes, uma referente ao ano de 2008 e outra ao ano de 2009. Além disso defino que o estilo de apresentação dos valores para cada barra será percentual, isso quer dizer que será apresentado o quanto representa o total do mês no faturamento anual.

  Series2008.Clear;
  Series2008.Marks.Style := smsPercent;

  Series2009.Clear;
  Series2009.Marks.Style := smsPercent;

Depois disso vamos basta adicionar os valores de venda mensal para cada série (2008, 2009), repare que estou utilizando o array LongMonthNames para o obter o nome do mês, no meu caso os nomes aparecem em inglês, pois utilizo windows em inglês, ou seja, ele depende da versão do idioma do seu Windows, caso não queira depender do idioma do seu sistema operacional, basta sobrepor os valores para cada posição do Array.

Método Add foi utilizado para adicionar os valores, caso você queira customizar a cor de cada barra, basta adicionar uma cor como terceiro parâmetro ao método Add.

for i := 1 to 12 do
begin
Series2008.Add(val[i], LongMonthNames[i]);
end;

for I := 1 to 12 do
begin
Series2009.Add(val[i] / (1.45+(i/10)), LongMonthNames[i]);
end;

Espero que este simples e objetivo exemplo seja útil, o código fonte está disponível aqui.

Andreano Lanusse | Tecnologia e Desenvolvimento de Software Siga-me no Twitter: @andreanolanusse