Tinife ameliorer et portable

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_alvaro)