 и опять TStringGrid |
ВНИМАНИЕ!
Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.
  |
| marwell |
  7.04.2011 14:40
Сообщение
#1
|
|
Бывалый  Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация:  1   |
Доброго времени суток
Само задание звучит так: Дана таблица целых чисел ai, bi. Выделить цветом все совпадающие пары и максимальную из них, указать позиции. Нашел в инете как выделять цветом только отдельные ячейки, но не уверен что правильно ее применяю. Еще выдает ошибку "Project Projectl.exe raised exception class EConvertError with message'" Is not a valid integer value1. Process stopped. Use Step or Run to continue." Смысл ошибки понимаю, но не вижу в каком месте она появляется, вроде везде правильно работаю с ячейками unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
SG: TStringGrid;
Edit1: TEdit;
procedure FormPaint(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
with SG do begin
cells[0,0]:='N';
cells[0,1]:='ai';
cells[0,2]:='bi';
for i:=1 to ColCount do
cells[i,0]:=IntToStr(i);
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;
begin
SG.ColCount := StrToInt((Sender as TEdit).Text);
for i:=1 to SG.ColCount do
SG.cells[i,0]:=IntToStr(i);
end;
procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i,j,max:integer;
begin
max:=0;
j:=0;
for i:=1 to sg.ColCount-1 do begin
if StrToInt(sg.Cells[i,j+1])=StrToInt(sg.Cells[i,j+2]) then sg.Canvas.Brush.Color:=clRed;
if StrToInt(sg.Cells[i,j])>max then
begin max:=StrToInt(sg.Cells[i,j]);
sg.Canvas.Brush.Color:=clBlue;
end;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2, Rect.Top+2, sg.Cells[i, j]);
sg.Canvas.Brush.Color:=clBlack;
end;
end;
end.
|
   |
 
|
| мисс_граффити |
7.04.2011 17:14
Сообщение
#2
|
 просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
вот здесь с границей массива ошибся:
Цитата for i:=1 to ColCount do cells[i,0]:=IntToStr(i); но это к делу не относится... а вот то, что заполняешь ты там только первую (нулевую) стороку, а потом (сразу же, до того, как пользователь получит возможность что-то ввести) пытаешься работать со всеми - очень даже. вставляй в SGDrawCell обработку исключений или хотя бы проверку на заполненность. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
| volvo |
7.04.2011 17:29
Сообщение
#3
|
|
Гость |
Цитата вот здесь с границей массива ошибся: Где именно? Вообще-то границы грида определяются значениями (0 .. RowCount) по вертикали и (0 .. ColCount) по горизонтали, так что никакой ошибки не будет - все в пределах допустимого. |
|
|
|
| marwell |
7.04.2011 17:38
Сообщение
#4
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
Цитата(мисс_граффити @ 7.04.2011 17:14)  а вот то, что заполняешь ты там только первую (нулевую) стороку, а потом (сразу же, до того, как пользователь получит возможность что-то ввести) пытаешься работать со всеми - очень даже. вставляй в SGDrawCell обработку исключений или хотя бы проверку на заполненность. ...
f:=False;
for t:=1 to 2 do begin
for i:=1 to sg.ColCount-1 do
if sg.Cells[i,t]='' then f:=true;
end;
if f=false then begin
for i:=1 to sg.ColCount-1 do begin
if StrToInt(sg.Cells[i,j+1])=StrToInt(sg.Cells[i,j+2]) then sg.Canvas.Brush.Color:=clRed;
...
если сделать так, будет неправильно? (извиняюсь, исправил, сначала ошибся)Добавлено через 16 мин. и еще, как я понял, вот эта строчка совсем не то что надо в данном случае Canvas.TextOut(Rect.Left+2, Rect.Top+2, sg.Cells[i, j]);
Сообщение отредактировано: marwell - 7.04.2011 17:52 |
|
|
|
| volvo |
7.04.2011 18:23
Сообщение
#5
|
|
Гость |
Цитата если сделать так, будет неправильно? Нет...Смотри. Событие OnDrawCell происходит при перерисовке каждой клетки. То есть, когда ты рисуешь одну клетку, тебе нужно всего навсего проверить ту, которая выше или ниже нее, одинаковый ли текст они содержат: procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
begin
if (ACol > 0) and (ARow > 0) then // Если это условие не выполняется - то вообще ничего не делать
with Sender as TStringGrid do
begin
// Вот оно: проверяем, в текущей клетке не пусто? Нет? Тогда проверяем,
// текущая и та, что выше/ниже (если сейчас рисуется второй ряд, то 3 - 2 = 1,
// значит проверится то, что выше. Иначе: 3 - 1 = 2, проверится вышестоящая клетка)
// содержат одинаковый текст? Можно еще проверить, что там число, но я не стал этого делать
if (Cells[ACol, ARow] <> '') and (Cells[ACol, ARow] = Cells[ACol, 3 - ARow]) then
begin
Canvas.Brush.Color := clRed; // Да, содержимое одинаково, и непустое - красим
Canvas.Pen.Color := clWhite;
end
else
begin
Canvas.Brush.Color := clWhite; // Нет, ячейки либо разные либо пустые. Не красим...
Canvas.Pen.Color := clBlack;
end;
// Собственно, рисуем ячейки и текст в них.
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);
end;
end;
Вот. А теперь - еще кое что: как только ты вводишь информацию в ячейку, тебе надо перекрасить таблицу: во-первых, возможно, пары одинаковых значений больше нет, а во-вторых, максимум мог измениться. Что для этого надо? Я сделал обраотчик события OnSelEditText у грида: procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
begin
// Помечаем грид как невалидный, это приведет к его перерисовке
(Sender as TStringGrid).Invalidate;
end;
Вот в этом же самом событии, OnSelEditText, я бы и находил максимум, индекс макс. элемента, запоминал бы его в переменной, описанной в классе формы (не надо злоупотреблять глобальными переменными, лучше работать с членами класса), а в OnDrawCell добавил бы еще одну проверку: если сейчас рисуется ячейка, индекс ACol которой совпадает с индексом максимума - то рисовать ее не белым и не красным, а, скажем, зеленым... Попробуй это реализовать сам, если что не получится - я помогу. |
|
|
|
| marwell |
7.04.2011 18:26
Сообщение
#6
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
кажется, я начал понимать
...
if f=false then begin
for i:=1 to sg.ColCount-1 do begin
if StrToInt(sg.Cells[i,j+1])=StrToInt(sg.Cells[i,j+2]) then begin sg.Canvas.Brush.Color:=clRed;
sg.Cells[i,j+1]:= sg.Cells[i,j+1];
sg.Cells[i,j+2]:=sg.Cells[i,j+2];
end;
...
содержимое ячеек постоянно перерисовывается, но тем же черным цветом Добавлено через 2 мин. volvo, спасибо большое, буду разбираться |
|
|
|
| marwell |
8.04.2011 12:56
Сообщение
#7
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
добавил
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
SG: TStringGrid;
Edit1: TEdit;
procedure FormPaint(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
procedure SGGetEditText(Sender: TObject; ACol, ARow: Integer;
var Value: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
im,max,i,j:integer;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
var i:integer;
begin
with SG do begin
cells[0,0]:='N';
cells[0,1]:='ai';
cells[0,2]:='bi';
for i:=1 to ColCount do
cells[i,0]:=IntToStr(i);
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
var i:integer;
begin
SG.ColCount := StrToInt((Sender as TEdit).Text);
for i:=1 to SG.ColCount do
SG.cells[i,0]:=IntToStr(i);
end;
procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
begin
if (ACol > 0) and (ARow > 0) then
with Sender as TStringGrid do
begin
if (Cells[ACol, ARow] <> '') and (Cells[ACol, ARow] = Cells[ACol, 3 - ARow]) then
begin
Canvas.Brush.Color := clRed;
Canvas.Pen.Color := clWhite;
end
else
begin
Canvas.Brush.Color := clWhite;
Canvas.Pen.Color := clBlack;
end;
if ACol=im then Begin
Canvas.Brush.Color := clGreen;
Canvas.Pen.Color := clWhite;
end;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);
end;
end;
procedure TForm1.SGGetEditText(Sender: TObject; ACol, ARow: Integer;
var Value: String);
begin
(Sender as TStringGrid).Invalidate;
max:=0;
for j:=2 downto 1 do begin
for i:=1 to sg.ColCount-1 do begin
if (sg.Cells[ACol, ARow] <> '') and (StrToInt(sg.Cells[i,j])>max) and (sg.Cells[i,j]=sg.Cells[i,j+1]) then
begin max:=StrToInt(sg.Cells[i,j]);
im:=i;
end;
end;
end;
end;
end.
Цитата запоминал бы его в переменной, описанной в классе формы (не надо злоупотреблять глобальными переменными, лучше работать с членами класса) переменную im я описал так, как ты сказал? |
|
|
|
| volvo |
8.04.2011 15:38
Сообщение
#8
|
|
Гость |
Цитата переменную im я описал так, как ты сказал? Я имел в виду другое.Смотри: (Показать/Скрыть)
Опять же, я не проверяю, введено ли число, если введешь строку - будет вылет программы, добавь проверку все-таки на численное значение, лучше использовать TryStrToInt вместо StrToInt... В результате получается вот что: Эскизы прикрепленных изображений 
|
|
|
|
| marwell |
8.04.2011 19:10
Сообщение
#9
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
Цитата(volvo @ 8.04.2011 15:38) Я имел в виду другое. Смотри: (Показать/Скрыть)
Опять же, я не проверяю, введено ли число, если введешь строку - будет вылет программы, добавь проверку все-таки на численное значение, лучше использовать TryStrToInt вместо StrToInt... В результате получается вот что: А как работает TryStrToInt? (никогда прежде не сталкивался с ним) |
|
|
|
| volvo |
8.04.2011 19:35
Сообщение
#10
|
|
Гость |
var
value : Integer;
// ...
if TryStrToInt(Cell[i, 1], value) then
begin
// Все нормально, конвертация была успешной, в Value содержится число, можно его использовать
end
else // Упс... Строка не сконвертировалась в число, Value использовать нельзя... Можно сообщить об ошибке
|
|
|
|
| marwell |
8.04.2011 19:46
Сообщение
#11
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
Цитата(volvo @ 8.04.2011 19:35) var
value : Integer;
// ...
if TryStrToInt(Cell[i, 1], value) then
begin
// Все нормально, конвертация была успешной, в Value содержится число, можно его использовать
end
else // Упс... Строка не сконвертировалась в число, Value использовать нельзя... Можно сообщить об ошибке
теперь понятно. Спасибо огромное, завтра попробую дописать с учетом всех поправок |
|
|
|
| marwell |
10.04.2011 18:44
Сообщение
#12
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
с TryStrToInt у меня проблема,никак не получается вставить его в нужное место, и так пробую, и эдак
 А не проще ли использовать OnKeyPress и просто запретить ввод остальных символов, кроме чисел? |
|
|
|
| volvo |
11.04.2011 13:00
Сообщение
#13
|
|
Гость |
Цитата А не проще ли использовать OnKeyPress и просто запретить ввод остальных символов, кроме чисел? Это уж тебе решать, может оно и проще, а может и не совсем... Но в использовании TryStrToInt ничего сложного не вижу. Вот так, например:procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
var
i : integer;
IntValue : Integer; // <--- Раз ...
begin
max_index := -1;
with Sender as TStringGrid do
begin
// Проходим по всем ячейкам, и смотрим, равные ли значения в [, 1] и [, 2],
// и не пустые ли они. В общем, все, как и выше.
for i := 1 to ColCount do
if (Cells[i, 1] <> '') and (Cells[i, 1] = Cells[i, 2]) and TryStrToInt(Cells[i, 1], IntValue) then // <--- Два ...
begin
if max_index = -1 then // Если это первое непустое значение - то начинаем отсчет с него
max_index := i
else
// Если нет - то сравнваем с предыдущим максимумом...
if IntValue > StrToInt(Cells[max_index, 1]) then // <--- Три ...
max_index := i;
end; // if Cells ...
Invalidate; // <--- Ну, и перерисовываем...
end;
end;
, теперь даже если ты введешь не число (или число, но не целое, а вещественное), ничего страшного в этом обработчике не случится, все нецелые просто не будут обрабатываться (максимум среди них не будет искаться). Сделай что-то подобное в OnDrawCell - и можешь быть спокоен: вылетов не будет... |
|
|
|
| мисс_граффити |
11.04.2011 14:30
Сообщение
#14
|
|
просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
Цитата(volvo @ 7.04.2011 18:29) Где именно? Вообще-то границы грида определяются значениями (0 .. RowCount) по вертикали и (0 .. ColCount) по горизонтали, так что никакой ошибки не будет - все в пределах допустимого. не поняла... кидаю на форму грид. свойства даже не трогаю. colcount=5, rowcount=5 (по умолчанию). считаю: 5 строк, 5 столбцов. то есть номера 0,1,2,3,4. где пятый столбец и пятая строка? зачем в такие "невидимые" ячейки заголовок выводить? делаю StringGrid1.Cells[5,5]:='5';
ошибки не возникает, но и не появляется эта надпись нигде. аналогичная реакция на обращение к [7, 7]. Более того: в результате выполнения: StringGrid1.Cells[7,7]:='7';
ShowMessage(StringGrid1.Cells[7,7]);
показывается '7'... никаких ошибок. -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
| marwell |
11.04.2011 19:01
Сообщение
#15
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
Цитата(volvo @ 11.04.2011 13:00) Это уж тебе решать, может оно и проще, а может и не совсем... Но в использовании TryStrToInt ничего сложного не вижу. Вот так, например: procedure TForm1.SGSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
var
i : integer;
IntValue : Integer; // <--- Раз ...
begin
max_index := -1;
with Sender as TStringGrid do
begin
// Проходим по всем ячейкам, и смотрим, равные ли значения в [, 1] и [, 2],
// и не пустые ли они. В общем, все, как и выше.
for i := 1 to ColCount do
if (Cells[i, 1] <> '') and (Cells[i, 1] = Cells[i, 2]) and TryStrToInt(Cells[i, 1], IntValue) then // <--- Два ...
begin
if max_index = -1 then // Если это первое непустое значение - то начинаем отсчет с него
max_index := i
else
// Если нет - то сравнваем с предыдущим максимумом...
if IntValue > StrToInt(Cells[max_index, 1]) then // <--- Три ...
max_index := i;
end; // if Cells ...
Invalidate; // <--- Ну, и перерисовываем...
end;
end;
, теперь даже если ты введешь не число (или число, но не целое, а вещественное), ничего страшного в этом обработчике не случится, все нецелые просто не будут обрабатываться (максимум среди них не будет искаться). Сделай что-то подобное в OnDrawCell - и можешь быть спокоен: вылетов не будет...именно в OnDrawCell я и пытался сделать. Я рассуждал так: сначала надо проверить, введено ли вообще значение далее уже проверить, число ли это потом уже остальные условия из OnDrawCell(проверка равны ли значения во 2ой и 3ей строке, проверка на максимальную пару) procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
var IntValue : Integer;
begin
if (ACol > 0) and (ARow > 0) then
with Sender as TStringGrid do
begin
if (Cells[ACol, ARow] <> '') then
begin
if TryStrToInt(Cells[i, 1], IntValue) then
begin
if Cells[ACol, ARow] = Cells[ACol, 3 - ARow] then
begin
Canvas.Brush.Color := clRed;
Canvas.Font.Color := clWhite;
end
else
begin
Canvas.Brush.Color := clWhite;
Canvas.Font.Color := clBlack;
end;
if ACol = im then
begin
Canvas.Brush.Color := clGreen;
Canvas.Font.Color := clWhite;
end;
Canvas.fillRect(Rect);
Canvas.TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow]);
end
else MessageDLG('Ошибка! Введено не число!',mtError,[mbOK],0);
end;
end;
end;
но, что-то я делаю не так |
|
|
|
| volvo |
11.04.2011 20:09
Сообщение
#16
|
|
Гость |
Я в твоем коде вижу несколько недочетов:
|
|
|
|
| marwell |
11.04.2011 20:37
Сообщение
#17
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
Цитата Ветка else, где выводится MessageDlg, относится к самому первому If-у, так? ээ, черт, что-то я совсем того ... вот даже сейчас смотрю, и мне кажется что эта ветка относится сюда  ...
if TryStrToInt(Cells[i, 1], IntValue) then
...
видать надо выспаться |
|
|
|
| volvo |
11.04.2011 22:16
Сообщение
#18
|
|
Гость |
Цитата видать надо выспаться Надо просто лучше форматировать код. Считать end-ы не доставляет большого удовольствия...В любом случае, лучше не выводить сообщения о нецелых, да еще и при отрисовке ячеек. Причину я озвучил выше. |
|
|
|
| marwell |
12.04.2011 15:49
Сообщение
#19
|
|
Бывалый Группа: Пользователи Сообщений: 198 Пол: Мужской Репутация: 1 |
volvo ,спасибо за помощь
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 11:51 |