Одинаковые числа

[artemavd]

Добрый день! Подскажите пожалуйста как сделать так, чтобы в заполненном стринг гриде цифрами, я мог выбрать два любых числа и если они одинаковые, то они удалялись бы в тот момент, когда я выбрал второе число. Как это можно сделать? Заранее Спасибо за помощь. Хочу написать одну программку и хочу начать с этого)

[Arigato]

1. Заводим переменные OldVal: string = ""; OldX, OldY: Integer;
2. На событии OnСlick StringGrid:
a. Если OldVal <> "" и OldVal = значению текущей ячейки, то очищаем её и ячейку с координатами (OldX, OldY).
б. Присваиваем OldVal значение текущей ячейки, OldX, OldY - координаты текущей ячейки.
3. goto 2

[artemavd]

Arigato, я попробовал записать то, что Вы написали вот так:

procedure TForm1.SG1Click(Sender: TObject);
var
 OldVal: string;
 OldX, OldY: integer;
begin
 OldVal:='';
 if (OldVal <> '') and (OldVal = SG1.Cells[OldX,OldY]) then
   begin
    OldVal:=SG1.Cells[OldX,OldY];
   end;
end;

но ничего не происходит(. По любому я что-то неправильно понял и записал. Подправьте пожалуйста там, где я ошибся). Цель: по нажатию на какие-то ячейки в таблице, удалять два числа, находящиеся в выбранных ячейках, если они равны друг другу. Или любые числа. Вот)

[Arigato]

Переменные OldVal, OldX, OldY должны быть глобальными.
А дальше Вы все напутали очень сильно.
SG.Row - выбранная строка.
SG.Col - выбранная колонка.
Это и будут координаты текущей ячейки. Ещё раз перечитайте мой предыдущий пост.

[artemavd]

Arigato, че то мудрил мудрил, но так и не смекетел((. Помогите плиз. Подправьте пжлста код, который я написал выше. Очешь надо. Не получается у меня. Не могу понять в вашем посте №2 пункт №2((.

[artemavd]

Arigato, че то мудрил мудрил я, но так и не смекетел((. Помогите плиз. Подправьте пжлста код, который я написал выше. Очешь надо. Не получается у меня. Не могу понять в вашем посте №2 пункт №2((.

[mihali4]

Вот так попробуйте:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
if OldValue<' ' then //меньше пробела
OldVal:=StringGrid1.Cells[ACol,ARow] else
if OldVal=StringGrid1.Cells[ACol,ARow] then
StringGrid1.Cells[ACol,ARow]:='';
end;

[Arigato]

mihali4
По задачи ТС надо очистить 2 ячейки, т.е., во-первых, надо запомнить координаты прошлой ячейки, а во-вторых, присвоить OldVal := '' после очистки ячеек.

[mihali4]

Это тоже мне добавить? Или дадим топикстартеру возможность "раскинуть мозгами"?

[Arigato]

Я ему эту возможность с самого начала даю, но он

Arigato, че то мудрил мудрил я, но так и не смекетел((