字符串str='abc'的值转换为“ABC”,已解决。 另一个关于listbox遍历不闪动的问题。 (100分)

var
str := 'abc';
function(str)

使得str＝'ABC';

uppercase

str := UpperCase(str);

UpperCase

对字符串用uppercase。
uppercase(str);

uppercase(str);
完全可以实现，你可以查一下delphi函数。
就在DFW上多的是～～
呵呵～

谢谢！

崩溃..
我给了100分，100分呀，
崩溃..

对不起了，我要在接几个小问题才结贴！

按错键了吗?100分，那么easy
有什么再问吧

这种问题，最好查一下以前的帖子再提问[]。

是不是觉得不值！

再给你一个字符串替换函数：

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:='AabcBBBabcHHHabc';
showmessage(stringreplace(s,'abc','ABC',[]));
showmessage(stringreplace(s,'abc','ABC',[rfReplaceAll]));
end;

有listbox3 和listbox4 两个列表框，我要把list3 中符合条件的行添加到list4中，
但是在添加过程中由于要多次遍历list3，所以list3会闪动，有没有办法在遍历时不
让list3闪动（系统不重画list3），而是在添加工作完成后再重画list3？

procedure TfOpreSet.DBLookupComboBox2CloseUp(Sender: TObject);
var T_Gauth,T_sub,itemtext:string;
li_len,li_i:smallint;
procedure selectinte(lb:Tlistbox;des:string);
var li:smallint;
begin
for li := 0 to lb.Count -1 do
begin
lb.ItemIndex := li;
lb.Selected[li]:=true;
if rightstr(lb.Items[lb.ItemIndex],3) = des then
break;
end;
end;
begin
listbox4.Clear;
with fdm.Q3 do
begin
T_Gauth:=fieldbyname('GAuthrity').asstring;
li_len:=Length(T_Gauth);
li_i:=1;
while Length(T_Gauth) > 1 do
begin
T_sub:=copy(T_Gauth,1,3);
T_Gauth:=RightStr(T_Gauth,li_len - (li_i * 3));
inc(li_i);
selectinte(listbox3,T_sub);
itemtext:=ListBox3.Items[ListBox3.ItemIndex];
if not InListBox(listbox4,itemtext) then
listbox4.Items.Add(itemtext);
end;
end;
end;

数据集控件有以下方法控件数据控件。
DisableControls;
EnableControls;

TListBox 不知道有没有直接的方法。
控件 visible ？

或者先把项放到 TStrings 中，最后一次性添加。

BeginUpdate() and EndUpdate()

listbox.visable:=false;
画完后再
=true

多人接受答案了。