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

made in programmersforum 1

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

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

17th
Дек

Сохранить данные из stringgrid в файл

Posted by micher under Delphi

Как сохранить данные из stringgrid в файл?

MaryJaneAlise



procedure TForm1.Button1Click(Sender: TObject);

  Var f: TextFile;

i, k: Integer;

s,s1:string;

begin

if SaveDialog1.Execute //выполняется диалог 'Сохранить как'

then begin //введено имя файла

AssignFile(f,SaveDialog1.FileName);

Rewrite(f); // создаем файл

Append(f); // открываем файл

for i:=1 to StringGrid1.RowCount-1 do

begin

for k:=0 to StringGrid1.ColCount-0 do

begin

s1:= s1 + '  '+ StringGrid1.Cells[k,i];

end;

Writeln(f,s1); // пишем значения ячеек

s1:='';

end;

CloseFile(f);

end;

end;