0
procedure TForm7.FormActivate(Sender: TObject);
var
  i: integer;
  t,r: tstringlist;
begin
   StatusBar1.Panels[0].Text:=Form1.CheckListBox1.Items.ValueFromIndex[Form1.CheckListBox1.ItemIndex];
   try
     t:=tstringlist.Create;
     r:=tstringlist.Create;
     begin
       t.LoadFromFile('files/Res/Prepod/1.'+inttostr(Form1.CheckListbox1.ItemIndex)+'spisok.txt'); 

       for i:=1 to stringgrid1.RowCount-1 do                      
          stringgrid1.Rows[i].Clear;

       stringgrid1.ColCount:=1;
       stringgrid1.RowCount:=t.Count;

       for i:=1 to t.Count-1 do
       begin
          r.DelimitedText:=t[i];

          if r.Count>stringgrid1.ColCount then         
            stringgrid1.ColCount:=r.Count;

          stringgrid1.Rows[i].Assign(r);
       end;
     end;
  except
  on E:exception do
     showmessage('Файла не существует');
  end;
end;

Есть код, который выгружает из файла внутри корневой папки данные и выводит их в StringGrid. Как сделать обратную функцию?

Вот такая входящая информация: исходящая информация

А это получается исходящая, если я выгружаю уже из таблицы. исходящая

Как сделать, чтобы сохранялось как входная?

2
  • Пройтись по Cells[i][j] и записать.
    – cpp_user
    9 июн 2016 в 20:48
  • Поправьте отступы в коде. Они вводят в заблуждение.
    – Kromster
    10 июн 2016 в 4:35

1 ответ 1

1

Насколько я понял - то колонка одна, это упрощает задачу.
//stringgrid1.ColCount:=1;
Если бы колонок было больше, то можно было бы добавить по ним цикл и немного поменять формат файла. Конечно можно под любой подогнать, но я так понял, что сейчас просто одни строки. Строка = значение.

procedure TForm7.SaveStingGrid2File(FileName : string);    
var
  i: integer;
  StringListt: TStringList;
begin
  StringList := TStringList.Create;
  try
    for i := 1 to stringgrid1.RowCount-1 do                      
      StringList.Add(stringgrid1.Cells[0, i]);
    StringList.SaveToFile(FileName);   
  finally
    StringList.free; 
  end;
end;

Для нескольких колонок можно вывести число колонок первой строкой, а затем сохранить вместе с циклом по колонкам

procedure TForm7.SaveStingGrid2File(FileName : string);    
var
  i, j: integer;
  StringList: TStringList;
begin
  StringList := TStringList.Create;
  try
    StringList.Add(IntToStr(stringgrid1.ColCount));
    for i := 1 to stringgrid1.RowCount-1 do                      
      for j := 1 to stringgrid1.ColCount-1 do                      
        StringList.Add(stringgrid1.Cells[j, i]);
    StringList.SaveToFile(FileName);   
  finally
    StringList.free; 
  end;
end;  

Кстати, лично от меня рекомендация (не сочтите за наглость)
1) Переменные и компоненты лучше называть осмысленно.
Form7, StringGrid1 - когда их десятки и сотни,запутаться легко в своем коде, даже на следующий день. Если одна форма, то не так актуально
2) Try except лучше ставить непосредственно перед критическим кодом с потенциальной ошибкой, так читабельнее
try
loadfromfile
except
end
3) Функции лучше делать более универсальные.
не procedure TForm7.SaveStingGrid2File(FileName : string);
а procedure SaveStingGrid2File(StringGrid : TStringGrid; FileName : string);
это поможет избежать дублирования кода.

2
  • 1
    Не учите людей писать неправильный код. Пустая конструкция except end (без обработки исключения) - это очень вредная конструкция. 10 июн 2016 в 9:45
  • Вы неправильно поняли код. ColCount := 1 это просто сброс старых ячеек (зачем - оставим это на совести автора). А дальше у него идет stringgrid1.ColCount:=r.Count;
    – kami
    10 июн 2016 в 10:59

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.