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

Previous  Top  Next

    
 

 

 

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

Code:

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;

 

 

 

©Drkb::02602

       

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