Question

delphi 中 在listbox中查找edit中的内容

listbox中有内容 001,aa,bb
002,cc,dd 现在 我在edit中输入001 时 按下回车键得到001后面的所有内容 赋给一个变量str

Answer 1

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
ss,str: String;
i,ct,ps: Integer;
begin
if Key = #13 then begin
ss := Edit1.Text;
if ss <> '' then begin
ct := ListBox1.Items.Count;
if ct > 0 then begin
str := '';
i := 0;
repeat
ps := Pos(ss, ListBox1.Items[i]);
if ps > 0 then begin
str := ListBox1.Items[i];
str := Copy(str, Length(ss) + 2,
Length(str) - Length(ss) - 1);
end;
Inc(i);
until (i >=ct) or (str <> '');
end;
end;
end;
ShowMessage('Str = ' + str);
end;