Eduardo, Dê uma olhada lá na minha página. Eu fiz um terminal SQL para um aplicativo que exibia os resultados no formato texto (para fontes monoespaçadas), otimizado para os comprimentos dos conteúdos dos campos. Veja o que você acha:
http://demianlessa.com/tecno/dicas.php É a dica #1. Cordialmente, Demian Lessa Salvador - Brasil Eduardo Silva ® wrote: > Galera, tenho o código abaixo, mas o espaçamento entre uma coluna e outra > esta muito grande. > Eu gostaria que ficasse somente um espaço entre uma coluna e outra a partir > do maior texto encontrado em cada coluna. > Tipo assim: > > Jose Rua tal CEP 21212-999 > Pedro Henrique Rua X, 369 CEP 18698-965 > Maria das Graças Rua B CEP 65298-633 > > Alguém pode me dar uma mão ? > > Obrigado. > > procedure GeraArquivoTexto(DataSet: TdataSet; NomeArq: string); > var > Registros : TstringList; > Linha, Espacos, Diretorio : string; > TamanhoMaximo, i, j : integer; > begin > TamanhoMaximo := 0; > Diretorio := ''; > Registros := TstringList.Create; > DataSet.Open; > DataSet.First; > Try > while not DataSet.Eof do > begin > Linha := ''; > for i := 0 to DataSet.FieldCount - 1 do > begin > Espacos := ''; > TamanhoMaximo := DataSet.Fields[i].DisplayWidth; > for j := Length(DataSet.Fields[i].Asstring) to TamanhoMaximo do > Espacos := Espacos + ' '; > Linha := Linha + DataSet.Fields[i].Asstring + Espacos; > end; > Registros.Add(Linha); > DataSet.Next; > end; > Registros.SaveToFile(nomeArq + '.txt'); > Application.Messagebox(Pchar('Tabela ' + DataSet.Name + ' exportada > com sucesso !'),'Aviso',MB_OK or MB_ICONWARNING); > finally > Registros.Free; > DataSet.Close; > end; > end; > ~\\|//~ > -(o o)- > o--------------oOOOo--(_)--oOOOo-------------o > | | > | Eduardo de Almeida Silva | > | Kobra Sistemas | > | [EMAIL PROTECTED] - (14)3263-0326 | > | | > | .oooO Oooo. | > o----------------( )---( )---------------o > \ ( ) / > \_) (_/ > > > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
