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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Эти небольшие функции анализирую таблицу и записывают её содержимое в 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;

{/codecitation}

Добавить комментарий