cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 2013
-
8 juin 2002 à 10:56
djtexas
Messages postés20Date d'inscriptionmardi 16 avril 2002StatutMembreDernière intervention 9 mai 2006
-
10 juin 2002 à 03:33
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
djtexas
Messages postés20Date d'inscriptionmardi 16 avril 2002StatutMembreDernière intervention 9 mai 2006 10 juin 2002 à 03:33
J'avoie qun fichier ressource améliore la lisibilité du code
cs_Delphiprog
Messages postés4297Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 9 janvier 201332 8 juin 2002 à 10:56
Pour que ce code puisse être facilement réutilisable, il serait bon d'externaliser dans un fichier ressource de chaine (ou une simple unité), du style :
ResourceString
10004 = 'Interrupted function call.';
10013 = 'Permission Refusée.';
10014 = 'Mauvaise adresse.';
10022 = 'Arguments Invalides.';
etc...
Puis d'appeler la chaine à afficher de la façon suivante :
//Si la chaîne de ressource n'existe pas, LoadStr renvoie une chaîne vide
ErrorMsg := LoadStr(ErrorCode);
If ErrorMsg = EmptyStr then
ErrorMsg := 'Unknown socket error.';
Ainsi, le code devient facilement réutilisable et plus facile à lire.
Je t'envoie le code proposé par mail.
10 juin 2002 à 03:33
8 juin 2002 à 10:56
ResourceString
10004 = 'Interrupted function call.';
10013 = 'Permission Refusée.';
10014 = 'Mauvaise adresse.';
10022 = 'Arguments Invalides.';
etc...
Puis d'appeler la chaine à afficher de la façon suivante :
//Si la chaîne de ressource n'existe pas, LoadStr renvoie une chaîne vide
ErrorMsg := LoadStr(ErrorCode);
If ErrorMsg = EmptyStr then
ErrorMsg := 'Unknown socket error.';
Ainsi, le code devient facilement réutilisable et plus facile à lire.
Je t'envoie le code proposé par mail.