Проблема со StringGrid. Не работает код.

[-=aHTPoПоС=-]

Привет всем) В общем у меня ситуация такая: нужно у 10 русских фамилий сделать 1-ю букву заглавной, а остальные строчными. Задача на цикл, поэтому 10 Edit'ов делать нельзя. Вот я и решил для упрощения сделать в StringGrid, в котором сделал 1 столбик и 10 строк:

procedure TForm1.Button1Click(Sender: TObject);
begin
  for i:=1 to 10 do
  begin
    t:=copy(StringGrid1.Cells[1,i],1,1);
    t:=AnsiUpperCase(t);
    s:=StringGrid1.Cells[1,i];
    delete(s,1,1);
    s:=AnsiLowerCase(s);
    StringGrid1.Cells[1,i]:=t+s;
  end;
end;

задача вроде простая, но данный код не работает. Ошибок нет, но при нажатии на кнопку просто ничего не происходит. Что это?О_о. Заранее спасибо)

[Stilet]

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

var i:integer;e,s:string;
begin
 for i:=1 to StringGrid1.RowCount-1 do
  begin
    s:=StringGrid1.Cells[1,i];
    if length(s)=0 then Continue;
    e:=AnsiUpperCase(s[1]);
    s:=AnsiLowerCase(s);
    s[1]:=e[1];
    StringGrid1.Cells[1,i]:=s;
  end;
end;

[-=aHTPoПоС=-]

Не работает((

[Stilet]

У меня все работает ))

[-=aHTPoПоС=-]

Как то странно((((

[-=aHTPoПоС=-]

Блин, я на 2-х компах попробовал, нигде не работает.Программы запускается на выполнение но просто ничего не делает((( Это не может быть из-за свойств StringGrid каких нибудь?

[quit]

скиньте весь код! Откуда у вас берутся фамилии?

[-=aHTPoПоС=-]

ААааааа)))))) Я сделал это!!!!!! Теперь только дошло, что в StringGrid столбцы и строки начинают нумероваться с 0 а не с 1))))))) Там просто надо было единички на 0 переправить!!!!!!.Во я ламер)))

[quit]

Сообщение от -=aHTPoПоС=-

ААааааа)))))) Я сделал это!!!!!! Теперь только дошло, что в StringGrid столбцы и строки начинают нумероваться с 0 а не с 1))))))) Там просто надо было единички на 0 переправить!!!!!!.Во я ламер)))

тогда ясно молодец, что разобрался.

[-=aHTPoПоС=-]

Спасибо вам парни за помощь и поддержку))))