[klarkuklary]

Добрый вечер!!

Столкнулся с такой проблемой. Необходимо заменить запятую на точку в стринггриде перед экспортом в эксель. Понимаю что нужен цикл, но что то не получается

Код:

.var
i,j:integer;
begin
for i:=1 to StringGrid1.RowCount-1 do
for j:=1 to StringGrid1.ColCount-1 do
if pos(',', StringGrid1.cells[j,i])>0
then  StringGrid1.row:=i; stringgrid1.Col:=j;\\ выдает ошибку

end;

[M.A.D.M.A.N.]

StringReplace(...)
Кста, это че такое?

Код:

if pos(',', StringGrid1.cells[j,i])>0
then  StringGrid1.row:=i; stringgrid1.Col:=j;\\ выдает ошибку

Нащайникамана, этомана джумшут ощумелама рущькамана

Код:

  StringGrid1.cells[j,i] := StringReplace(StringGrid1.cells[j,i], ',', '.', [rfReplaceAll]);

[klarkuklary]

Сообщение от M.A.D.M.A.N.

StringReplace(...)
Кста, это че такое?

Код:

if pos(',', StringGrid1.cells[j,i])>0
then  StringGrid1.row:=i; stringgrid1.Col:=j;\\ выдает ошибку

это мой нерабочий вариант нахождения запятой(((

[klarkuklary]

Сообщение от M.A.D.M.A.N.

StringReplace(...)
Кста, это че такое?

Код:

if pos(',', StringGrid1.cells[j,i])>0
then  StringGrid1.row:=i; stringgrid1.Col:=j;\\ выдает ошибку

Нащайникамана, этомана джумшут ощумелама рущькамана

Код:

  StringGrid1.cells[j,i] := StringReplace(StringGrid1.cells[j,i], ',', '.', [rfReplaceAll]);

Фатальные ошибки отступили, но вот менять запятую на точку никак не хочет просто ничего не происходит! Фокусируется стринггрид и ничего((((

[M.A.D.M.A.N.]

Поставь бряк, посмотри, что там происходит.

[klarkuklary]

Сообщение от M.A.D.M.A.N.

Поставь бряк, посмотри, что там происходит.

Извинюсь за вопрос но где находится этот бряк???

[ApxaHGe1]

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

Извинюсь за вопрос но где находится этот бряк???

f5 на строке

[klarkuklary]

Можно ли как нибудь сохранить его лог? Все то что я понял что у меня 27 строк и 3 столбца и фокус находится по адрессу[28,28]

[klarkuklary]

Всем огромное спасибо!!! Из за 5 часовых раздумий банально забыл про

Код:

for i:=1 to StringGrid1.RowCount-1 do
  For j:=1 to StringGrid1.ColCount-1 do