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]
