[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;

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