以下のDataSetToASCII 手続きを使ってASCIIファイルにエクスポートします。<br />
DataSetToASCIIは、TDataSetから指定されたASCIIファイルにレコードをエクスポートします。<br />
フィールドは指定されたデリミタ文字により区切られ、レコードは改行コードによって区切られます。<br />
また引数 QuoteStrings が True の際には、以下の種類のフィールドは単一引用符によって囲われた形で出力されます。<br />
最後に出力しない(したくない)フィールドは、Tag プロパティを0(デフォルト)以外に設定してください。<br />
0以外に設定することでエクスポートの対象外となります。<br />
<pre class="code">
<b>unit</b> Unit1;

<b>interface</b>

<b>uses</b>
  Db, Classes, Dialogs, SysUtils;

<b>procedure</b> DataSetToASCII(<b>const</b> ADataSet: TDataSet;<b>
  const</b> ASCIIFile: TFileName; <b>const</b> Delimiter: Char;<b>
  const</b> QuoteStrings: Boolean);

<b>implementation</b>

<b>procedure</b> DataSetToASCII(<b>const</b> ADataSet: TDataSet;
  <b>const</b> ASCIIFile: TFileName; <b>const</b> Delimiter: Char;<b>
  const</b> QuoteStrings: Boolean);
<b>var</b>
  i, LastIndex: LongInt;
  AsciiRecord: <strong>String</strong>;
<b>begin</b>
  <b>with</b> TStringList.Create, ADataSet do
  <b>try</b>
    LastIndex:= Pred(Fields.Count);
    First;
    <b>while</b> <b>not</b> EOF <b>do</b>
    <b>begin</b>
      AsciiRecord:= '';
      <b>for</b> i := 0 <b>to</b> LastIndex <b>do</b>
      <b>begin</b>
        <b>if</b> Fields.Fields[i].Tag = 0 <b>then</b>
        <b>begin</b>
          <b>if</b> (QuoteStrings) <b>and</b>
            (Fields.Fields[i].DataType
            <b>in</b> [ftString, ftMemo, ftFmtMemo, ftFixedChar, ftWideString]) <b>then</b>
          <b>begin</b>
            AsciiRecord := AsciiRecord + AnsiQuotedStr(Fields.Fields[i].AsString);
          <b>end</b>
          <b>else</b>
          <b>begin</b>
            AsciiRecord := AsciiRecord + Fields.Fields[i].AsString;
          <b>end</b>;
          <b>if</b> (i &lt; LastIndex) <b>then</b> AsciiRecord:= AsciiRecord + Delimiter;
        <b>end</b>;
      <b>end</b>;
      Append(AsciiRecord);
      Next;
    <b>end</b>;
    <b>try</b>
      SaveToFile(ASCIIFile)
    <b>except</b>
      ShowMessage('テーブルは指定されたファイル: ' + ASCIIFile + ' にセーブできませんでした。');
    <b>end</b>;
    <b>finally</b>
    Free;
  <b>end</b>;
<b></b><b>end</b>;
<b>end</b>.
</pre>