Emandhal
Messages postés194Date d'inscriptiondimanche 2 mars 2003StatutMembreDernière intervention10 octobre 20063 17 févr. 2006 à 18:25
Personnellement j'aurais donné la String renvoyée par le ini à un TStringList.CommaText :
aStringList.CommaText := ini.ReadString(aSection, aKey, '');
Et après suffit de faire :
SetLength(MonArray, aStringList.Count);
Puis une tite boucle...
For z := 0 to aStringList.Count-1 do
MonArray[z] := IntToStr(aStringList[z]);
et... ah bah c'est fini ^^
Tout problème a sa solution... Mais en général, c'est jamais la bonne...
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 17 févr. 2006 à 02:51
Salut,
la seule solution à ma conaissance c'est d'utiliser un String pour l'écrire et de te faire une fonction pour la lire à nouveau.
J'avais fait un truc similaire pour lire et écrire les valeurs d'un TRect en une ligne dans un fichier Ini:
Function RectToStr(Value : TRect) : String;
Const Mask = '%d, %d, %d, %d';
Begin
With Value do Result : = Format(Mask, [Left, Top, Right, Bottom]);
End;
Function StrToRect(Separateur, Str: String): TRect;
Var TmpStr : String;
Begin TmpStr := EmptyStr;
If ((Str <> EmptyStr) And (Separateur <> EmptyStr)) And (Pos(Separateur, Str) > 0) Then Begin TmpStr : = Copy(Str, 1, Pos(Separateur, Str) - 1);
Result.Left := StrToIntDef(TmpStr, 0);
Str := Copy(Str, Pos(Separateur, Str) + 1, High(Integer));
If Pos(Separateur, Str) > 0 Then Begin TmpStr : = Copy(Str, 1, Pos(Separateur, Str) - 1);
Result.Top := StrToIntDef(TmpStr, 0);
Str := Copy(Str, Pos(Separateur, Str) + 1, High(Integer));
End ;
If Pos(Separateur, Str) > 0 Then Begin TmpStr : = Copy(Str, 1, Pos(Separateur, Str) - 1);
Result.Right := StrToIntDef(TmpStr, 0);
Str := Copy(Str, Pos(Separateur, Str) + 1, High(Integer));
End ;
Result.Bottom : = StrToIntDef(Str, 0);
End;
End;
ce n'est qu'un exemple on peut faire mieux surtout réduire le code mais bon c'est plus cher
et en suite le reste est simple
vaughan
Messages postés198Date d'inscriptionmardi 6 août 2002StatutMembreDernière intervention29 octobre 2008 17 févr. 2006 à 10:51
Polémique !!! Ce pauvre delphi !!!
Comme tu pourrais si bien le faire tu n'as qu'a créer un TIniFileArray héritant de TIniFile et créer une méthode ReadArray et le tour est joué.
En plus tu envois ta source à Borland (enfin il essai de vendre leurs IDE) et nous petits développeurs on réccupère le TIniFileArray
Merci à toi !!!
vaughan
Vous n’avez pas trouvé la réponse que vous recherchez ?