Считывание из Stringgrid с последующим заполнением

[Ant_M]

Ребят помогите не могу разобраться.
У меня есть функция которая сохраняет в файл таблицу стрингрид.

procedure SaveStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:    TextFile;
   i, k: Integer;
 begin
   AssignFile(f, FileName);
   Rewrite(f);
   with StringGrid do
   begin
 
    Writeln(f, ColCount);
     Writeln(f, RowCount);
 
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
         Writeln(F, Cells[i, k]);
   end;
   CloseFile(F);
 end;

и соответственно считывание

 procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
    Readln(f, iTmp);
     ColCount := iTmp;
    Readln(f, iTmp);
     RowCount := iTmp;
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
    CloseFile(f);
 end;

после считывания из файла мне хочется забить новые данные при сохранении старых.
но с кодом что то не то,он стирает которые считали из файла и записывает новые.

procedure TForm1.Button1Click(Sender: TObject);
 begin
 inc(y);
form4.StringGrid1.Cells[1,y]:=Form1.Edit1.Text;
form4.StringGrid1.Cells[2,y]:=Form1.comboBox1.Text;
form4.StringGrid1.Cells[3,y]:=Form1.comboBox2.Text;
form4.StringGrid1.Cells[4,y]:=Form1.Edit2.Text;
form4.StringGrid1.Cells[5,y]:=Form1.comboBox3.Text;
form4.StringGrid1.Cells[6,y]:=Form1.Edit4.Text;
form4.StringGrid1.Cells[7,y]:=Form1.Edit5.Text;
form4.StringGrid1.Cells[8,y]:=Form1.Edit6.Text;
form4.StringGrid1.Cells[9,y]:=Form1.comboBox4.Text;
form4.StringGrid1.Cells[10,y]:=Form1.comboBox5.Text;
      edit1.Clear;
      edit2.Clear;
      edit3.Clear;
      edit4.Clear;
      edit5.Clear;
      edit6.Clear;
      edit7.Clear;
      edit8.Clear;
      edit9.Clear;
      edit10.Clear;
      edit11.Clear;
   ComboBox1.ItemIndex:=-1;
      ComboBox2.ItemIndex:=-1;
      ComboBox3.ItemIndex:=-1;
         ComboBox4.ItemIndex:=-1;
      ComboBox5.ItemIndex:=-1;
            end;

как сделать так чтоб данные из файла сохранялись?

[Utkin]

после считывания из файла мне хочется забить новые данные при сохранении старых.

Можно этот момент поподробней. Чего-то в моей голове 3 условия - считать, сохранить, оставить старые данные одновременно не выполняются

[Ant_M]

У меня две формы. в первой заполнение данных,во второй сам стрингрид где есть кнопки считать и записать в файл.
Считываешь из файла. переходишь к заполнению новых данных,он перезаписывает первую строку,и так далее. тем самых данные из файла стираются,а нужно чтобы заполнялись дальше.

[DiemonStar]

Rewrite(f);

замените на

Reset(f);

или

Append(f)

ваш вариант открывает файл для перезаписи.

[Ant_M]

нет видимо не в этом дело,а в последнем коде записи,он просто берет и перезаписывает уже занятые ячейки

[DiemonStar]

Сообщение от Ant_M

нет видимо не в этом дело,а в последнем коде записи,он просто берет и перезаписывает уже занятые ячейки

кто берет? какие ячейки? о чем вообще речь: о файле или гриде?

попробуйте нормально описать последовательность действий и где происходит ошибка.

[Ant_M]

захожу в программу,считываю из файла,все хорошо.
дальше хочу дополнить данные,и чтобы данные которые я считала из файла они тоже остались.
А происходит так считываю из файла допустим три строки. Начинаю новое заполнять,он первую строку заполняет новыми данными,а две оставляет из файла,и так далее, то есть он не добавляет сверху

[Ant_M]

могу файлом скинуть

[DiemonStar]

тогда вам в процедуру заполнения грида данными из файла нужно добавить (например, в конец) вот такую строчку:

 procedure LoadStringGrid(StringGrid: TStringGrid; const FileName: TFileName);
 var
   f:          TextFile;
   iTmp, i, k: Integer;
   strTemp:    String;
 begin
   AssignFile(f, FileName);
   Reset(f);
   with StringGrid do
   begin
    Readln(f, iTmp);
     ColCount := iTmp;
    Readln(f, iTmp);
     RowCount := iTmp;
    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do
       begin
         Readln(f, strTemp);
         Cells[i, k] := strTemp;
       end;
   end;
    y := RowCount;
    CloseFile(f);
 end;

[Sciv]

то есть он не добавляет сверху

Начнем с того, что при считывании из файла код у Вас заполняется таблицу не сверху вниз, а слева направо:

    for i := 0 to ColCount - 1 do
       for k := 0 to RowCount - 1 do

Это номер раз - некритично, ибо работает, но противоречит Вашим же рассуждениям.

Номер два:

 inc(y);

Что есть игрек и какое значение она принимает в процессе исполнения кода (то бишь при нажатии батон1)? То, что она в себе содержит номер строки - это понятно, но какое реальное значение она принимает?

И кстати говоря, если Вы хотите именно дополнять СтрингГрид, Вам нужно количество строк после inc(y) менять, иначе у Вас оно не меняется и происходит замещение данных вместо добавления.

Вообще лучше бы было приложить весь проект в архиве - быстрее бы разбор полетов пошел.

UPDATE Собственно, DiemonStar уже указал Вам возможное решение, уверен, что оно как раз и будет правильным