Question : Delphes - cordes de charge de RCData ?

Bonjour experts, cordes du
I Compilled dans un dossier de ressource : le
RC_RCData.txt > bonjour \

i de nHow \ nAre \ nYou

1 RCData RC_RCData.txt attched ce dossier de ressource à mon projet, le
now que je veux lire et obtenir ces cordes séparées dans les vars comme ceci :

Example :
String1, String2, String3 du
var : Corde ;
Begin
   String1:= ReadStringFromRCDATA (« 1 ») ; // Hello
   String2:= ReadStringFromRCDATA (« 2 ») ; // How
   String3:= ReadStringFromRCDATA (« 3 ») ;
du //are….
end ; le

Do ne pas me demander d'employer StringTable
because j'ai essayé lui et son travaillé mais le problème je change les cordes dans le client Program
and jusqu'à ce que maintenant n'ait pas trouvé comment mettre à jour la ressource de tableau de chaîne en question de Delphi
the soit ici : href= " http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_26352150.html " de le ramming/Languages/Pascal/Delphi/Q_26352150.html

anyway du e.com/Prog de http://www.experts-exchang j'ai posé cette question parce que j'ai changé mes cordes en chance Guys du tableau de chaîne de ressoource de RCDATA pas Ressource.


Good class= de

Réponse : Delphes - cordes de charge de RCData ?

Charger votre ressource d'un ResourceStream comme EscuroAnjo a laissé entendre, puis créer un descendant de TStrings qui chargera son contenu de ce jet. Vous aurez alors toutes vos cordes dans chaque ligne de TStrings, prête à être accédé.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 :

Procédé LoadStringTable (TableName : Corde ; SL : TStrings) ; variété RS : TResourceStream ; commencer RS : = TResourceStream.Create (HInstance, TableName, RT_RCDATA) ; essai SL.LoadFromStream (RS) ; finalement RS.Free ; extrémité ; extrémité ; Utilisation de // : variété String1, String2, String3 : Corde ; StrList : TStringList ; Commencer StrList : =TStringList.Create ; essai LoadStringTable (« RCData », StrList) ; String1 : = StrList [0] ; String2 : = StrList [1] ; String3 : = StrList [2] ; finalement StrList.Free ; extrémité ; extrémité ;