StringGrid и подсчет одинаковых значений в строке

@tuppy · Регистрация: 16.04.2015

Студворк — интернет-сервис помощи студентам

Добрый день!
У меня стоит задача примерно такая:
1. в первой строке StringGrid1 кликаю правой кнопкой мыши по ячейке и записываю в нее значение
2. если это "УП", то в ячейке StringGrid2 [1,1] появляется 1-ца
3. если "УП" во всем StringGrid1 я натыкала 5, то в в ячейке StringGrid2 [1,1] появляется 5
4. если я где-нибудь ее стерла, то в ячейке StringGrid2 [1,1] появляется 4
5. если я ввела например "ПП", то допустим в StringGrid2 в ячейке [2,1] появляется 1-ца
6. если все тоже самое ввела во второй строке StringGrid1, то количество одинаковых значений уже выводится в
StringGrid2 [2,1] и [2,2] соответственно
и т.д.

У меня есть код, но что то не выходит.. не подскажете в чем ошибка?
может я вообще что то не так делаю..

Delphi

var
i,j:integer;
s:string;
begin
 for i:=1 to stringgrid1.colcount-9 do
 for j:=1 to stringgrid1.rowcount-1 do
    s:=s+stringgrid1.cells[i,j];
for i:=1 to length(s) do
 begin
  if(s[i]='УП') then stringgrid2.cells[1,1]:=IntToStr(StrToInt(stringgrid1.cells[i,1])+1);
  if(s[i]='ПП') then stringgrid2.cells[2,1]:=IntToStr(StrToInt(stringgrid1.cells[i,1])+1);
 end;

@Кривокодер · 21.05.2015, 15:53

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

Delphi

1 2	if(s[i]='УП') then stringgrid2.cells[1,1]:=IntToStr(StrToInt(stringgrid1.cells[i,1])+1); if(s[i]='ПП') then stringgrid2.cells[2,1]:=IntToStr(StrToInt(stringgrid1.cells[i,1])+1);

Ошибка, надо не cells[i,1], а cells[1,1]:

Delphi

1 2	if(s[i]='УП') then stringgrid2.cells[1,1]:=IntToStr(StrToInt(stringgrid1.cells[1,1])+1); if(s[i]='ПП') then stringgrid2.cells[2,1]:=IntToStr(StrToInt(stringgrid1.cells[2,1])+1);

@tuppy · 21.05.2015, 16:02 **[ТС]**

так тоже делала.. все равно не срабатывает почему то

@Кривокодер · 21.05.2015, 16:05

Ещё одна опечатка: stringgrid2, а не stringgrid1:

Delphi

1 2	if(s[i]='УП') then stringgrid2.cells[1,1]:=IntToStr(StrToInt(stringgrid2.cells[1,1])+1); if(s[i]='ПП') then stringgrid2.cells[2,1]:=IntToStr(StrToInt(stringgrid2.cells[2,1])+1);

Добавлено через 53 секунды
и ещё не s:=s+stringgrid1.cells[i,j];, а

Delphi

1	s:=s+stringgrid1.cells[i,j]+#13#10;

@tuppy · 21.05.2015, 16:09 **[ТС]**

все равно не выводит(

@Immo · 21.05.2015, 16:38

как 1 символ может быть равен двум?

Delphi

s[i]='УП'

Добавлено через 9 минут

Delphi

var
i,j:integer;
s:TStringList;
begin
s:=TstringList.Create;
 for i:=1 to stringgrid1.colcount-9 do
 for j:=1 to stringgrid1.rowcount-1 do
    s.add(stringgrid1.cells[i,j]);
for i:=0 to s.count-1 do
 begin
  if(s.strings[i]='УП') then stringgrid2.cells[1,1]:=IntToStr(StrToInt(stringgrid1.cells[i,1])+1);
  if(s.strings[i]='ПП') then stringgrid2.cells[2,1]:=IntToStr(StrToInt(stringgrid1.cells[i,1])+1);
 end;
FreeAndNil(s)

@tuppy · 21.05.2015, 17:05 **[ТС]**

теперь получается так.. если есть например в одной ячейке значение УП или ПП, то во второй грид выдается значение 2, если же заполнены несколько ячеек то ошибка: is not a valid integer value

@Immo · 21.05.2015, 17:51

Delphi

  var
  COUNTYP,COUNTPP,i,j:integer;
  begin
   for i:=0 to stringgrid1.colcount-1 do begin
     COUNTYP:=0;
     COUNTPP:=0;
   for j:=0 to stringgrid1.rowcount-1 do begin
      if StringGrid1.Cells[j,i]='УП' then
        inc(COUNTYP);
      if StringGrid1.Cells[j,i]='ПП' then
        inc(COUNTPP);
 
      if j=stringgrid1.rowcount-1 then begin
          stringgrid2.Cells[0,i]:=inttostr(COUNTYP);
          stringgrid2.Cells[2,i]:=inttostr(COUNTPP);
      end;
   end;
 end;
end;

@tuppy · 21.05.2015, 19:05 **[ТС]**

Вы меня извините, но видимо эта процедура меня не любит... работает, но не верно

@Immo · 21.05.2015, 19:17

Все работает, в 1 стрингрид пишешь УП и ПП куда хочешь, во второй она выведе сколько их на той или иной строчке, обязательно большими буквами

@tuppy · 21.05.2015, 19:42 **[ТС]**

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

Добавлено через 11 минут
Я не знаю что за мистика.. но заработало! Спасибо за терпение и помощь

@tuppy 0 / 0 / 0 Регистрация: 16.04.2015 Сообщений: 6
	21.05.2015, 16:02 [ТС]	3
	так тоже делала.. все равно не срабатывает почему то 0

@tuppy 0 / 0 / 0 Регистрация: 16.04.2015 Сообщений: 6
	21.05.2015, 16:09 [ТС]	5
	все равно не выводит( 0

@tuppy 0 / 0 / 0 Регистрация: 16.04.2015 Сообщений: 6
	21.05.2015, 17:05 [ТС]	7
	теперь получается так.. если есть например в одной ячейке значение УП или ПП, то во второй грид выдается значение 2, если же заполнены несколько ячеек то ошибка: is not a valid integer value 0

@tuppy 0 / 0 / 0 Регистрация: 16.04.2015 Сообщений: 6
	21.05.2015, 19:05 [ТС]	9
	Вы меня извините, но видимо эта процедура меня не любит... работает, но не верно 0

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,738
	21.05.2015, 19:17	10
	Все работает, в 1 стрингрид пишешь УП и ПП куда хочешь, во второй она выведе сколько их на той или иной строчке, обязательно большими буквами 1

@tuppy 0 / 0 / 0 Регистрация: 16.04.2015 Сообщений: 6
	21.05.2015, 19:42 [ТС]	11
	он считает если они рядом и начало ведется с первой ячейки.. а если после ячеек с этим значением есть пустые или с другим обозначением, то он перестает считать.. Добавлено через 11 минут Я не знаю что за мистика.. но заработало! Спасибо за терпение и помощь 0

StringGrid и подсчет одинаковых значений в строке

Решение