Walter.. vlw... mas se eu fizer assim ele pode não manter o tamanho do campo que o usuario definir..... Wesley
From: Walter Chagas Jr (BOL) Sent: Wednesday, October 29, 2008 2:37 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Layout faz os campos separados por ponto e virgula. use esta função pra ir cortando a string a medida que ela vai lendo um campo function ParteTexto(var Frase: string; Parte: string): string; // // Retorna uma parte de um texto antes de um caractere especificado // var i,max: integer; buff: string; begin i := 1; buff := ''; max := length(parte); while (i <= length(Frase)) and (buff <> parte) do begin buff := buff + Frase[i]; if length(buff) > max then buff := copy(buff,2,max); inc(i); end; if buff = Parte then begin Result := copy(Frase,1,i - max -1); Frase := copy(Frase,i,length(Frase)+1 -i); end else begin Result := Frase; Frase := ''; end; end; []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 http://delphitocorporerm.blogspot.com/ MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr ----- Original Message ----- From: BandaLemuel To: delphi-br@yahoogrupos.com.br Sent: Wednesday, October 29, 2008 3:19 PM Subject: [delphi-br] Layout Lista Seguinte... eu não tenho idéia como fazer já procurei mas não achei.... estou desenvolvendo um sistema para imprimir nota fiscal.. eu queria fazer com que o usuario definisse um layout proprio.... queria fazer tipo assim.... XXXXXXXXXXXXXXXXXXXXXX CCCCCCC NNNNNNN NNNNNNNNNNNNNNNNNN FFFFFFF GGGGGGG E ai o meu sistema procurasse o Caracter X e substituisse pelo campo que eu queira.... isso é facil... mas como posso saber qntos X o usuario colocou... para que ai eu corte a minha string do tamanho que o cliente definiu ??? Alguem ja fez isso ou tem ideia de como posso fazer isso ??? Vlw.... Wesley [As partes desta mensagem que não continham texto foram removidas] __________ Informa��o do ESET NOD32 Antivirus, vers�o da vacina 3564 (20081028) __________ A mensagem foi verificada pelo ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __________ Information from ESET NOD32 Antivirus, version of virus signature database 3566 (20081029) __________ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
