Процедура LoadStringTable (TableName: Шнур; SL: TStrings);
var
RS: TResourceStream;
начните
RS: = TResourceStream.Create (HInstance, TableName, RT_RCDATA);
попытка
SL.LoadFromStream (RS);
окончательно
RS.Free;
конец;
конец;
Использование //:
var
String1, String2, String3: Шнур;
StrList: TStringList;
Начните
StrList: =TStringList.Create;
попытка
LoadStringTable («RCData», StrList);
String1: = StrList [0];
String2: = StrList [1];
String3: = StrList [2];
окончательно
StrList.Free;
конец;
конец;
|