Gracias nuevamente por tu ayuda nlsgarcia!
Para completar un poquito más dejo uno para TXT:
Código Delphi
[-]procedure TForm2.BitBtn1Click(Sender: TObject);
var
i : Integer;
saveDialog : TSaveDialog;
begin
saveDialog := TSaveDialog.Create(self);
saveDialog.Title := 'Respaldo de Archivo en Formato TXT';
saveDialog.InitialDir := GetCurrentDir;
saveDialog.Filter := 'Texto (delimitado por tabulaciones) (*.txt)|*.txt';
saveDialog.DefaultExt := 'txt';
saveDialog.FilterIndex := 1;
if saveDialog.Execute then
begin
with TStringList.Create do
try
for i := 0 to umain.Form1.ListView1.Items.Count-1 do
Add(umain.Form1.ListView1.Items[i].Caption +',' +
umain.Form1.ListView1.Items[i].SubItems.CommaText);
Text := StringReplace(Text,',',#9,[rfReplaceAll]);
try
SaveToFile(SaveDialog.FileName);
except
ShowMessage('Error en la Generación del Archivo TXT');
end;
finally
free;
end;
end;
saveDialog.Free;
end;
y uno para PRN:
Código Delphi
[-]procedure TForm2.Button1Click(Sender: TObject);
var
i : Integer;
saveDialog : TSaveDialog;
begin
saveDialog := TSaveDialog.Create(self);
saveDialog.Title := 'Respaldo de Archivo en Formato PRN';
saveDialog.InitialDir := GetCurrentDir;
saveDialog.Filter := 'Texto con formato (delimitado por espacios) (*.prn)|*.prn';
saveDialog.DefaultExt := 'prn';
saveDialog.FilterIndex := 1;
if saveDialog.Execute then
begin
with TStringList.Create do
try
for i := 0 to umain.Form1.ListView1.Items.Count-1 do
Add(umain.Form1.ListView1.Items[i].Caption +',' +
umain.Form1.ListView1.Items[i].SubItems.CommaText);
Text := StringReplace(Text,',',#32,[rfReplaceAll]);
try
SaveToFile(SaveDialog.FileName);
except
ShowMessage('Error en la Generación del Archivo PRN');
end;
finally
free;
end;
end;
saveDialog.Free;
end;