begin process at 2012 05 27 18:33:03
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Texte

 > MAJUSCULES EN MINUSCULE ET INVERSEMENT PAR FONCTION 'TRANSFO'

MAJUSCULES EN MINUSCULE ET INVERSEMENT PAR FONCTION 'TRANSFO'


 Information sur la source

Note :
Aucune note
Catégorie :Texte Niveau :Débutant Date de création :25/12/2002 Date de mise à jour :25/12/2002 01:05:41 Vu / téléchargé :5 348 / 239

Auteur : oliversleep

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Une simple procédure rapide permettant de transformer du texte MAJUSCULE en texte minuscule. Modifiable facilement pour l'intégrer dans des modifications de textes.


 Conclusion

Allez voir : http://www.delphifr.com/article.aspx?Val=1789
la source de DelphiCool est sur le même principe mais se limitant à la transformation des accents...

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  •   Vagues
    • Unit1.~dfmTélécharger ce fichier [Réservé aux membres club]1 538 octets
    • Unit1.~pasTélécharger ce fichier [Réservé aux membres club]2 878 octets
    • Unit1.dcuTélécharger ce fichier [Réservé aux membres club]5 086 octets
    • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]1 538 octets
    • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 878 octets
    • vagues.~dprTélécharger ce fichier [Réservé aux membres club]186 octets
    • vagues.cfgTélécharger ce fichier [Réservé aux membres club]Voir ce fichier386 octets
    • vagues.dofTélécharger ce fichier [Réservé aux membres club]Voir ce fichier1 216 octets
    • vagues.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier223 octets
    • vagues.resTélécharger ce fichier [Réservé aux membres club]876 octets

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture TABLEAU INFO SAVE INI par quentinix
Source avec Zip TIBWORD: EDITEUR ORIENTE LANGUE TIBÉTAINE par fredelem
Source avec Zip Source avec une capture POSTIT INFOS par dubois77
Source avec Zip Source avec une capture STREAM STRINGWRITER... UNE MICRO-LIBRAIRIE POUR ÉCRIRE DES C... par LaDentDeLait
Source avec Zip COMBINAISONS DE STRINGS par askil2000

Commentaires et avis

Commentaire de Nono40 le 25/12/2002 04:42:20

C'est pas top ton if then else de 52 lignes... Dans ce cas un case aurait été plus présentable. Mais en connaissant les valeurs des codes ASCII des lettres , on peut écrire :

Function transfo (lettre :string):string;
Var i:Integer;
begin
  For i := 1 to Length(lettre) do
    If Lettre[i]In ['A'..'Z','a'..'z']
      Then Lettre[i]:=Char(Integer(Lettre[i])Xor $20);
  Result := lettre;
end;

Sans oublier : UpperCase() pour tout mettre en majuscle et LowerCase pour tout mettre en minuscule...

Nono.

Commentaire de g0belin le 25/12/2002 13:01:58

Auztrement utilise la procedure  LowerCase('ton tetxt'); DE DELPHI

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Mai 2012
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Consulter la suite du CalendriCode

A découvrir



 
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,562 sec (3)

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