TURBO PASCAL |
Новости
|
Строковые ресурсы
Списки строк используются в программах Turbo Vision очень часто, поэтому специально для этого вида ресурсов разработаны два особых объекта - TStrListMaker и TStringList. С помощью TSrtListMaker создается строковый ресурс, а с помощью TStringList ранее созданный строковый ресурс становится доступен программе. Предполагается, что создание строкового ресурса и его использование осуществляется в разных программах, поэтому обоим объектам в Turbo Vision присвоен один и тот же регистрационный номер. По той же причине TStrListMaker имеет метод Put, но не имеет метода Get, a TStringList, наоборот, имеет Get и не имеет Put. В отличие от остальных ресурсов доступ к строковым ресурсам осуществляется по индексам. Таким образом, Ваша программа становится независимой от языка, используемого для вывода сообщений. Чтобы поместить на экран ту или иную информацию, достаточно указать индекс нужного сообщения и в зависимости от используемого файла строкового ресурса сообщение будет выведено на нужном языке. В двух следующих программах иллюстрируется создание и использование строкового ресурса. В программе CreateStringRes создается строковый ресурс, содержащий все строки текста программы. Константы NStr и SizeStrRes определяют количество строк и общую длину строкового ресурса в байтах. В нашем примере эти величины заранее не известны и выбираются приблизительно, но так, чтобы в ресурсе гарантированно разместился бы весь текст программы. В реальной программе они должны выбираться, исходя из конкретной задачи. Program CreateStingRes; {Эта программа создает строковый ресурс} Uses Objects; const SizeStrRes = 2000; {Общая длина всех строк в ресурсе} NStr = 40; {Общее количество строк} var f: text; {Файл с текстом программы} ProgText: TResourceFile; Strings : TStrListMaker; {Строковый ресурс} k: Integer; s: String; begin s := copy(ParamStr(0),1,pos('.',ParamStr(0))); Assign(f,s+'PAS'); Reset(f); {Открываем файл с текстом программы} RegisterType(RStrListMaker); {Регистрируем объект} ProgText.Init(New(PBufStream, InitC prog, res' , stCreate, 1024) )) ; Strings.Init(SizeStrRes,Nstr); k := 0; while not EOF(f) do begin ReadLn(f,s); {Читаем строку программы} inc(k) ; {k - порядковый номер строки} Strings.Put(k,s) {Помещаем строку в ресурс} end; Close (f); {Закрываем файл с текстом программы} {Помещаем ресурс в поток} ProgText.Put(@Strings,'Программа'); Strings.Done; {Закрываем ресурс} ProgText. Done {Закрываем поток} end. В программе UseStringRes текст, полученный из созданного строкового ресурса, читается и выводится на экран «задом наперед», начиная с последней строки текста. Program UseStingRes; {Эта программа использует ранее созданный строковый ресурс} Uses Objects; var ProgText: TResourceFile; {Файл ресурсов} PStrings : PStringList; {Строковый ресурс} k,N: Integer; begin RegisterType(RStringList); {Регистрируем объект} ProgText.Init(New(PBufStream, {Создаем поток} Init('prog.res',stOpenRead,1024))); PStrings := {Получаем из потока ресурс} PStringList(ProgText.Get('Программа')); N := 1; while (PStrings.Get(N))<>'' do inc(N); {N-1 = общее количество строк} for k := N-l downto 1 do WriteLn(PStrings.Get(k)); {Получаем и выводим строки} PStringsA.Done; {Закрываем ресурс} ProgText.Done {Закрываем поток} end. Заметим, что индексы, по которым осуществляется доступ к строковому ресурсу, могут быть произвольными целыми числами в диапазоне от 0 до 65535. Чтобы определить общее количество строк в строковом ресурсе, используется то обстоятельство, что при обращении к TStringList.Get с недействительным индексом метод выдает пустую строку. На практике этот способ нельзя считать надежным (в строковом ресурсе могут храниться и пустые строки), однако других способов определения этого параметра в TStringList не существует. Перед обращением к TSrtListMaker.Put и TSrtmgList.Get соответствующие объекты должны быть зарегистрированы с помощью RegisterType.
|
(с)Все права защищены По всем интересующим вопросам прошу писать на электронный адрес |