Tinife ameliorer et portable

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 587 fois - Téléchargée 30 fois

Contenu du snippet

amélioration de la classe Tinifile pour la gestion des fichiers INI
Sous XP la méthode ReadString plante si le paramètre Section est vide. Sous
Linux ou Windows 9x, cette méthode retourne le paramètre Default.
Utilisez cette classe pour avoir le même comportement suivant la plateforme.

Source / Exemple :


{*

  • inifile2 par alvaroc 30/05/2004
*
  • amelioration de la classe Tinifile pour la gestion des fichiers INI
  • Sous XP la methode ReadString plante si le paramettre Section est vide. Sous
  • Linux ou Windows 9x, cette methode retourne le paramettre Default.
  • Utilisez cette classe pour avoir le meme comportement suivant la plateforme.
  • }
unit inifiles2; interface uses inifiles; // pour la classe Tinifile type Tinifile2=class(Tinifile) // surdefinition de la classe Tinifile private public function ReadString(const Section, Ident, Default: String): String; override; // Surdefinition de la methode ReadString end; implementation {*
  • Surdefinition de la methode ReadString
*
  • Sous XP la fonction ReadString plante si Section = ''
  • }
function Tinifile2.ReadString(const Section, Ident, Default: String): String; var s : String; begin if Section = '' then s := Default else // on peut lancer ReadString de la classe mere sans danger. s := inherited ReadString(Section,Ident,Default); if s = '' then s := Default; result := s; end; end.

Conclusion :


Ce problème m'as étonner, si vous avez eu d'autres pb ou en cas de remarques n'hésitez pas. J'ai pas d'explications sur ce pb, ..

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.