case combobox1.Text of '客戶號碼':combobox1_text:='client_number'; '客戶名稱':combobox1_text:='client_name'; '負責人':combobox1_text:='client_user'; '營業員':combobox1_text:='client_yw'; '客戶電話':combobox1_text:='client_tel1'; '客戶傳真':combobox1_text:='client_fax1'; '客戶地址':combobox1_text:='client_address'; end; 運行時提示 ordinal type required; incompatible types:'integer' and 'string'; ---------------- combobox1.Text本身就是string類型啊,請問該怎樣改,謝謝!! 初學delphi,請各位多多提點!謝謝!

Hi dengguo,    這裡剛剛好有一篇文章，參考一下 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=46698 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

CASE 只支援 INTEGER 跟 CHAR 不支援 STRING -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

引言: case combobox1.Text of '客戶號碼':combobox1_text:='client_number'; '客戶名稱':combobox1_text:='client_name'; '負責人':combobox1_text:='client_user'; '營業員':combobox1_text:='client_yw'; '客戶電話':combobox1_text:='client_tel1'; '客戶傳真':combobox1_text:='client_fax1'; '客戶地址':combobox1_text:='client_address'; end; 運行時提示 ordinal type required; incompatible types:'integer' and 'string'; ---------------- combobox1.Text本身就是string類型啊,請問該怎樣改,謝謝!! 初學delphi,請各位多多提點!謝謝!

發生原因已經由樓上兩位說明, 我提供一個方法 如果像你是使用 combobox的情況其實是可以解決的 case Combobox1.ItemIndex of 0: ... 1: ... 2: ... end; 只要你知道 0,1,2 代表的何值即可

謝謝三位大大....我用P.D的方法已解決問題 初學delphi,請各位多多提點!謝謝!

请问大大有没有字符串向有序数转换的方法，我得很笨（我是用在类里面的） 举个不恰当的例子，希望大大指点  

  FTableNameList := TStringlist.Create;
  TabNum[0] := FTabNameList.Add('s');
  TabNum[1] := FTabNameList.Add('a');
  TabNum[2] := FTabNameList.Add('b');    我是依据数组的序号做的，
  case FTableNameList.IndexOf(Name) of
        0:
          CH := 's;
        1:
          CH := 'a';
        2:
          CH := 'b';     

请问有没有好点的办法？ 谢谢！

引言: 请问大大有没有字符串向有序数转换的方法，我得很笨（我是用在类里面的） 举个不恰当的例子，希望大大指点

  FTableNameList := TStringlist.Create;
  TabNum[0] := FTabNameList.Add('s');
  TabNum[1] := FTabNameList.Add('a');
  TabNum[2] := FTabNameList.Add('b');    我是依据数组的序号做的，
  case FTableNameList.IndexOf(Name) of
        0:
          CH := 's;
        1:
          CH := 'a';
        2:
          CH := 'b';     

请问有没有好点的办法？ 谢谢！

使用 case of 只能遵循它的規定, 似乎別無二法, ~~其實我也很笨, 想不出其他方式!

引言:

引言: 请问大大有没有字符串向有序数转换的方法，我得很笨（我是用在类里面的） 举个不恰当的例子，希望大大指点

  FTableNameList := TStringlist.Create;
  TabNum[0] := FTabNameList.Add('s');
  TabNum[1] := FTabNameList.Add('a');
  TabNum[2] := FTabNameList.Add('b');    我是依据数组的序号做的，
  case FTableNameList.IndexOf(Name) of
        0:
          CH := 's;
        1:
          CH := 'a';
        2:
          CH := 'b';     

请问有没有好点的办法？ 谢谢！

使用 case of 只能遵循它的規定, 似乎別無二法, ~~其實我也很笨, 想不出其他方式!

字串判斷應該用if then吧!? if S="1" then begin //程序一 end else if S="2" then begin //程序二 end else if S="3" then begin //程序三 end else begin //其餘程序!? end;

還有另外一個方法，可以用列舉型態~~~我記得在這裡看過

Hi 各位大大: 另類方法轉貼 http://delphi.about.com/cs/adptips2002/a/bltip0202_5.htm

function StringToCaseSelect(Selector : string; CaseList: array of String): Integer;
var cnt: integer;
begin
   Result:=-1;
   for cnt:=0 to Length(CaseList)-1 do
   begin
     if CompareText(Selector, CaseList[cnt]) = 0 then
     begin
       Result:=cnt;
       Break;
     end;
   end;
end;    {
Usage:    case StringToCaseSelect('Delphi',
      ['About','Borland','Delphi']) of
   0:ShowMessage('You''ve picked About') ;
   1:ShowMessage('You''ve picked Borland') ;
   2:ShowMessage('You''ve picked Delphi') ;
end;
}

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.