Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

26th
Окт

Выгрузить данные из DBGrid в txt-файл

Posted by obzor under Delphi

Как выгрузить все записи из DBGrid в текстовый файл (на Lazarus, Free Pascal)?

Serge_Bliznykov

попробуйте так

Код:


 FileName := 'Rec.txt';
 if FileExists(FileName)
 then begin
      FS := TFileStream.Create(FileName, fmOpenWrite);
      FS.Position := FS.Size;
      end
 else FS := TFileStream.Create(FileName, fmCreate);
 DataSet := DBGrid1.DataSource.DataSet;
 DataSet.First;
 while Not DataSet.Eof do begin
   Value := '';
   for i := 0 to DataSet.Fields.Count - 1 do 
      if Value = ''
        then Value := DataSet.Fields.AsString
        else Value := Value + ';' + DataSet.Fields.AsString;
   Value := Value + #13#10;
   FS.Write(Value[1], Length(Value));
   DataSet.Next;
 end;

 FS.Free;