Как сохранить содержимое таблицы в текстовый файл?
Материал из 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