各位前輩﹕ 請問我如何想知道Table1的State屬性用如下程式碼有何問題﹕ Label1.Caption:=Table1.State; 字串的問題出在哪里呢﹖請各位前輩指教﹒不甚感激﹗ 努力,相信會獲得美麗! 忻晟

------
忻晟

cashxin2002, 您好 您寫得code就可以得知Table1的State了，只是出現的會是數字。我想這才是您的問題吧？(希望沒有猜錯) >涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 <>是非終日有，不聽自然無 <>天下本無事，庸人自擾之

出現如下錯誤碼﹕ [Error] Unit1.pas(29): Incompatible types: 'String' and 'TDataSetState' 請前輩指教﹒ 努力,相信會獲得美麗! 忻晟

------
忻晟

你好： 如果你是要直接秀出他的值你可以用下面的 Code    used TypInfo    Label1.Caption := GetEnumName (TypeInfo (TDataSetState), Ord (Table1.State));

uses ...,...,TypInfo;

procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
  Label1.Caption := GetEnumName( TypeInfo(TDataSetState)  , Ord(Table1.State));
end;

慢了一步，ha009兄已提出了正解 發表人 -

請參考這兩篇:    http://delphi.ktop.com.tw/topic.php?topic_id=30610 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30630    作法相當類似, 可以使用 RTTI 的方式來處理即可!    你的 case 如下面的程式碼即可處理!!    

    //由列舉轉為字串
function TDataSetStateToStr(FDataSetState: TDataSetState): String;
begin
  Result := GetEnumName( TypeInfo(TDataSetState)  , Ord(FDataSetState));
end;    //測試段:
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(TDataSetStateToStr(dsBrowse));  //檢驗是否可以由 otFirst 轉為 'otFirst'
end;

哈, 大家手腳都好快哦!! 沒想到在回 post 的時候已經出兩篇了呢 發表人 - timhuang 於 2003/06/19 23:06:26

謝謝各位前輩的指教﹒ 因小弟參考松崗陳俊源Delphi6資料庫程式設計一書時發現此問題﹐多日仍不得其解﹐故請教各位前輩﹐總之﹐要謝謝tech_state ha0009 JustMade timhuang前輩們﹒ 努力,相信會獲得美麗! 忻晟

------
忻晟

原來BCB跟Delphi還是有很大的不同的，我在BCB使用沒有這個問題 ================================= <>涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 <>是非終日有，不聽自然無 <>天下本無事，庸人自擾之