這個程式還沒寫完不過在有用到temp的地方怪怪的 請問一下該怎麼改 如果把有temp那2行拿掉下面的複製可以直接複製過去 可是多了那2行判斷就不會複製了... 請各位大大幫幫忙謝謝^^~ 對了突然想到還有2個小問題就是 假設說有個字串1000 可以直接把它當成hex的值嗎就是1000h 不然用IntToHex(StrToInt(1000))這樣他的值就不是1000了 還有假設在StringGrid中有一個StringGrid.Cells[Y,X]內容是AAA 那我要怎麼在另一個COLLEN中找相同內容的位址(假設知道COLLEN要找ROW的值)

procedure TForm2.Button4Click(Sender: TObject);
Var
  X:Integer;
  START,WORD,BYTE,RESW,RESB,temp:string;
begin
  X := 0;
  While X < RowCount Do
    Begin
      temp := stringgrid1.Cells[4,X];
      If temp = 'START' then     //問題出在這行可是不知道怎麼改
      Begin
        Stringgrid1.Cells[1,X 1] := Stringgrid1.Cells[4,X];
      End;
      inc(X);
    End;
end;

發表人 - 心情之風 於 2005/05/18 08:50:01

那行應該是 While X < stringgrid1.RowCount Do PS: 建議程式碼的上下加上 [ code ] 和 [/ code ], 有排版看的比較舒服 ( [ 和 code 和 ] 間沒有空隔 ) ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

喔喔那個ROWCOUNT是我設的全域變數忘嚕說.... 重點在這行這行加進去就跑不出來嚕ˊˇˋ=>If temp = 'START' then 拜託幫幫忙嚕

1. 用inttoHex 2. Cells[ACol, ARow: Integer] 你好像顛倒。 請將 X,Y 位置對調 3. If temp = 'START' then 要看該Cells 內是否有值，才成立。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

引言: 1. 用inttoHex 2. Cells[ACol, ARow: Integer] 你好像顛倒。 請將 X,Y 位置對調 3. If temp = 'START' then 要看該Cells 內是否有值，才成立。 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

對不起...你很像會錯意嚕 1.有個"字串"1000 我是想問...如何把這個字串當成16進位的 因為inttohex他會把1000當成10進位在轉成16進位 發表人 - 心情之風 於 2005/05/18 10:45:45

還有假設在StringGrid中有一個StringGrid.Cells[Y,X]內容是AAA 那我要怎麼在另一個Column中找相同內容的位址 ##假設知道Column要找ROW的值 用 StringGrid1.Cols[4].IndexOf('START') 回傳就是 Row 值 ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～

1.HexToBin(A,B,Size); "01234567" -> "67452301" 故 "1000" 要轉為 "0010"他就可以轉為$1000了~(要自己轉換字串) 2.自己寫函數,轉換.