type
TDatabaseType
= (dbtMSSQL, dbtOracle, dbtCUBRID, dbtSybase, dbtNone);
TDatabaseSet = set of TDatabaseType;
const
StrDatabaseNames : array[TDatabaseType] of String
= ('MSSQL', 'Oracle', 'CUBRID', 'Sybase', 'None');
| 함수 | 내용 |
| Typeinfo | 열거형의 형정보(TypeInfo)에 대한 포인터 반환 |
| GetEnumName | 열거형의 각 멤버를 문자열로 반환 |
| GetEnumValue | |
| Ord | |
| Pred | |
| Succ | |
| Dec | |
| Inc | |
| Low |
procedure TForm1.Button1Click(Sender: TObject);
var
DatabaseType : TDatabaseType;
begin
// GetEnumValue : String to Enum
DatabaseType := TDatabaseType(GetEnumValue(TypeInfo(TDatabaseType), 'dbtOracle'));
// GetEnumName : Enum to String
ShowMessage(GetEnumName(TypeInfo(TDatabaseType), Ord(DatabaseType))); // dbtOracle
// Ord
ShowMessage(IntToStr(Ord(dbtOracle))); // 1
// Dec
Dec(DatabaseType);
ShowMessage(GetEnumName(TypeInfo(TDatabaseType), Ord(DatabaseType))); // dbtMSSQL
// Inc
Inc(DatabaseType);
ShowMessage(GetEnumName(TypeInfo(TDatabaseType), Ord(DatabaseType))); // dbtOracle
// Low, High / Loop
for DatabaseType := Low(TDatabaseType) to High(TDatabaseType) do
ShowMessage(GetEnumName(TypeInfo(TDatabaseType), Ord(DatabaseType)));
end;
Delphi Set배열
uses
TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
var
i : TDBObjectType;
begin
for i in UniSQLObjectSet[DBVer_CUBRID] do begin
Memo1.Lines.Add('i=' + GetEnumName ( TypeInfo ( TDBObjectType ), Ord(i) ) );
end;
end;
- end -