Как сохранить содержимое таблицы в текстовый файл?

Материал из DRKB

Как сохранить содержимое таблицы в текстовый файл?[править | править код]

Эти небольшие функции анализирую таблицу и записывают её содержимое в TStringList. А затем просто сохраняют в файл.

procedure DatasetRecordToInfFile(ADataset: TDataSet; AStrList: TStrings);
var
  i: integer;
begin
  for i := 0 to (ADataset.FieldCount-1) do
    aStrList.Add(ADataset.Fields[i].FieldName + '=' + ADataset.Fields[i].AsString);
end;

procedure DatasetToInfFile(ADataset: TDataSet; AStrList: TStrings);
begin
  ADataSet.First;
  while not ADataSet.EOF do
  begin
    DatasetRecordToInfFile(ADataset, AStrList);
    ADataSet.Next;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DatasetRecordToInfFile(Table1, Memo1.Lines);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DatasetToInfFile(Table1, Memo1.Lines);
end;


Source: Взято с http://delphiworld.narod.ru
ID: 02602