cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
13
26 févr. 2009 à 10:28
Mais si ça marche..
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Editrecherche: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
NewColumn: TListColumn;
ListItem: TListItem;
ListView: TListView;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
const
Names: array[0..5, 0..1] of string = (
('Rubble', 'Barney'),
('Michael', 'Johnson'),
('Bunny', 'Bugs'),
('Silver', 'HiHo'),
('Simpson', 'Bart'),
('Squirrel', 'Rocky')
);
var
i: Integer;
begin
ListView := TListView.Create(Self);
with ListView do
begin
Parent := Self;
// Align := alClient;
ViewStyle := vsReport;
NewColumn := Columns.Add;
NewColumn.Caption := 'Dernier';
NewColumn := Columns.Add;
NewColumn.Caption := 'Premier';
for i := Low(Names) to High(Names) do
begin
ListItem := Items.Add;
ListItem.Caption := Names[i, 0];
ListItem.SubItems.Add(Names[i, 1]);
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to ListView.Items.Count do
begin
if Copy(LowerCase(ListView.Items[i - 1].caption), 1, Length(LowerCase(EditRecherche.Text)))
= LowerCase(Editrecherche.Text) then
begin
ListView.ItemIndex := i - 1;
Break;
end;
end;
end;
end.
Tape Bunny dans ton edit et clique et tu verras qu'il passe sur le break
Maintenant, il faut lui dire ce que tu veux faire à ce moment..
(j'aurais mis UpperCase..)
Je sens que tu voudrais faire une recherche incrémentale ce qui est très difficile à mettre en place dans ce type de composant..
cantador