Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск в ListView

Автор: W1zArD 13.4.2006, 03:31

Код


procedure TForm1.Button1Click(Sender: TObject);
var i,p:integer;
    s,tmp:string;
begin
  for i:=1 to listview1.Items.Count do begin
    tmp:=listview1.Items.Item[i].Caption;
    p:=pos(pchar(edit1.Text),tmp);
    label1.Caption:=tmp;
    s:=copy(label1.Caption,0,p);
  label2.Caption:=s;
  end;
end;

Автор: Yanis 13.4.2006, 05:06

Неумный.

P. S.

Цитата(W1zArD @ 13.4.2006, 03:31

)

p:=pos(pchar(edit1.Text),tmp);

Это ещё зачем?

Автор: ~FoX~ 13.4.2006, 07:24

Коряво:

Цитата(W1zArD @ 13.4.2006, 04:31

)

or i:=1 to listview1.Items.Count-1 do begin

Цитата(W1zArD @ 13.4.2006, 04:31

)

pchar(edit1.Text),tmp

Зачем PChar?

Цитата(W1zArD @ 13.4.2006, 04:31

)

label1.Caption:=tmp;
s:=copy(label1.Caption,0,p);

Лучше так:

Код


s:=copy(tmp,0,p);[/quote]

Автор: Sunvas 13.4.2006, 07:25

W1zArD, задавать вопросы тебя не учили? А кнопочка "код" для кого придумана?

Цитата(W1zArD @ 13.4.2006, 03:31

)

for i:=1 to listview1.Items.Count do begin
tmp:=listview1.Items.Item[i].Caption;

Нужно так:

for i:=0 to listview1.Items.Count-1 do begin
tmp:=listview1.Items.Item[i].Caption;

Автор: W1zArD 13.4.2006, 19:22

sorry впредь буду конкретнее smile