如果我新建一个枚举类型
type
str= (JAN,FEB,MAY,APR);
如何根据下标取str的值,如果我新建一个字符串数组str : array[1..12] of string;
怎样初始化
type
str= (JAN,FEB,MAY,APR);
如何根据下标取str的值,如果我新建一个字符串数组str : array[1..12] of string;
怎样初始化
解决方案 »
- FORM.REFERSH到底刷新什么???
- 有关TreeView的问题,怎样实现多选,并且防止子接点与父接点同时被选种
- 用delphi7写一个com,用于实现数据表中的记录输出为Excel文件,如何实现!(急)
- 关于ICON的显示问题?
- ehlib3.2控件中的DBGridEh,如何设置下拉式菜单(类似于COMBOBOX控件的效果)?
- 几个小问题,解决后立即给分。
- 那有图标下啊?~ ~
- 哪位有钱智达的Code Arrange Expert下载网子 For Delphi 5.0的
- 关于HOOK
- 在midas中这样为什么联不上?
- delphi 自己做密码框,如何做出像QQ一样显示圆点?
- if 语句的多条件问题
怎样初始化 str[1]:='JAN';
我用2#的方法报错procedure TForm3.FormShow(Sender: TObject);
var
dataStr : array[1..12] of variant= ('JAN','FEB','MAR','APR','MAY','JUN','JULY','AUG','SEP','OCT','NOV','DECE');
dataStr : array[1..12] of variant= ('JAN','FEB','MAR','APR','MAY','JUN','JULY','AUG','SEP','OCT','NOV','DECE');全局变量
要不
const
dataStr : array[1..12] of variant= ('JAN','FEB','MAR','APR','MAY','JUN','JULY','AUG','SEP','OCT','NOV','DECE');
TMyStr = (msJAN,msFEB,msMAY,msAPR,...,msDEC);//12个const
MyStrArray : array [TMyStr] of string = ('JAN',...,'DEC');//12个
var
I:TMyStr;
begin
I:=Low(TMyStr);
while I<=High(TMyStr) do
if UpperCase(s) = UpperCase(ToStr(TMyStr(I))) then
break;
I:=Succ(I);
end;
if I>High(TMyStr) then
result:=msDEC
else
result:=I;
end;function ToStr(a:TMyStr):string;
begin
result:=MyStrArray[a];
end;
var
I: Integer;
H: Integer;
StrAry: array of string;
begin
H:= Integer(High(TFieldType));
SetLength(StrAry,H + 1);
for I:= 0 to H do
begin
StrAry[I]:= GetEnumName(TypeInfo(TFieldType),I);
end;
end;