Работа с компонентом StringGrid

[nktpk]

Помогите,пожалуйста,с решением данной задачи

Дан двумерный массив (5х5)..Необходимо ввести цифру (0-9) и вставить её перед и после всех элементов массива,которые заканчиваются на эту цифру

[unbanned]

var c:integer; //цифра с клавиатуры
for i:=1 to stringgrid1.ColCount-1 do
for i:=1 to stringgrid1.RowCount-1 do
if copy(stringgrid1.cells[i,j],length(stringgrid1.cells[i,j]),1) =inttostr(c) then stringgrid1.cells[i,j]:=inttostr(c)+stringgrid1.cells[i,j]+inttostr(c);

вот так можно

[nktpk]

unbanned, с помощью твоего метода выполняется только вставка 0 перед и после чисел, заканчивающихся на 0,на другие же числа программа не реагирует и упорно проделывает операцию с 0

[unbanned]

procedure TForm1.Button1Click(Sender: TObject);
var c:integer; //цифра с клавиатуры
    i,j:integer;
begin
{ввод с}
for i:=0 to stringgrid1.ColCount-1 do
for j:=0 to stringgrid1.RowCount-1 do
if copy(stringgrid1.cells[i,j],length(stringgrid1.cells[i,j]),1) =inttostr(c) then stringgrid1.cells[i,j]:=inttostr(c)+stringgrid1.cells[i,j]+inttostr(c);
end;

первый раз код писал в попыхах, без проверки. пардон...

[nktpk]

unbanned,дякую!!