StringGrid в фаил

[Alex_76]

Написал прогу с применением СтрингГрид из нескольких колонок, стал вопрос как сохранять в файл, причем в последующем необходимо использовать одну из колонок

[OLEG'arh]

procedure TForm1.Button1Click(Sender: TObject);
var
F:textfile;
i,j:integer;
begin

  assignfile(f,'c:\11111.txt');
  rewrite(f);
  for i:=1 to stringgrid1.colcount do
    begin
      writeln(f,'*');  //некий символ разделяющий слбцы
      for j:=1 to stringgrid1.RowCount do
        writeln(f,stringgrid1.Cells[i,j]);
    end;
  CloseFile(F);
end;

запись в файл идёт построчно.о начале нового столбца сигнализирует символ *. к примеру чтобы работать с 4-м столбцом ищешь четвёртый разделительный символ(*) и до пятого считываешь строки. Удачи!

[_Dmitry]

Предлагаю создавать текстовый файл с расширением csv, текст из ячеек в строках разделять символом ;. Такие файлы с удовольствием кушает Excel.

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  i,j: integer;
begin
  AssignFile(f,'c:\11111.csv'); Rewrite(f);
  for i:=0 to StringGrid1.RowCount do
    begin
      for j:=0 to StringGrid1.ColCount do
        begin
          write(f,stringgrid1.Cells[j,i]);
          if j < StringGrid1.ColCount then write(f,';');
        end;
      writeln(f);
    end;
  CloseFile(F);
end;