Задача со StrinGrid-ом

[artemavd]

Добрый день! Столкнулся с такой задачкой. Пишу, что-то наподобие классного журнала и нужна ваша помощь. Всем известно, что в журнале ставится дата и полученная учеником оценка в этот день. Дни могут стоять разные. От даты я не завишу. Так вот, пусть, например, даты стоят следующие: 1.09 4.09. Под ними оценки 4 5. И вот, учитель ставит в следующей ячейке I, что означает конец первой четверти. Мне нужно, чтобы считалось количество каждого вида оценок (пятерок, четверок, троек, двоек, н-ок) до символа I. Код подсчета у меня есть. А потом, нужно, чтобы при следующем обсчете все виды оценок считались уже после I, а цифры до I в расчет не брались. Предполагал сделать как-то так:

procedure TForm8.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=4 to 100 do
  begin
     if Form8.StringGrid1.Cells[i,0] = 'I' then
        begin
            //тут код сложения
         end;
  end;
end;

Будет ли этот код работать так, чтобы была решена моя задача?

[psycho-coder]

Будет... До первого вхождения "I"

[Stilet]

А потом, нужно, чтобы при следующем обсчете все виды оценок считались уже после I,

Ну так проходи начиная с конца вверх до первой снизу I. и считай.

P.S. ИМХО - БД здесь лучший выход.

[artemavd]

Будет... До первого вхождения "I"

"I" и будет только один раз появляться. Потом будет II, III, IV и Год. Вопрос в том, как сделать, чтобы брались только те значения, которые стоят после I, а потом и после II и т.д. Может какое-то условие добавить надо?

P.S. ИМХО - БД здесь лучший выход.

Каким образом ее сюда сделать? Для чего?)

[Stilet]

Может какое-то условие добавить надо?

Например от нечисла до следующего нечисла

Для чего?)

Смеешся??? Например каждую четверть в отдельную таблицу.
Я свой курсач - журнал классный делал в БД.

[artemavd]

Например от нечисла до следующего нечисла

Можешь помочь кусочком кода?

Например каждую четверть в отдельную таблицу.

Хорошо, подумаю над этим .

[Stilet]

Можешь помочь кусочком кода?

Теоретически: Допустим у тебя есть число n - строка, которая идет первая после некой ячейки с нечислом, тогда проходя по строкам, и пытаясь их конвертировать в число до первой ошибки, которая будет означать что это не число, ты получишь цикл от нечисла до нечисла. В нем и проводи нужные действия

 i:=n; while (i<StringGrid1.RowCount)and
  (TryStrToInt(StringGrid1.Cells[0,i],k)) do inc(i);

[artemavd]

Допустим у тебя есть число n - строка, которая идет первая после некой ячейки с нечислом, тогда проходя по строкам,

У меня всего будет одна строка. Количество колонок будет с 4 по 100. Строка одна. Что-то я, уважаемый Stilet, твой код не понял....

Мой вариант кода:

procedure TForm8.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=4 to 100 do
  begin
     if Form8.StringGrid1.Cells[i,0] = 'I' then
        begin
            //тут код сложения
         end;
  end;
end;

не работает как надо (. Stilet, как ты решил этот вопрос в своей задаче? Если он стоял перед тобой такой вопрос.

[Stilet]

твой код не понял

Смысл моего кода в том чтобы пройтись по ячейкам, пока в очередной ячейке ее содержимое не сможет сконвертироваться в число - на этой ячейке и бует конец счета

[quit]

var
  i, tmpint: integer;
begin
  tmpint := 0;
  for i:=4 to 100 do
  begin
       if TryStrToInt(StringGrid1.Cells[i,0],tmpint) then
       begin
       //твой код
       end;
  end;
end;

БД спасет тебя от такого Г...