
                        21 ⪠ ⥮

                         ப ⨯

     祭 ப ⨯  ᫥⥫쭮 ᨬ-
  ᪨ ਡ⮬  ( ᨬ  ⢨⥫-
 ᫠ ᨬ  믮 ணࠬ)  ﭭ  -
⮬ ࠧ    1  255.  饥 祭 ਡ
     ⠭⭮ 㭪樨 Length.

                     Ŀ
   ப ⨯ >string>
                                                 ^
                                 Ŀ   Ŀ   Ŀ 
                               > [ >楫> ] 
                                          
                                          
                                          

     ⭮襭   묨  ப묨 祭ﬨ ⠭-
 ᮣ᭮ ⭮襭 浪  祭ﬨ  ᨬ  
ᮮ⢥ .   ப ࠧ   ᨬ-
   ப  ᮮ⢥饣 ᨬ   -
⪮ ப ਭ 祭 ""; ਬ, 'Xs' ,
祬 'X'.  㫥 ப   ࠢ ⮫쪮  㣨  㫥
ப,    訬 ப묨 祭ﬨ.

      䨪  ப  ⨯    뫪  ६
ப ⨯  ਬ ⠭ 㭪樨 Low  High. 
⮬ 砥  㭪 Low 頥 0,   High 頥 ਡ
ࠧ (ᨬ )  ப.

     ࠬ-६, ᠭ        䨪
OpenString   祢 ᫮ string  ﭨ {$P+},  
 ப ࠬ஬.   ப ࠬ -
  ।   ⮩  楤  㭪樨 ப
६ 饣 ࠧ.

        ᨢ 砥   뫪 
६ ᨢ,   ன 㪠뢠 ,  ।騩


 .

      ᨬ   ப ६ 砥  -
 뫪  ப ६,   ன 㪠뢠 -
, ।騩  ᨬ.

                     Ŀ        Ŀ        Ŀ
            > [ >ࠦ> ] >
                       ^            
                                   Ŀ        
                            Ĵ , <
                                    

      ࠦ     ᮮ⢥饩
ࠧ୮  ᨢ.  ᫮  ࠦ   ॢ ᫠
 ⨯  ᠭ ᨢ.  ⮣, ⨯  -
     ᮢ⨬  ᢠ  ᮮ⢥騬
 ⨯.

      砥 ୮ ᨢ   ᯮ짮  ᪮쪮
ᮢ  ᪮쪮 ࠦ  . ਬ:

     Matrix[I][J]

 ⮦⢥ :

     Matrix[I,J]

     ப ६    ந஢   -
筮 ᭮ ࠦ, 祭 ண    -
  0...n,   n - 㪠  ᠭ ࠧ ப.  
    ᨬ  ப 祭, ᫨ 祭
ᨬ  ⨯ Char.

      ᨬ ப ६ ( 0) ᮤন -
  ப,    Length(S) ⮦⢥ Ord(S[0]).
᫨ ਡ  ᢠ 祭,    -
,    祭 訬 ᠭ ࠧ -


.   㪠  ப    ⥪饩 ᪮
.   ⮬ 砥 뢠  ᨬ    砩묨,  
ᢠ  ⥪饩     ⢨⥫쭮 -
祭 ப ६.

        ४⨢  {$X+} ࠧ襭  -
७ ᨭ⠪,  祭 PChar  ஢ 
 ࠦ ⨯ Word. ᭮ ࠦ  ᬥ-
, ஥  㦭     ᨬ ।  ࠧ묥
 祭 뫪  ६ ⨯ Char.

      ࠬ   ।   ⮩  -
楤  㭪樨 ப  ᨢ ࠧ ࠧ஢.

      ப ࠬ  뢠   ᯮ-
:

     -   䨪 OpenString;
     -   祢 ᫮ string  ﭨ {$P+}.

     䨪 OpenString 뢠    㫥  System.  
砥 ᯥ樠 ப ⨯,   ᯮ짮-
 ⮫쪮  ᠭ ப ࠬ஢.   楫 ⭮ ᮢ-
⨬ OpenString    १ࢨ஢ ᫮  -
, ⠪ ࠧ,   ८।  䨪, -
 짮⥫.

      ⭠ ᮢ⨬ 祭  ,   -
 ᫠ 祢 ᫮ string    ᯮ짮  ४⨢
 {$P+}.  ﭨ {$P+} ६, ᠭ  -
祢 ᫮ string,   ப ࠬ஬.

      ⮣ ப ࠬ 䠪᪨ ࠬ  -
  ६  ப ⨯.  楤  㭪-
樨 ਡ ࠧ (ᨬ쭠  )  ଠ쭮  ࠬ
㤥 ⥬ ,   䠪᪮ ࠬ.

      ப  ࠬ   ᥡ ⠪  ࠬ-


-६ ப ⨯,  ⮫쪮    ।  
 ६  㣨  楤ࠬ  㭪.  ,  
 ᭮ ।   ப ࠬ.

      ᫥饬 ਬ ࠬ S  楤  AssignStr  -  
 ப ࠬ:

     procedure AssignStr(var S: OpenString);
     begin
       S := '0123456789ABCDEF';
     end;

       S -   ப ࠬ, AssignStr 
। ६  ப ⨯:

     var
       S1: string[10];
       S1: string[20];
     begin
       AssignStr(S1);           { S1 := '0123456789' }
       AssignStr(S2);           { S2 := '0123456789ABCDEF' }
     end;

      AssingStr ᨬ쭠  ࠬ S   ᠬ,  
 䠪᪮  ࠬ.    ࠧ,      ࢮ   맮
AssingStr  ᢠ ࠬ S ப ᥪ,  ⠪ 
ᨬ쭠  S1 ࠢ 10.

      ਬ  ⮬ ப  ࠬ ⠭⭠
㭪 Low  頥  0,  ⠭⭠  㭪 High 頥
ᠭ ᨬ  䠪᪮  ࠬ,    㭪
SizeOf 頥 ࠧ 䠪᪮ ࠬ.

      ᫥饬  ਬ  楤  FillString  ப
 ᨬ   ᨬ쭮 .    
ᯮ짮 㭪樨  High  祭 ᨬ쭮  -
⮣ ப ࠬ.



     procedure FillStr(var S: OpenString; Ch: Char);
     begin
       S[0] := Chr(High(S));         {   ப }
       FillChar(S[1], High(S), Ch);  { ⠭ ᫮
                                       ᨬ }
     end;

     祭   ࠬ-⠭,  ᠭ  ᯮ짮
䨪 OpenString  祢 ᫮ string   ﭨ
{$P+},     묨 ப묨 ࠬࠬ.   
ᥡ ⠪,   ᫨  뫨 ᠭ  ᨬ쭮  -
 ⨯  255,    㭪  Hingh   ⠪ ࠬ஢ ᥣ
頥 255.



