quarta-feira, fevereiro 28, 2007

Incursões em C#

Salve,

Como profissionais em desenvolvimento de software, precisamos sempre
ficar atentos as novas tecnologias e linguagens que surgem de tempos
em tempos. Confesso que sou um pouco cético (ou conservador, como
queiram) com relação a novas tecnologias, não costumando ir na onda de
modismos ou de entusiastas que elegem uma tecnologia como
revolucionária e bradam aos quatro cantos que ela é melhor, sem que
uma análise profunda seja feita.

Claro que muitas tecnologias boas emergem nesse meio fecundo que é a
área da tecnologia da informação, mas prefiro me nortear pelo
movimento do mercado, ou seja, me orientar pelas tecnologias que as
empresas estão usando ou naquelas que elas estão investindo, pois
sejamos francos: a coisa só vai pra frente quando há grana na parada,
num é mesmo?

Vejam por exemplo o caso do Java. Tenho certeza que ela só chegou onde
está, se tornando uma das tecnologias mais difundidas e usadas no
mundo, graças ao investimento e apoio de grandes como IBM e Oracle.

Partindo desse cenário, estou iniciando uma reciclagem, pois como não
deve ser novidade para ninguém, programo "fluentemente" em Delphi, e
vejo que já está na hora de respirar novas sintaxes. :)

Ao longo deste ano quero estudar seriamente C# e Java, e se até o ano
que vem os ventos continuarem soprando a favor do Ruby on Rails, que em 2006
foi eleita a linguagem do ano pelo TPC Index, certamente ela será uma
das eleitas para 2008.

Um abraço e até a próxima.
--
Nappe

quarta-feira, fevereiro 07, 2007

Dica de Delphi - Exportar dataset para arquivo texto de largura fixa

Saudações,

Vez ou outra sempre há a necessidade de se gerar um arquivo texto de
largura fixa, seja para enviar para algum, lugar seja para exportação
para outro sistema. A rotina a seguir faz isso, usando como referencia
para a largura das colunas o próprio tamanho do campo. Detalhe: no
caso de campos Float, eles serão formatados com 3 casas após a
virgula, mas basta uma "mexidinha" no código para adequar à sua
necessidade.

Divirtam-se!

GeraTextoLarguraFixa(Dataset: TDataset; Separador: Char);
var
intI, intII, intIII: Integer;
strLista: TStringList;
strLinha: string;
dlgSalvar: TSaveDialog;
vetLarguraColuna: array of Byte;
begin

if Dataset.Active = False then
begin
MessageDlg('O arquivo texto não poderá ser gerado porque o
Dataset está fechado!',
mtWarning, [mbOk], 0);
Exit;
end;

dlgSalvar := TSaveDialog.Create(Self);
dlgSalvar.Title := 'Salvar Arquivo Texto';
dlgSalvar.Filter := 'Arquivos Texto|*.txt|Todos os arquivos|*.*';


strLista := TStringList.Create;
strLinha := EmptyStr;


SetLength(vetLarguraColuna, Dataset.FieldCount);

for intI := 0 to Dataset.FieldCount - 1 do
if Dataset.Fields[intI].DisplayWidth >
Length(Dataset.Fields[intI].DisplayLabel) then
vetLarguraColuna[intI] := Dataset.Fields[intI].DisplayWidth
else
vetLarguraColuna[intI] := Length(Dataset.Fields[intI].DisplayLabel);


//Cria a primeira linha com os nomes das colunas
for intI := 0 to Dataset.Fields.Count - 1 do
begin
strLinha := strLinha + Dataset.Fields[intI].DisplayLabel;

if vetLarguraColuna[intI] >
Length(Dataset.Fields[intI].DisplayLabel) then
for intII := Length(Dataset.Fields[intI].DisplayLabel) to
vetLarguraColuna[intI] do
strLinha := strLinha + ' '
else
strLinha := strLinha + ' ';
end;

strLista.Add(strLinha);
strLinha := EmptyStr;


for intI := 1 to Dataset.RecordCount do
begin
for intII := 0 to Dataset.Fields.Count - 1 do
begin

if Dataset.Fields[intII].DataType in [ftFloat, ftCurrency,
ftBCD, ftFMTBcd] then
begin
for intIII := Length(FormatFloat('##0.000',
Dataset.Fields[intII].AsFloat)) to vetLarguraColuna[intII] - 1 do
strLinha := strLinha + '0';

strLinha := strLinha + FormatFloat('##0.000',
Dataset.Fields[intII].AsFloat) + ' ';
end
else
begin
strLinha := strLinha + Dataset.Fields[intII].AsString;

for intIII := Length(Dataset.Fields[intII].AsString) to
vetLarguraColuna[intII] do
strLinha := strLinha + ' ';
end;

end;

strLista.Add(strLinha);
strLinha := EmptyStr;
Dataset.Next;
end;


if dlgSalvar.Execute then
try
strLista.SaveToFile(dlgSalvar.FileName);
MessageDlg('O arquivo "' + dlgSalvar.FileName + '" foi gerado
com sucesso!',
mtInformation, [mbOK], 0);
except
on Erro: Exception do
MessageDlg('Não foi possível gerar o arquivo ' +
dlgSalvar.FileName + '.' +
#13#13 + 'Erro:' + #13 + Erro.Message, mtError, [mbOk], 0);
end;

dlgSalvar.Destroy;
strLista.Free;

end;


--
Fernando D. Nappe
Analista de Sistemas