Formatar e Exportar para txt?
Olá pessoa tô com um pequeno problema, eu tenho três campos com tamanos diferentes e gostaria de formatar eles e exportar para um *.txt... o primerio valor tem 6 digitos, o segundo 3 e o terceiro 8.... eu tentei usar a propriedade DisplayFormat e EditFormat + na hora de imprimir para o arquivo txt ele só vai sem os zeros a esquerda. Alguém poderia dar uma dica de como solucionar esse probleminha. Obrigado pela ateção!
Joule
Curtidas 0
Respostas
Night_man
18/07/2006
qual eh a mascara de formatacao??
GOSTEI 0
Joule
18/07/2006
É assim:
•Matricula : 000987
•Evento : 003
•Valor/Quantidade : 00015298
000987 003 000015298
Foi deixado um espaço em branco entre as informações no registro apenas para efeito didático pois no registro definitivo não deve haver este espaço.
•Matricula : 000987
•Evento : 003
•Valor/Quantidade : 00015298
000987 003 000015298
Foi deixado um espaço em branco entre as informações no registro apenas para efeito didático pois no registro definitivo não deve haver este espaço.
GOSTEI 0
Lhsantos
18/07/2006
Veja se isso ajuda:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function ZerosEsquerda(sValor: String; iQtdZero: Integer): String;
procedure GravaArquivoTexto(nomeDoArquivo: String);
public
{ Public declarations }
sVal1, sVal2, sVal3: String;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Gravar arquivo texto
procedure TForm1.GravaArquivoTexto(nomeDoArquivo: String);
var
arq: TextFile;
begin
AssignFile(arq,nomeDoArquivo);
Rewrite(arq);
Write(arq, sVal1+sVal2+sVal3);
WriteLn(arq);
CloseFile(arq);
end;
// Função para colocar zeros a esquerda
function TForm1.ZerosEsquerda(sValor: String; iQtdZero: Integer): String;
begin
While Length(sValor) < iQtdZero Do
sValor:= ´0´ + sValor;
Result:= sValor;
end;
// Procedure para chamar a função para colocar zeros a esquerda e gravar o arquivo texto
procedure TForm1.Button1Click(Sender: TObject);
begin
sVal1:= ZerosEsquerda(Edit1.Text,6);
sVal2:= ZerosEsquerda(Edit2.Text,3);
sVal3:= ZerosEsquerda(Edit3.Text,8);
GravaArquivoTexto(ExtractFilePath(ParamStr(0))+´teste.txt´);
ShowMessage(´Arquivo gravado com sucesso!!!´);
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function ZerosEsquerda(sValor: String; iQtdZero: Integer): String;
procedure GravaArquivoTexto(nomeDoArquivo: String);
public
{ Public declarations }
sVal1, sVal2, sVal3: String;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// Gravar arquivo texto
procedure TForm1.GravaArquivoTexto(nomeDoArquivo: String);
var
arq: TextFile;
begin
AssignFile(arq,nomeDoArquivo);
Rewrite(arq);
Write(arq, sVal1+sVal2+sVal3);
WriteLn(arq);
CloseFile(arq);
end;
// Função para colocar zeros a esquerda
function TForm1.ZerosEsquerda(sValor: String; iQtdZero: Integer): String;
begin
While Length(sValor) < iQtdZero Do
sValor:= ´0´ + sValor;
Result:= sValor;
end;
// Procedure para chamar a função para colocar zeros a esquerda e gravar o arquivo texto
procedure TForm1.Button1Click(Sender: TObject);
begin
sVal1:= ZerosEsquerda(Edit1.Text,6);
sVal2:= ZerosEsquerda(Edit2.Text,3);
sVal3:= ZerosEsquerda(Edit3.Text,8);
GravaArquivoTexto(ExtractFilePath(ParamStr(0))+´teste.txt´);
ShowMessage(´Arquivo gravado com sucesso!!!´);
end;
end.
GOSTEI 0
Joule
18/07/2006
lhsantos, NiGHT_MaN obrigado pela força... deu tudo certo.
GOSTEI 0