`在SQL数据库表Pri中,有一权限字段Privilege,是Text类型的,其值可表示为SM_insert,SM_delete...SM_insert为操作权限,权限之间用,隔开,现在我要讲其取出来,select privilege from pri where,但是我怎么将SM_Insert等权限分离出来,存储到数组中去,请帮忙 !!
解决方案 »
- 求助,关于系统的录音通道选择,自己参照VC的类写的。好象有点问题,进来看看
- 如何在treeview里面增加一个header像listview那样?
- delphi 中 query 设置SQL语句的问题,请高手帮忙~!!
- 关于使用TServerSocket控件进行多线程通信的问题
- 动态加控件,在线等待!
- 我已经有了另外一个程序的窗口的handle ,请问我该用什么函数知道那个窗口是否隐藏,谢谢
- 请专家帮忙?转存导入表的简单问题
- 我的dataset记录集循环为什么结束不了?????
- 某机器硬盘上有1000首MTV,请问怎么把它们分别送到各个卡啦OK包厢去?(内还有,必给分)
- 哪里能找到D5的升级包?Inprise的FTP太太太慢了!
- 有没有一个属性设置EDIT控件为灰色只读无焦点,不用分别设置
- 请网管别删!今年高程有人泄密不公平呀!谁能告诉我为什么会这样!
var
Pos: Integer;
Field: String;
begin
Pos := 1;
while Pos <= Length(FieldNames) do
begin
Field := ExtractFieldName(FieldNames, Pos);
if Assigned(Fields) then Fields.Add(Field);
end;
end;
function ExtractFieldName(const Fields: string; var Pos: Integer): string;
var
I: Integer;
begin
I := Pos;
while (I <= Length(Fields)) and (Fields[I] <> ';') do Inc(I);
Result := Trim(Copy(Fields, Pos, I - Pos));
if (I <= Length(Fields)) and (Fields[I] = ';') then Inc(I);
Pos := I;
end;
var P:array of String;
i,k,count:integer;
count:=0;
k:=1;
for i:=1 to Privilege do begin
if Privilege[i]:=',' then begin
Count:=Count+1;
Setlength(p,Count);
p[count-1]:=copy(Privilege,k,i-k);
k:=i+1;
end;
end;
----------------------------------------------
riff ur life
i,k,count:integer;
count:=0;
k:=1;
for i:=1 to length(Privilege) do begin
if Privilege[i]:=',' then begin
Count:=Count+1;
Setlength(p,Count);
p[count-1]:=copy(Privilege,k,i-k);
k:=i+1;
end;
end;
----------------------------------------------
riff ur life
应该:while( pos(privilege,',') <> 0 ) do
begin
数组[]=copy(rivilege,1,pos(privilege,','));
delete(rivilege,1,pos(privilege,','));
end;