SAISIE SEMI-AUTOMATIQUE

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; 

Télécharger le zip

12 janvier 2006 02:16:19 :

Mot clef