若有string grid 18*18，假設string grid 的每一個cell 只可入一個英文字母，請問如何check到user enter了什麼字(比如user在cell[1,0],cell[1,1],cell[1,2],cell[1,3],cell[1,4],cell[1,5],入了's''h''a''r''o''n')和在label1上顯示出來呢(顯示'sharon')? 發表人 - turbocks 於 2005/01/12 14:39:46

Hi turbocks,

procedure TForm1.Button1Click(Sender: TObject);
var
  I,J : Integer;
  S : String;
begin
  For i := 0 to StringGrid1.RowCount - 1 do
    begin
      S := '';
      for j := 0 to StringGrid1.ColCount - 1 do
        begin
          S := S   StringGrid1.Cells[j,i];
        end;
      ShowMEssage(S);
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Thanks a lot

One more question, 若有string grid 18*18，假設string grid 的每一個cell 只可入一個英文字母，請問如果在edit 1上入了gene, 如何可以將之放入string grid 上(比如: cell[5,1] = g, cell[5,2] = e, cell[5,3] = n, cell[5,4] = e) 發表人 - turbocks 於 2005/01/12 18:02:07