Помогите с созданием поиска.

[student90]

Помогите с созданием поиска. у меня есть checklistbox.итемки он берёт из базы данных. предположим итемок всего 20. каждая итемка имеет вид: ЦТП *(где *-номер от 1 до 20).мне нужно сделать когда я ввожу только номер(например, 20) и когда нажимаю на кнопку поиск выделялась нужная итемка.у меня получилось только выделение происходит когда ввожу ЦТП 20.а нужно только по номеру.помогите плз.подскажите. данные вводятся в edit.

[Sibedir]

Чет непонял куда чё вводить чтобы было было то, что не понял как надо. Мозг закипел. 10 минут лежу на полу. Думаю на стул сесть или потом.

[student90]

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

Чет непонял куда чё вводить чтобы было было то, что не понял как надо. Мозг закипел. 10 минут лежу на полу. Думаю на стул сесть или потом.

ну то есть. я меня получается выполнить поиск в checklistboх когда в edit ввожу "ЦТП 20" и он мне показывает итемку "ЦТП 20".а мне нужно чтобы вводишь просто "20" и он показывает итемку "ЦТП 20".

[Квэнди]

ну так обрабатывайте руками ввод и по результатам вхождения набранной подсроки в элементы списка выводить найденный элемент

[Sibedir]

Вводи в едит число, а потом перед поиском добавь к нему "ЦТП ".

str := 'ЦТП ' + Edit1.Text;

[student90]

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

Вводи в едит число, а потом перед поиском добавь к нему "ЦТП ".

str := 'ЦТП ' + Edit1.Text;

Спасибо огромное! Все работает.

[Квэнди]

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

Вводи в едит число, а потом перед поиском добавь к нему "ЦТП ".

str := 'ЦТП ' + Edit1.Text;

универсальности 0, чем не устраивает pos ?

[Alter]

полный вариант:

unit Unit1_;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    CheckListBox1: TCheckListBox;
    Button1: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   function UpCaseAll(x :string):string;
    { Public declarations } 
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.UpCaseAll(x :string):string;
var
  b, w: integer;
  str: string;
begin
  for w := 1 to length(x) do
  begin
    b := ord(x[w]);
    case b of
      0..96, 123..183: x[w] := chr(b);
      97..122: x[w] := UpCase(chr(b));
      184: x[w] := chr(168);
      185..223: x[w] := chr(b);
      224..255:
        begin
          b := b - (Ord('а') - Ord('А'));
          x[w] := chr(b);
        end;
    end;
    str := str + x[w];
  end;
 UpCaseAll := str;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If Not(Key in ['0'..'9', #8]) then Key := #0;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var I,II :LongInt;
    S :String;
begin //поиск
 TControl(Sender).Enabled := False;
  Try
 S := Format('ЦТП %s', [Edit1.Text]);
 II := CheckListBox1.Items.Count;
 If II>0 then
 For I:=0 To II-1 Do
 If Pos(S, UpCaseAll(CheckListBox1.Items.Strings[I]))>0 then
 CheckListBox1.Selected[I] := True;
  Finally
 TControl(Sender).Enabled := True;
  End;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 CheckListBox1.MultiSelect := True;
end;

end.