o usuário coloca lá o tamanho que for necessario. A função corta a linha do 
arquivo a cada ponto e virgula ou qualquer outro caractere que voce quiser. Eu 
só faço Layouts de importação desse jeito. Muito melhor, mais facil de 
codificar e menos chances de erros do que aqualela parada de tamanho e Copy pra 
cá, copy pra lá. 



[]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 4:40 PM
  Subject: Re: [delphi-br] Layout


  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]



   

  __________ Informa��o do ESET NOD32 Antivirus, vers�o da vacina 3566 
(20081029) __________

  A mensagem foi verificada pelo ESET NOD32 Antivirus.

  http://www.eset.com


[As partes desta mensagem que não continham texto foram removidas]

Responder a