Question

请问一下的delphi程序是什么意思，谢谢

procedure TfrmCreep.Button1Click(Sender: TObject);
procedure ChangeItem(AComboBox:TComboBox);
var
I:integer;
AStrings:array of String;
begin
if AComboBox.Items.Indexof(AComboBox.text)>=0 then
setlength(AStrings,AComboBox.Items.Count)
else
setlength(AStrings,AComboBox.Items.Count+1);
AStrings[0]:=AComboBox.text;
if AComboBox.Items.Indexof(AComboBox.text)>=0 then
begin
AComboBox.Items.Delete(AComboBox.Items.Indexof(AComboBox.text));
AComboBox.text:=AStrings[0];
end;
if AComboBox.Items.Count>=1 then
begin
for I:=1 to AComboBox.Items.Count do
AStrings[I]:=AComboBox.Items[I-1];
end;
AComboBox.Items.Clear;
for I:=0 to High(AStrings) do
AComboBox.Items.Add(AStrings[I]);
if AComboBox.Items.Count >= 51 then
AComboBox.Items.Delete(50);
end;

Answer 1

通过阅读代码，我觉得 procedure ChangeItem(AComboBox:TComboBox) 过程的作用，是当你在下拉列表框的锋誉编辑框中，输入罩基蔽某个列表中不存在的文本时，会自动将这个文本添加到下拉框中。

以下是详细注释：

procedure TfrmCreep.Button1Click(Sender: TObject);
procedure ChangeItem(AComboBox:TComboBox);
var
I:integer;
AStrings:array of String;
begin
//如果当前输入的文本在AComboBox下拉列表中存在（不存在），则修改AStrings的数组大小
if AComboBox.Items.Indexof(AComboBox.text)>=0 then
setlength(AStrings,AComboBox.Items.Count)
else
setlength(AStrings,AComboBox.Items.Count+1);
AStrings[0]:=AComboBox.text;

//如果索引到下拉列表输入框当前输入的文本在下拉列表中存在，则删除该项
if AComboBox.Items.Indexof(AComboBox.text)>=0 then
begin
AComboBox.Items.Delete(AComboBox.Items.Indexof(AComboBox.text));
AComboBox.text:=AStrings[0];
end;

//如物州果AComboBox的列表项总数>=1，则将AComboBox的列表项复制到AStrings
if AComboBox.Items.Count>=1 then
begin
for I:=1 to AComboBox.Items.Count do
AStrings[I]:=AComboBox.Items[I-1];
end;

//清除AComboBox列表项，然后将AStrings的内容添加到AComboBox列表项
AComboBox.Items.Clear;
for I:=0 to High(AStrings) do
AComboBox.Items.Add(AStrings[I]);

//如果AComboBox列表项总数>51，则删除第50项
if AComboBox.Items.Count >= 51 then
AComboBox.Items.Delete(50);

end;

追问

谢谢您，给了这么详细的解答

Answer 2

如果CB中有text这个东西,把text提到第一物渣位,把中间的text删除,如果没有,第一位加入这个text,保持困烂CB中汪蚂漏的元素最多为50,有多把最后那个删除