cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 2 nov. 2004 à 17:19
Les commentaires précédents ont été inclus.
cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 28 févr. 2004 à 09:25
Oups... c'est vrai. ABCLetter et Number sont dans taplus. De toute façon, respectivement, ça dit si c'est des lettres et si c'est un chiffre:
function ABCLetter(c:char):boolean;
begin
ABCLetter:= Pos(LowerCase(c),'abcdefghijklmnopqrstuvwyxz')<>0;
end;
function Number(c:char):boolean;
begin
Number:= Pos(LowerCase(c),'0123456789')<>0;
end;
Il me semble que c'est ça.
papyvore
Messages postés223Date d'inscriptionsamedi 15 novembre 2003StatutMembreDernière intervention16 décembre 202115 24 févr. 2004 à 09:35
bonjour
je remplace le message d'erreur OK
mais je ne trouve pas les fonctions
AbcLetter() and Number()
si je les supprime la compil se fait
mais résultat ??
a+
cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 22 févr. 2004 à 16:08
TAPLUS n'est pas fondammental: ErrorBox est dans taplus.pas et est un MessageDlg simplifié (une sorte de ShowMessage avec le panneau erreur).
Un paquet des paquets est probablement manquant. Supprimez le .DOF (voire le .res aussi) et tout ira bien... du moins, je l'espère.
DelphiCool
Messages postés455Date d'inscriptionmardi 24 juillet 2001StatutMembreDernière intervention10 mars 2009 22 févr. 2004 à 09:11
Salut,
Il manque taplus.pas
[yoghisan] decoche construire avec les paquet dans options
yoghisan
Messages postés204Date d'inscriptionsamedi 10 mai 2003StatutMembreDernière intervention 2 juin 20051 21 févr. 2004 à 22:38
Surement intéressant mais il demande le paquet "VCLSMP30" que je n'ai pas et cela pour compiler ainsi que lancer l'executable...
2 nov. 2004 à 17:19
28 févr. 2004 à 09:25
function ABCLetter(c:char):boolean;
begin
ABCLetter:= Pos(LowerCase(c),'abcdefghijklmnopqrstuvwyxz')<>0;
end;
function Number(c:char):boolean;
begin
Number:= Pos(LowerCase(c),'0123456789')<>0;
end;
Il me semble que c'est ça.
24 févr. 2004 à 09:35
je remplace le message d'erreur OK
mais je ne trouve pas les fonctions
AbcLetter() and Number()
si je les supprime la compil se fait
mais résultat ??
a+
22 févr. 2004 à 16:08
Un paquet des paquets est probablement manquant. Supprimez le .DOF (voire le .res aussi) et tout ira bien... du moins, je l'espère.
22 févr. 2004 à 09:11
Il manque taplus.pas
[yoghisan] decoche construire avec les paquet dans options
21 févr. 2004 à 22:38