PIR/PIRServerTextResources.pas - master - YakuninAV/Convertors

PIR/PIRServerTextResources.pas
67 строк3 KB
YakuninAV
begin with gitflick
31 июл 2026, 15:21
31 июл 2026, 15:211dc0fc6
unit PIRServerTextResources;

interface

uses SynCommons;

var
  pirListCmd: RawUTF8;
  pirCmdInfo: RawUTF8;
  pirCmdTables: RawUTF8;
  pirCmdToC: RawUTF8;
  pirHtmlStart: RawUTF8;
  pirHtmlEnd: RawUTF8;
  pirBasParam: RawUTF8;
  pirCypParam: RawUTF8;

implementation

procedure InitModule;
begin
  pirHtmlStart:=StringToUTF8('<html><body>') + #13#10;
  pirHtmlEnd:=StringToUTF8('</body></html>');

  pirBasParam:=StringToUTF8('<p><b><i>bas:</i></b> ������������� ���� ���������� (���, ����, ...)</p>') + #13#10;
  pirCypParam:=StringToUTF8('<p><b><i>cyp:</i></b> ���� ���������</p>') + #13#10;

  pirListCmd:=pirHtmlStart
             +StringToUTF8('<h1>������ ������</h1>') + #13#10
             +StringToUTF8('<p><b><i>Info</i></b> - ���������� ����� ���������� � ���������</p>') + #13#10
             +StringToUTF8('<p><b><i>Tables</i></b> - ���������� ���������� � �������� � ���������</p>') + #13#10
             +StringToUTF8('<p><b><i>ToC</i></b> - ���������� ���������� ���������</p>') + #13#10
             +StringToUTF8('<p><b><i>Document</i></b> - ��������</p>') + #13#10
             +StringToUTF8('<p><b><i>CheckFileName</i></b> - ���������� � ���������</p>') + #13#10
             +StringToUTF8('<p><b><i>SaveDocument*</i></b> - ��������� �������� � ����</p>') + #13#10
             +pirHtmlEnd;
  pirCmdInfo:=pirHtmlStart
             +StringToUTF8('<h1>Info   - ���������� � ���������</h1>')
             +StringToUTF8('<p>���������� ����� ���������� � ���������:</p>') + #13#10
             +StringToUTF8('<p><b><i>file</i></b> - ��� ����� �� �������� ���� ��������� ����������</p>') + #13#10
             +pirHtmlEnd;
  pirCmdTables:=pirHtmlStart
               +StringToUTF8('<h1>Tables - ������� �� ���������</h1>') + #13#10
               +StringToUTF8('<p>���������� ���������� � �������� � ���������</p>') + #13#10
               +StringToUTF8('<p>��������� ��� ���������</p>') + #13#10
               +pirBasParam
               +pirCypParam
               +StringToUTF8('<p><b><i>qry:</i></b> �������������� �������� ����������� ��������</p>') + #13#10
               +StringToUTF8('<p>- <i>lis</i> = ������������ ������ ���� ������������ � ��������� ������ � ���� "�������������"="������������" </p>') + #13#10
               +StringToUTF8('<p>- <i>lst</i> = ������������ ������ ���� ������������ � ��������� ������ � ���� "�������������"="������������" </p>') + #13#10
               +StringToUTF8('<p>- <i>all</i> = ������������ JSON-������, ���������� ��� �������</p>') + #13#10
               +StringToUTF8('<p>- "�������������" = ������������ JSON-�������� ���������� ������� � ��������� ���������������</p>') + #13#10
               +pirHtmlEnd;
  pirCmdToC:=pirHtmlStart
            +StringToUTF8('<h1>ToC - ������� �� ���������</h1>') + #13#10
            +StringToUTF8('<p>���������� ���������� ���������</p>') + #13#10
            +StringToUTF8('<p>��������� ��� ���������</p>') + #13#10
            +pirBasParam
            +pirCypParam
            +pirHtmlEnd;

end;

initialization

InitModule;

end.