샘플양식입니다... 맞게 수정하세요....


var
    sFile : TextFile;
    FileDir : String;
  
begin  

   이전에 DB가 오픈 ....
  
  with Query1 do
   begin

   try
      AssignFile(sFile, FileDir);  // 예 'a:Test.txt');
      ReWrite(sFile);
      First; --처음으로....
      cnt := 0;

      while Not(EOF) DO
       begin
          

        Writeln(sFile,
                Format('%-9s',[필드1])+
                Format('%-21s',[필드2])+
                Format('%-2s',[필드3])+
                Format('%-1s',[필드4])
                );

        NEXT;
       end; // while end...
      CloseFile(sFile);
    except
     begin
       MessageDlg('파일 생성에 실패하였습니다.',mtError, [mbOk],0);
       Exit;
     end;
    end; // try end..
  end;
end;

간단한 텍스트파일 읽기/쓰기 예제  
unit Unit1;

interface

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, Menus;

type
TForm1 = class(TForm)
   ListBox1: TListBox;
   OpenDialog1: TOpenDialog;
   SaveDialog1: TSaveDialog;
   Open1: TButton;
   SaveAs1: TButton;
   procedure Open1Click(Sender: TObject);
   procedure SaveAs1Click(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.Open1Click(Sender: TObject);
var
ATextFile: System.Text;
TextLine: String;
begin
if OpenDialog1.Execute then
begin
   ListBox1.Clear;
   Caption := '파일 보기: ' + OpenDialog1.FileName;
   System.Assign(ATextFile, OpenDialog1.FileName);
   Reset(ATextFile); // 파일 열기
   while not Eof(ATextFile) do
   begin
     ReadLn(ATextFile, TextLine); // 1행 읽기
     ListBox1.Items.Add(TextLine);
   end;
   System.Close(ATextFile);
end;
end;

procedure TForm1.SaveAs1Click(Sender: TObject);
var
LineNo: Integer;
ATextFile: System.Text;
TextLine: String;
begin
if SaveDialog1.Execute then
begin
   System.Assign(ATextFile, SaveDialog1.FileName);
   Rewrite(ATextFile); // 파일 생성
   for LineNo := 0 to ListBox1.Items.Count-1 do
   begin
     TextLine := ListBox1.Items[LineNo];
     WriteLn(ATextFile, TextLine); // 1행 쓰기
   end;
   System.Close(ATextFile);
end;
end;

end.


그럼..............수고........  

   =^^=  (야 옹 ~)

  후다닥 ~

여기 찾아보심 있을겁니다.. 그람 즐프하세요..^^