StringGrid

[ARXangel]

Привет всем!
Подскажите где ошибка?
По нажатию на кнопку значения из Edit3 присваивается ячейке StringGridа и переходит к следующей ячейке, когда доходит до последней ячейке значение не присваивается но сообщение выдается.
Как сделать чтобы и к последней ячейке присваивалось значение, а потом уже выводилось сообщение?
Заранее спасибо!

var
   i,j:integer;
begin
    with StringGrid1 do
      if Col<ColCount-1 then
        begin
             j:=StringGrid1.Col;
             for i:=0 to StringGrid1.ColCount do
                StringGrid1.Cells[j,0]:=Edit3.Text;
                Edit3.Text:='';
                Col:=Col+1;
        end
      else
          if Row < RowCount - 1 then
      begin
            ShowMessage('Закончились ячейки!')
      end;

[Ntlegend]

я шото не поймку.. присваиваешь в столбцы
if Col<ColCount-1 then

а проверяешь строки
if Row < RowCount - 1 then begin
ShowMessage('Закончились ячейки!')


зачем тебе переменная i и цыкл??

и еще одно..
for i:=0 to StringGrid1.ColCount-1 do иначе бдет ошибка..

а вообще поробуй переписать код так:

var
   i,j:integer;
begin
//нумерацыя ячеек идет с 0
if StringGrid1.Col<StringGrid1.ColCount
   then begin
      StringGrid1.Cells[StringGrid1.Col,0]:=Edit3.Text;
      Edit3.Text:='';
      if StringGrid1.Col+1<StringGrid1.ColCount
         then    Col:=Col+1;
         else     ShowMessage('Закончились ячейки!')
   end;
end;

[Скандербег]

Еще пара вариантов. Страждущий не уточнил что значит в его представлении "последняя ячейка". То ли это последняя ячейка в строке, то ли в таблице, поэтому два варианта: первый, заполнение заканчивается на последней ячейке таблицы, второй, если заполняется последняя ячейка в строке.

{
  with StringGrid1 do begin
    Cells[Col, Row] := Edit1.Text;
    Edit1.Text:='';
    if Col < ColCount-1 then
      Col := Col + 1
    else begin
      Col := 0;
      Row := Row + 1;
      if Row = RowCount - 1 then
        ShowMessage('Закончились ячейки в таблице!');
    end;
  end;
}
  with StringGrid1 do begin
    Cells[Col, Row] := Edit1.Text;
    Edit1.Text:='';
    if Col < ColCount-1 then
      Col := Col + 1
    else
      ShowMessage(''Закончились ячейки в строке!');
  end;

[Квэнди]

if Row < RowCount - 1 then

=>

if Row < RowCount then

[ARXangel]

Большое спасибо всем за помощь!

И еще один вопрос значение самой верхней строки StringGridа, я сохраняю в INI файл, все в принципе работает, только в процессе работы программы могут быть добавлены (или удалены) столбцы. А сохраняет значение только тех ячеек, которые были установлены в Object Inspector.
Подскажите, как сохранять значение и тех, которые были добавлены в процессе выполнения программы?

procedure TForm1.FormCreate(Sender: TObject);

  F.ReadSection('access', StringGrid1.Rows[j]);
  for j:=0 to StringGrid1.ColCount-1 do
    StringGrid1.Cells[j,0]:=F.ReadString('access',StringGrid1.Cells[j,0] ,'');

…

procedure TForm1.FormDestroy(Sender: TObject);
for j:= 0 to StringGrid1.ColCount-1 do
 F.WriteString('access', 'el' + IntToStr(j+1), StringGrid1.Cells[j,0]);

[Скандербег]

Заголовки лучше сохранять не в INI файл. В нем сложно работать с циклами. Здесь что получается. При запуске программы в таблице определенное кол-во колонок, по которому происходит попытка чтения из INI файла только тех, которые на данный момент есть в таблице
(for j:=0 to StringGrid1.ColCount-1 do), а остальные?

Очень просто сохранить заголовочную строку в отдельный файл, а затем прочитать из него:

procedure TForm1.FormCreate(Sender: TObject);
var FN : string;
    SL : TStringList;
begin
  FN := ExtractFilePath(Application.ExeName)+'header.txt';
  if FileExists(FN) then begin
    SL := TStringList.Create;
    SL.LoadFromFile(FN);
    SG.ColCount := SL.Count;
    SG.Rows[0].Assign(SL);
    SL.Free;
  end;
//по заголовкам из файла восстанавливается количество колонок, которое было при сохранении
...
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var FN : string;
begin
  FN := ExtractFilePath(Application.ExeName)+'header.txt';
  StringGrid1.Rows[0].SaveToFile(FN);
end;