como sera q se faz isso???

Ola...

Tente usar o comando writeln quando passar de uma linha para outra.

Espero ter ajudado.


Mariana

Véio manda o seu codigo pra gente dar uma olhada..
assim fica dicifil..
Falow....

Jr.

Veja se esse código te ajuda:

procedure TF_DPessoais.BitBtnSacClick(Sender: TObject);
var
arq: TextFile;
codigo, nome, venc, mes_s, nomef, codigog, tipo: String;
a, b, cpf, xend, bai, cid, uf, cep, tel, val, sr: String;
mesvec, dvec: String;
conta, i, j, tamstr, SelPos: integer;
begin
conta:=0;
j:=1;
AssignFile(arq,´c:/Caixa/cobcaixa/Sacados.txt´); //Nome do arquivo a ser criado
Rewrite(arq);
mesvec:= copy(datetostr(date()),4,2);
mesvec:=InputBox(´Mês´,´Digite o mês desejado:´, mesvec);
dvec:=InputBox(´Dia de Vencimento´,´Digite o dia do Vencimento:´, ´10´);
DM_Geral.Table1.Open;
while not DM_Geral.Table1.Eof do // Para pegar todos os registros
begin
BitBtnSac.Caption:=inttostr(conta);
//Código
codigo := IntToStr(DM_Geral.QryBoletoCdigodaMatrcula.Value);
while Length(codigo) < 15 do
codigo:= ´ ´+codigo;
//Nome
nome := DM_Geral.QryBoletoAluno.Value;
if Length(nome) > 40 then
nome:=copy(nome,1,40);
while Length(nome) < 40 do
nome := nome + ´ ´;
//Dia
mes_s:=copy(datetostr(DM_Geral.QryBoletoDatadeVencimento.Value),1,2);
while Length(mes_s) < 2 do mes_s := ´0´+mes_s;
venc:= mes_s;
//Nome Fantasia
nomef:=nome;
//Código do Grupo
codigog:=´ ´;
//Tipo de Pessoa(Física ou Jurídica)
tipo:=´F´;
//CPF ou CGC
cpf:=DM_Geral.QryBoletoCPF.Value;
cpf:=copy(cpf,1,3)+copy(cpf,5,3)+copy(cpf,9,3)+copy(cpf,13,2); //Copia o CPF sem formatação
while Length(cpf) < 20 do
cpf:=´0´+cpf;
//Endereço
xend:=DM_geral.QryBoletoEndereo.Value;
if Length(xend) >40 then
xend:=copy(xend,1,40);
while Length(xend) < 40 do
xend := xend + ´ ´;
//Bairro
bai:=DM_geral.QryBoletoBairro.Value;
if Length(bai) < 15 then
while Length(bai) < 15 do
bai := bai + ´ ´
else
bai:=copy(bai,1,15);
//Cidade
cid:=DM_Geral.QryBoletoCidade.Value;
while Length(cid) < 15 do
cid := cid + ´ ´;
//Estado
uf:=DM_Geral.QryBoletoEstado.Value;
while Length(uf) < 2 do
uf:= uf+´ ´;
//CEP
cep:=DM_Geral.QryBoletoCep.Value;
cep:=copy(cep,1,2)+copy(cep,4,3)+copy(cep,8,3); //copia CEP sem formatação
while Length(cep) < 8 do
cep:=cep+´0´;
//Telefone
tel:=DM_Geral.QryBoletoTelefone.Value;
tel:=copy(tel,1,4)+copy(tel,6,4);
while Length(tel) < 20 do
tel:=tel+´ ´;
//Valor da Parcela
val:=formatfloat(´0.00´,DM_Geral.QryBoletoValordamensalidade.Value);
tamstr:=Length(formatfloat(´0´,DM_Geral.QryBoletoValordamensalidade.Value));
val:=copy(val,1,tamstr)+copy(val,tamstr+2,2);
While Length(val) < 15 do
val:=val+´ ´;
//Código de Série
sr := IntToStr(DM_Geral.QryBoletoCdigodaMatrcula.Value);
while Length(sr) < 10 do
sr:= ´ ´ + sr;
//Verificação e substituição de Acentos
a:=codigo+nome+nomef+codigog+tipo+cpf+xend+bai+cid+uf+cep+tel+val+venc+sr;
memo1.Lines.Add(a);
i:=0;
with TReplaceDialog(Sender) do
begin
While i < 41 do
begin
i:=i+1;
FindText:=Memo2.Lines[i];
ReplaceText:=Memo3.Lines[i];
SelPos := Pos(FindText, Memo1.Lines.Text);
if SelPos > 0 then
begin
Memo1.SelStart := SelPos - 1;
Memo1.SelLength := Length(FindText);
{ Replace selected text with ReplaceText }
Memo1.SelText := ReplaceText;
end;
end;
end;
// Gravação do arquivo
b:=copy(Memo1.text,j,255);
Memo1.Text:=´´;
Write(arq, b);
DM_Geral.QryBoleto.Next;
conta:=conta+1;
end;
closefile(arq);
BitBtnSac.Caption:=´TXT´;
DM_Geral.QryBoleto.Close;
MessageDlg(´O arquivo txt foi gerado com êxito!´,mtinformation,[mbok],0);
end;