- procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
- Shift: TShiftState);
- Var b, c : Integer; a,d : STRING;
- begin
- //Vérifier tout les éléments
- If Key <> 8 Then Begin
- for c:= 0 to ListBox1.Count - 1 do begin;
- a := ListBox1.Items[c];
- d := Edit1.Text;
- b := Edit1.SelStart;
- If LowerCase(Copy(a,1, length(d))) = LowerCase(Copy(d,1, length(d))) Then Begin;
- Edit1.Text := a;
- Edit1.SelStart := b;
- Edit1.SelLength := (Length(Edit1.Text) - b);
- End;
- end;
- end;
- //Fin
- end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var b, c : Integer; a,d : STRING;
begin
//Vérifier tout les éléments
If Key <> 8 Then Begin
for c:= 0 to ListBox1.Count - 1 do begin;
a := ListBox1.Items[c];
d := Edit1.Text;
b := Edit1.SelStart;
If LowerCase(Copy(a,1, length(d))) = LowerCase(Copy(d,1, length(d))) Then Begin;
Edit1.Text := a;
Edit1.SelStart := b;
Edit1.SelLength := (Length(Edit1.Text) - b);
End;
end;
end;
//Fin
end;