StringGrid

[Devikss]

Добрый День

В компоненте StringGrid есть 5 строк и 4 столбца. В каждой ячейке забита информация и в кадой ячейке в конце стоит символ * , нужно эти символы все поудалять. Как это реализовать помогите пожалуйста

[N!ckeL]

var
i, i1:integer;
begin
for i:=0 to 5 do
begin
for i1:=0 to 4 do
begin
if StringGrid1.cels[i, i1]='*' then StringGrid1.cels[i, i1]:=''
end;
end;
end;

[eoln]

for i :=0 to StringGrid1.rowcount -1 do 
  for j :=0 to StringGrid1.colcount -1 do 
    StringGrid1.cells[i,j] := copy(StringGrid1.cells[i,j], 1, length(StringGrid1.cells[i,j]))

[N!ckeL]

for i :=0 to StringGrid1.rowcount -1 do
for j :=0 to StringGrid1.colcount -1 do
StringGrid1.cells[i,j] := copy(StringGrid1.cells[i,j], 1, length(StringGrid1.cells[i,j]))

sorry, не правильно понял вопрос..

[SunKnight]

Умеете работать с массивами? ТАк вот, StringGrid представляет собой 2-у мерный массив.

for i:=0 to StringGrid.RowCount-1 do//строки
begin
for j:=0 to StringGrid.ColCount-1 do//столбцы
StringGrid1.cells[i,j] := copy(StringGrid1.cells[i,j], 1, length(StringGrid1.cells[i,j]));
end;

Вроде так.

[Devikss]

Вот пример

1* Мишкин* Михаил*
2* Сергееев* Сергей*

А нужно:


1 Мишкин Михаил
2 Сергееев Сергей

[eoln]

Упс...
Заменить

StringGrid1.cells[i,j] := copy(StringGrid1.cells[i,j], 1, length(StringGrid1.cells[i,j]))

на

StringGrid1.cells[i,j] := copy(StringGrid1.cells[i,j], 1, length(StringGrid1.cells[i,j])-1)

[Devikss]

Спасибо большое

[Alter]

procedure TForm1.Button1Click(Sender: TObject);
Var C, R :Byte;
    S :string;
begin
 For C:=0 To 4 Do
 For R:=0 To 5 Do
 begin
  S := StringGrid1.Cells[C, R];
  IF Pos('*', S)=Length(S) Then
  begin
   Delete(S, Pos('*', S), 1);
   StringGrid1.Cells[C, R] := S;
  end;
 end;
end;