поиск в листбох

[Аватар]

Ты же сам этого хотел. И не будут отображаться, пока их туда снова не засунуть

[alman12]

Сообщение от Аватар

Ты же сам этого хотел. И не будут отображаться, пока их туда снова не засунуть

как обратно отображать ?

[XE5]

Сдаётся мне что возраст данного юзера соответствует окончанию логина. Тогда это объясняет его поведение.

alman12 на.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, StrUtils;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    LabeledEdit1: TLabeledEdit;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure AddItem(s: string);
    procedure DeleteItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  TS: TStringlist;
implementation

{$R *.dfm}

procedure TForm1.AddItem(s: string);
begin
  TS.Add(Edit1.Text);
  ListBox1.Items.Add(Edit1.Text);
end;

procedure TForm1.DeleteItem;
begin
  if ListBox1.ItemIndex > -1 then
    begin
      TS.Delete(TS.IndexOf(ListBox1.Items[ListBox1.Itemindex]));
      ListBox1.DeleteSelected;
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  AddItem(Edit1.Text);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  TS := TStringlist.Create;
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
var
  i: integer;
begin
  ListBox1.Items.BeginUpdate;
  ListBox1.Items.Clear;
  for i := 0 to TS.Count - 1 do begin
    if pos(AnsiLowerCase(LabeledEdit1.Text), AnsiLowerCase(TS[i])) = 1 then
      ListBox1.Items.Add(TS[i]);
  end;
  if Length(LabeledEdit1.Text) = 0 then Listbox1.Items := TS;
  ListBox1.Items.EndUpdate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DeleteItem;
end;

end.

1) Используй знаки препинания при формировании сообщений, а при формировании вопроса вопросительный знак.
2) Если тебе задали вопрос, отвечай на него, а не игнорируй. Если не знаешь что ответить, так и пиши, "не знаю".
3) Создавая тему ПОДРОБНО описывай задачу, прилагай свой код, даже если там полный бред, и проси помочь. Топик этой темы яркий образец того, КАК ДЕЛАТЬ НЕ НУЖНО. Увижу игнорирование замечаний ГАРАНТИРОВАННО НЕ БУДУ ПОМОГАТЬ.
Прочитав замечания, напиши, что ты понял (или не понял).

[alman12]

спасибо я это имеел ввиду

[XE5]

Только как Я и ожидал, ты не дочитал сообщение до конца. В следующий раз у тебя будет на одного помощника меньше

[alman12]

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

Только как Я и ожидал, ты не дочитал сообщение до конца. В следующий раз у тебя будет на одного помощника меньше

я все понял брат