begin process at 2010 03 18 16:52:54
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > SAISIE SEMI-AUTOMATIQUE

SAISIE SEMI-AUTOMATIQUE


 Information sur la source

Note :
9 / 10 - par 2 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Texte Classé sous :saisie, semi, automatique, suggestion Niveau :Débutant Date de création :05/01/2003 Date de mise à jour :12/01/2006 02:16:18 Vu / téléchargé :5 842 / 310

Auteur : max12

Ecrire un message privé
Site perso
Ce membre participe au partage de revenus publicitaires
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note


 Description

Cliquez pour voir la capture en taille normale
Un simple code pour imiter le comportement de Netscape ou IE, par exemple vous taper une URL et il vous donne la suite (Si vous y êtes déjà aller).

ATTENTION : KeyUp seulement !

Source

  • 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; 


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

12 janvier 2006 02:16:19 :
Mot clef

 Sources du même auteur

Source avec Zip TRAITER LES DONNÉES EFFICACEMENT (WINSOCK)
Source avec Zip Source avec une capture ENREGISTRER DU SON (PATCHED !)
Source avec Zip VOIR LES MOTS DE PASSE
Source avec Zip FACTORISATION PREMIÈRE
Source avec Zip BALLE QUI REBONDIT

 Sources de la même categorie

Source avec Zip COMBINAISONS DE STRINGS par askil2000
Source avec Zip Source avec une capture RECONNAISSANCE DE CARACTÈRES (OCR) par Bacterius
Source avec Zip Source avec une capture NETTOYAGE AUTOMATIQUE DE NOMS DE FICHIERS par John Dogget
DISTANCE DE JARO-WINKLER par PoulpHunter
Source avec Zip BASE DE DONNÉE WIKI par thithony

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CHANGEUR DE FOND D'ÉCRAN par John Dogget
Source avec Zip PETIT PROGRAMME DELPHI POUR CALCULER LE NOMBRE PI AVEC UNE A... par abdessami3e
Source avec Zip Source avec une capture SAISIE GRAPHIQUE par flaith
Source avec Zip Source avec une capture FILTRER LA SAISIE VALIDE D'UN NOMBRE ENTIER, FLOTTANT, SIGNÉ... par japee
Source avec Zip Source avec une capture COMPOSANT : TDBPDEFAULTBUTTON par JulioDelphi

Commentaires et avis

Commentaire de Delphiprog le 05/01/2003 23:48:28 administrateur CS

J'ai deux suggestions à faire à ce code très utile :
1/- Au lieu d'utiliser "if Key &lt;&gt; 8", utiliser les Virtual Key codes à la place, c'est plus lisible : "if  Key &lt;&gt; VK_BACK "

2/- Améliorer le test d'égalité des chaines pour ne pas être sensible à la casse, en mettant les deux chaines comparées en minuscule, ce qui permet de ne pas perdre les caractères accentués :
If LowerCase(Copy(a,1, length(d))) = LowerCase(Copy(d,1, length(d)))

Félicitations et merci pour ce petit bout de code qui nous rendra de fiers services, j'en suis sûr.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Effacer l'historique de saisie semi-automatique d'Internet explorer [ par fgreg306 ] Je souhaite incorporer dans mon application Delphi, une fonction de purge de l'historique de saisie semi-automatique des Formulaires et des mots de pa saisie semi automatique [ par jule452 ] bonjour je voudrait savoir si il y a un moyen pour cree une saisie semi automatique un peu comme dans google ou explorer&nbsp; voila merci Comment faire une saisie semi automatique sur un TEdit ou TDBEdit [ par yokochimada ] J'ai conçu une application Delphi de base de données, une fois terminée, le problème c'est au moment de la saisie des données, par exemple, le champs saisie automatique dans un Champ dbmémo à pd'une dblookuplistbox [ par AEC1 ] Bonjours à tous de AEC1.Si quelqu'un à une petite minute pour jeter un coup d'oeil sur mon petit souci qui me fait tourné en bourique, je l'en remerci bloquer saisie dbgring [ par jerome57440 ] bonjour,serait t'il possible de n'autoriser que le saisie des nombres de 0 a 9 dans un champs d'un BDgrindlorsque je remplie min et maxvalue si je tap controle saisie (edit) [ par zorro4243 ] Je ne trouve pas de solution au problème suivant, simple et fréquent de surcoit ! Dans un evenement 'on KeyPress', je souhaite contrôler et surtout M Créer un rectangle semi-transparent [ par djbuch ] Bonjour,je suis entrain de développer un système de détection de mouvement dans une vidéo, je déctecte actuellement le taux de mouvement dans chaque z virgule et point [ par saradelphi5 ] bonjour tout le monde, j'ai un petit problemes c'est tres urgent il faut que je le régule le probleme aujourduih!!alors j'ai besoin de faire des calcu Separation des milliers dans un champs de saisie [ par belaid52 ] je suis confronté à un problème d'affichage pendant la saisie d'un nombre flottant dans un edit . je voudrai pendant ou à la fin de la saisie que le n


Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,796 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales