Questione : Delfi - stringhe del carico da RCData?

Ciao esperti, stringhe del
I Compilled in una lima delle risorse: il
RC_RCData.txt > ciao \

i del nHow \ nAre \ nYou

1 RCData RC_RCData.txt attched questa lima delle risorse al mio progetto,
now che voglio leggere ed ottenere quelle stringhe separate nei vars come questa:

Example:
String1, String2, String3 del
var: Stringa;
Begin
   String1:= ReadStringFromRCDATA (“1„); // Hello
   String2:= ReadStringFromRCDATA (“2„); // How
   String3:= ReadStringFromRCDATA (“3„);
del //are….
end;

Do non chiedermi di usare StringTable
because ho provato esso e relativo funzionato ma il problema sto cambiando le stringhe nel cliente Program
and finchè ora non ha trovato come aggiornare la risorsa della Tabella di stringa in domanda di Delphi
the è qui: href= " http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_26352150.html " di ramming/Languages/Pascal/Delphi/Q_26352150.html

anyway del e.com/Prog di http://www.experts-exchang ho fatto questo problema perché ho cambiato le mie stringhe a fortuna Guys della Tabella di stringa del ressoource di RCDATA non Ressource.


Good class= del

Risposta : Delfi - stringhe del carico da RCData?

Caricare la vostra risorsa da un ResourceStream come EscuroAnjo ha suggerito, quindi generare un discendente di TStrings che caricherà il relativo soddisfare da quel flusso. Allora avrete tutte le vostre stringhe in ogni linea di TStrings, pronta ad essere raggiunto.
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:

Procedura LoadStringTable (TableName: Stringa; SL: TStrings);
varietà
 RS: TResourceStream;
cominciare
 RS: = TResourceStream.Create (HInstance, TableName, RT_RCDATA);  
 prova
  SL.LoadFromStream (RS); 
 infine
  RS.Free;
 estremità;
estremità;

Uso di //:

varietà  
 String1, String2, String3: Stringa;
 StrList: TStringList;
Cominciare
 StrList: =TStringList.Create;
 prova
  LoadStringTable (“RCData„, StrList);
  String1: = StrList [0];
  String2: = StrList [1];
  String3: = StrList [2];
 infine
  StrList.Free;
 estremità;
estremità;
Altre soluzioni  
 
programming4us programming4us