begin process at 2010 02 10 11:04:55
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Delphi

 > 

Divers

 > 

Débutant(e)

 > 

Recupérer le code ASCII de chaque caractere d'une string


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Recupérer le code ASCII de chaque caractere d'une string

mercredi 7 mai 2008 à 15:48:29 | Recupérer le code ASCII de chaque caractere d'une string

CyberTwister

Bonjour :D

j'ai une phrase dans un Edit.text.
Je voudrais faire une boucle pour lister ttes les lettres et faire une action suivant leur caractere ANSII.

J'ai donc commencé par :

var
Longueur: Integer;
i : integer;
L :  string;
begin
Longueur := Length(Edit2.Text);
  for i:=1 to Longueur  do
    begin
        L := Copy(Edit2.Text,i,1);
        // Showmessage ici
    end;
end;

Chaque lettre est donc stockée tour à tour dans la variable L.
Comment puis-je afficher son caractere ANSII
Je sais que c'est avec Ord, mais j'echoue a chaque fois sur des types de variables incompatible.

Merci beaucoup pour toute aide :D

mercredi 7 mai 2008 à 16:00:13 | Re : Recupérer le code ASCII de chaque caractere d'une string

askil2000

var

L : Char;

Alex

mercredi 7 mai 2008 à 16:06:55 | Re : Recupérer le code ASCII de chaque caractere d'une string

CyberTwister

Si je met :
L: Char

j'ai une erreur ici :
L := Copy(Edit2.Text,i,1);
Type incompatible 'Char' et 'tcaption'
mercredi 7 mai 2008 à 17:08:14 | Re : Recupérer le code ASCII de chaque caractere d'une string

askil2000

Oui en effet il faut déclarer une deuxième variable string qui prend la valeur de Edit2.Text

ensuite

L := MaVar[I];

Alex

mercredi 7 mai 2008 à 17:08:53 | Re : Recupérer le code ASCII de chaque caractere d'une string

Caribensila

Membre Club
Bonjour,

var
  Longueur: Integer;
  i : integer;
  L :  char;
...
  Longueur := Length(Edit2.Text);
  for i:=1 to Longueur  do begin
    L := Edit2.Text[i];
    Showmessage(IntToStr(Ord(L)));
  end;
mercredi 7 mai 2008 à 20:02:49 | Re : Recupérer le code ASCII de chaque caractere d'une string

f0xi

Membre Club Administrateur CodeS-SourceS


procedure GetStringCharCodes(const S: String; var CharCodes: TByteDynArray);
var L : integer;
begin
  L := Length(S);
  SetLength(CharCodes, L);
  Move(S[1], CharCodes[0], L);
// ou (mesurer les performances)
//  CopyMemory(@CharCodes[0], PChar(S), L);
end;

 




mercredi 7 mai 2008 à 21:51:36 | Re : Recupérer le code ASCII de chaque caractere d'une string

Caribensila

Membre Club
... Question perfs, c'est poil kif-kif.


Cette discussion est classée dans : text, code, string, caractere, recupérer


Répondre à ce message

Sujets en rapport avec ce message

sql delphi [ par Kruger ] Salut, j'ai un probleme depuis maintenant quelques jours que j'arrive pas à résoudre, voilà, quand je fais une requete SELECT xxx FROM yyy WHERE zzz a Mdi s.v.p .... [ par Programmeur1987 ] Bonjour tlm, J'aimerais bien savoir Comment utiliser ActiveMdiChild car dans mon appli, il me marque violation du code ... etc voila message d'erreur avec un calcul de valeur TEdit [ par stephanesvh ] salut a tout le monde Voila, j'ai 3 TEdit-Edit1-Edit2-Edit3Pour les Edit1 Edit2 et Edit3 la valeur Text est vide et recevras des nombres decimal (exe String, DLL et exportation de classe [ par Bilou972 ] Voici une chose que j'aurai du faire il y deja bien longtemps, je suis en bts info deuxieme annee, l examen approche et je suis toujours bloqué sur l' Impossible de comparer le caractere d'un string situé apres ; [ par zulot ] Voila je viens de decouvrir que dans delphi quand je compare 2 chaines identique caractere par caractere cela marche bien jusqu'au ; apres les caracte Chercher des lignes de type string et les convertir au type int dans dbgrid [ par sosososo ] Bonjour,J'ai un problème de convertir une variable string to int. En fait, J'ai ma dbgrid qui contient 2 colonnes : 'Code' et 'libellé' . Dans le Code Modifier une donnée dans une base de donné en utilisant son referentiel [ par Maitre_Gonzo ] BonjourUn probleme qui se pose a moi aujourd'hui est le suivant:Lorsque j'utilise le code qui suit : //Table_piece.First; //While not Table_piece.E Appeler une procédure [ par royreal ] Bonjour,Malgré vos conseils avisés je m'en sort pas Voilà je souhaiterai parser mon code html, pour cela je receptionne déjà ma page<table border=0 c generation de cle et tableau [ par MoveX ] [code]var  i,n: Integer;begin  Randomize;  repeat  begin    n:= Random(255);    if n in [48..57,65..90,97..122] then         &nb Executer du code texte [ par Niki2001 ] Est-il possible d'exécuter du texte (sous forme de string) qui, évidemment, représenterait un code Delphi correct? Exemple:var   Str: string;   i: int


Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

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

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