Formatar Arquivo de Texto (*.txt)

Question

Preciso de uma dica para formatar o layout de um relat�rio, por exemplo :
eu tenho um determinado relat�rio geral por um programa em clipper
e

Isadora · Answer

[b:7a0fd3a4a8]Para exportar para formato TXT[/b:7a0fd3a4a8]

procedure TForm1.ButExportaClick(Sender: TObject);
var
Arq: TextFile;
begin
if SaveDialog1.Execute then
begin
Screen.Cursor := crHourGlass;
with Table1 do
begin
Open;
First;
if not EOF then
begin
AssignFile(Arq, SaveDialog1.FileName);
ReWrite(Arq);
repeat
WriteLn(Arq,FieldByName(�EmpNo�).AsString + �|� +
FieldByName(�LastName�).AsString + �|� +
FieldByName(�FirstName�).AsString + �|� +
FieldByName(�PhoneExt�).AsString + �|� +
FieldByName(�HireDate�).AsString + �|� +
FieldByName(�Salary�).AsString + �*�);
next;
until EOF;
CloseFile(Arq);
end;
close;
end;
Screen.Cursor := crDefault;
end;
end;

[b:7a0fd3a4a8]Para importar de arquivo formato TXT:[/b:7a0fd3a4a8]

procedure TForm1.ButImportaClick(Sender: TObject);
var
Arq: TextFile;
Texto: String;
I: Integer;

function MontaVariavel: String;
var
monta: String;
begin
monta := ��;
inc(I);
while Texto[I] <> �*� do
begin
if Texto[I] = �|� then
break;
monta := monta + Texto[I];
inc(I);
end;
result := monta;
end;

begin
if OpenDialog1.Execute then
begin
Screen.Cursor := crHourGlass;
Table1.Open;
AssignFile(Arq, OpenDialog1.FileName);
Reset(Arq);
if not EOF(Arq) then
repeat
ReadLn(Arq,Texto);
with Table1 do
begin
Insert;
i := 0;
FieldByName(�EmpNo�).AsString := MontaVariavel;
FieldByName(�LastName�).AsString := MontaVariavel;
FieldByName(�FirstName�).AsString := MontaVariavel;
FieldByName(�PhoneExt�).AsString := MontaVariavel;
FieldByName(�HireDate�).AsString := MontaVariavel;
FieldByName(�Salary�).AsString := MontaVariavel;
Post;
end;
until EOF(Arq);
CloseFile(Arq);
Table1.Close;
Screen.Cursor := crDefault;
end;
end;

Espero ter ajudado.
Abra�os,
Isadora.