[e8gen]

У меня есть процедура для поиска текста Edit в списке ListBox. Нужно чтобы она искала символы нижнего и верхнего регистра при вводе строки. Вот процедура:

Код:

procedure TForm1.Search;
var
  n: integer;
  substr: String;
  s: String;
begin
for n:=0 to ListBox1.Count-1 do
 begin
 substr:=LowerCase(Edit1.Text);
 s:=LowerCase(ListBox1.Items[n]);
 if Pos(substr,s)=1 then LoadCharacter(n);
 end;
end;

Админ: пользуемся тегами для оформления кода!

Но она не работает! Подскажите, что делать, а то я не знаю. Заранее спасибо!

[Asinkrit]

Код:

procedure TForm1.Search;
var
  n: integer;
  substr: String;
  s: String;
begin
for n:=0 to ListBox1.Count-1 do
 begin
 substr:=Edit1.Text;
 s:=ListBox1.Items[n];
 if Pos(substr,s)=1 then LoadCharacter(n);
 end;
end;

[e8gen]

Сообщение от Asinkrit

Код:

procedure TForm1.Search;
var
  n: integer;
  substr: String;
  s: String;
begin
for n:=0 to ListBox1.Count-1 do
 begin
 substr:=Edit1.Text;
 s:=ListBox1.Items[n];
 if Pos(substr,s)=1 then LoadCharacter(n);
 end;
end;

Если так сделать то придется вводить заглавные буквы чтобы их найти, а я хотел чтобы было без разницы - заглавная или строчная буква.

[Assistant]

вместо LowerCase используй AnsiLowerCase (он русские буквы понимает)

Код:

substr := AnsiLowerCase(Edit1.Text);

[e8gen]

Спасибо, Assistant. Все работает! Можно закрывать тему.