Кресты / Говнокод #17908 Ссылка на оригинал

0

  1. 1
(*items)[item] += 1;

указатель на map + operator[]
такое

Запостил: artembegood artembegood, (Updated )

Комментарии (508) RSS

  • ф чом проблема?
    он же сцылку возвращает.
    ну и дереференс итератора тоже лвалюе отдайот.
    Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
          • flag:=true;
            
            if keyList = nil then
            begin
            new(keyList);
            new(keylist^.HisTerms);
            new(keylist^.hisChapter);
            keyList^.value:= HashFunction(edit1.Text);
            keylist^.hisChapter^.number:=strtoint(edit2.Text);
            keylist^.HisTerms^.TheTerm:=edit1.Text;
            keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
            keylist^.HisTerms^.hisKey:=keylist^.value;
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
          • [code][i][color=blue][i][b][size=20][s][color=red][u][color=green]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
            <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ru">
            <head>
            <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
            <title>???????? #17908 — C — ????????.??</title>
            <meta name="keywords" content="????????, ??????? ???, ????????, ???????????, ??????, ??? ?????????????, ??? ?????????????, ????????? ???, ??????? ????????????, ?????, ???????? ?? php, mysql, perl" />
            <meta name="description" content="????????? ?? map operator[]
            ?????" />
            <meta property="og:image" content="http://govnokod.ru/images/brand.gif" />
            <link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
            <link rel="icon" href="/animated_favicon.gif" type="image/gif" />
            <link rel="stylesheet" href="/css/style.css?v=4" media="all" type="text/css" />
            <!--[if lte IE 7]><link href="/css/ie.css" rel="stylesheet" type="text/css"><![endif]-->
            <link title="rss govnokod.ru" type="application/rss xml" rel="alternate" href="http://govnokod.ru/rss"/>
            <link rel="stylesheet" type="text/css" href="/media/b5aabef57bd7c3fa62379caa0e483deb.css?fil es=jshighlight/govnokod.css" />
            <script type="text/javascript">
            //<!--
            var SITE_PATH = ''; var SITE_LANG = '';
            //-->
            </script>
            <script type="text/javascript" src="/media/ddd20ce56acf1d9ebadd126322495087.js?file s=jquery.js,jquery.scrollTo.js,govnokod. js,jshighlight/highlight.pack.js
            Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
        
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
            • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
              Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
    • flag:=true;
      
      Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
      если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
      keylist^.hisChapter^.nextPage:=nil;
      keylist^.HisTerms^.nextTerm:=nil;
      memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
      end
      else
      begin
      keyTemp:=keylist;
      temp:=HashFunction(edit1.Text);
      if keytemp^.value = temp then
      begin
      termtemp:=keytemp^.HisTerms;
      chaptertemp:=keytemp^.hisChapter;
      while termtemp^.nextTerm<> nil do
      termtemp:=termtemp^.nextTerm;
      while chaptertemp^.nextPage<> nil do
      chaptertemp:=chaptertemp^.nextPage;
      new(termtemp^.nextTerm);
      new(chaptertemp^.nextPage);
      chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
      termtemp^.nextTerm^.TheTerm:=edit1.Text;
      termtemp^.nextTerm^.nextTerm:=nil;
      chaptertemp^.nextPage^.nextPage:=nil;
      termtemp^.hisKey:=HashFunction(edit1.Text);
      termtemp^.hisPage:=chaptertemp^.nextPage;
      flag:=false;
      end
      else
      keytemp:=keytemp^.NextKey;
      if not(flag) then
      begin
      keytemp:=keylist;
      while keytemp^.NextKey<>nil do
      keytemp:=keytemp^.NextKey;
      new(keytemp^.NextKey);
      new(keytemp^.NextKey^.HisTerms);
      new(keytemp^.NextKey^.hisChapter);
      keytemp^.NextKey.value:=HashFunction(edit1.Text);
      keytemp^.NextKey^.hisChapter^.nextPage:=nil;
      keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
      keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
      keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
      keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
      keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
      
      end;
      Ответить
    • flag:=true;
      
      Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
      если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
      
      keylist^.hisChapter^.nextPage:=nil;
      keylist^.HisTerms^.nextTerm:=nil;
      memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
      end
      else
      
      termtemp:=keytemp^.HisTerms;
      chaptertemp:=keytemp^.hisChapter;
      while termtemp^.nextTerm<> nil do
      termtemp:=termtemp^.nextTerm;
      while chaptertemp^.nextPage<> nil do
      chaptertemp:=chaptertemp^.nextPage;
      new(termtemp^.nextTerm);
      new(chaptertemp^.nextPage);
      chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
      termtemp^.nextTerm^.TheTerm:=edit1.Text;
      termtemp^.nextTerm^.nextTerm:=nil;
      chaptertemp^.nextPage^.nextPage:=nil;
      termtemp^.hisKey:=HashFunction(edit1.Text);
      termtemp^.hisPage:=chaptertemp^.nextPage;
      flag:=false;
      end
      else
      keytemp:=keytemp^.NextKey;
      if not(flag) then
      begin
      keytemp:=keylist;
      while keytemp^.NextKey<>nil do
      keytemp:=keytemp^.NextKey;
      new(keytemp^.NextKey);
      new(keytemp^.NextKey^.HisTerms);
      new(keytemp^.NextKey^.hisChapter);
      keytemp^.NextKey.value:=HashFunction(edit1.Text);
      keytemp^.NextKey^.hisChapter^.nextPage:=nil;
      keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
      keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
      keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
      keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
      keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
      
      end;
      Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
    • [code][i][color=blue][i][b][size=20][s][color=red][u][color=green]<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
      <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ru">
      <head>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
      <title>???????? #17908 — C — ????????.??</title>
      <meta name="keywords" content="????????, ??????? ???, ????????, ???????????, ??????, ??? ?????????????, ??? ?????????????, ????????? ???, ??????? ????????????, ?????, ???????? ?? php, mysql, perl" />
      <meta name="description" content="????????? ?? map operator[]
      ?????" />
      <meta property="og:image" content="http://govnokod.ru/images/brand.gif" />
      <link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
      <link rel="icon" href="/animated_favicon.gif" type="image/gif" />
      <link rel="stylesheet" href="/css/style.css?v=4" media="all" type="text/css" />
      <!--[if lte IE 7]><link href="/css/ie.css" rel="stylesheet" type="text/css"><![endif]-->
      <link title="rss govnokod.ru" type="application/rss xml" rel="alternate" href="http://govnokod.ru/rss"/>
      <link rel="stylesheet" type="text/css" href="/media/b5aabef57bd7c3fa62379caa0e483deb.css?fil es=jshighlight/govnokod.css" />
      <script type="text/javascript">
      //<!--
      var SITE_PATH = ''; var SITE_LANG = '';
      //-->
      </script>
      <script type="text/javascript" src="/media/ddd20ce56acf1d9ebadd126322495087.js?file s=jquery.js,jquery.scrollTo.js,govnokod. js,jshighlight/highlight.pack.js
      Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
      • тьфу, я чет подумал что это ссылка на массив в сишке.

        (*items)[item] в сишке даже не скомпилится

        Бес попутал
        Ответить
            • flag:=true;
              
              Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
              keylist^.hisChapter^.nextPage:=nil;
              keylist^.HisTerms^.nextTerm:=nil;
              memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
              end
              else
              begin
              keyTemp:=keylist;
              temp:=HashFunction(edit1.Text);
              if keytemp^.value = temp then
              begin
              termtemp:=keytemp^.HisTerms;
              chaptertemp:=keytemp^.hisChapter;
              while termtemp^.nextTerm<> nil do
              termtemp:=termtemp^.nextTerm;
              while chaptertemp^.nextPage<> nil do
              chaptertemp:=chaptertemp^.nextPage;
              new(termtemp^.nextTerm);
              new(chaptertemp^.nextPage);
              chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
              termtemp^.nextTerm^.TheTerm:=edit1.Text;
              termtemp^.nextTerm^.nextTerm:=nil;
              chaptertemp^.nextPage^.nextPage:=nil;
              termtemp^.hisKey:=HashFunction(edit1.Text);
              termtemp^.hisPage:=chaptertemp^.nextPage;
              flag:=false;
              end
              else
              keytemp:=keytemp^.NextKey;
              if not(flag) then
              begin
              keytemp:=keylist;
              while keytemp^.NextKey<>nil do
              keytemp:=keytemp^.NextKey;
              new(keytemp^.NextKey);
              new(keytemp^.NextKey^.HisTerms);
              new(keytemp^.NextKey^.hisChapter);
              keytemp^.NextKey.value:=HashFunction(edit1.Text);
              keytemp^.NextKey^.hisChapter^.nextPage:=nil;
              keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
              keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
              keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
              keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
              keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
              
              end;
              Ответить
              • flag:=true;
                
                Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
                
                keylist^.hisChapter^.nextPage:=nil;
                keylist^.HisTerms^.nextTerm:=nil;
                memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                end
                else
                
                termtemp:=keytemp^.HisTerms;
                chaptertemp:=keytemp^.hisChapter;
                while termtemp^.nextTerm<> nil do
                termtemp:=termtemp^.nextTerm;
                while chaptertemp^.nextPage<> nil do
                chaptertemp:=chaptertemp^.nextPage;
                new(termtemp^.nextTerm);
                new(chaptertemp^.nextPage);
                chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                termtemp^.nextTerm^.TheTerm:=edit1.Text;
                termtemp^.nextTerm^.nextTerm:=nil;
                chaptertemp^.nextPage^.nextPage:=nil;
                termtemp^.hisKey:=HashFunction(edit1.Text);
                termtemp^.hisPage:=chaptertemp^.nextPage;
                flag:=false;
                end
                else
                keytemp:=keytemp^.NextKey;
                if not(flag) then
                begin
                keytemp:=keylist;
                while keytemp^.NextKey<>nil do
                keytemp:=keytemp^.NextKey;
                new(keytemp^.NextKey);
                new(keytemp^.NextKey^.HisTerms);
                new(keytemp^.NextKey^.hisChapter);
                keytemp^.NextKey.value:=HashFunction(edit1.Text);
                keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                
                end;
                Ответить
              • flag:=true;
                
                Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                keylist^.hisChapter^.nextPage:=nil;
                keylist^.HisTerms^.nextTerm:=nil;
                memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                end
                else
                begin
                keyTemp:=keylist;
                temp:=HashFunction(edit1.Text);
                if keytemp^.value = temp then
                begin
                termtemp:=keytemp^.HisTerms;
                chaptertemp:=keytemp^.hisChapter;
                while termtemp^.nextTerm<> nil do
                termtemp:=termtemp^.nextTerm;
                while chaptertemp^.nextPage<> nil do
                chaptertemp:=chaptertemp^.nextPage;
                new(termtemp^.nextTerm);
                new(chaptertemp^.nextPage);
                chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                termtemp^.nextTerm^.TheTerm:=edit1.Text;
                termtemp^.nextTerm^.nextTerm:=nil;
                chaptertemp^.nextPage^.nextPage:=nil;
                termtemp^.hisKey:=HashFunction(edit1.Text);
                termtemp^.hisPage:=chaptertemp^.nextPage;
                flag:=false;
                end
                else
                keytemp:=keytemp^.NextKey;
                if not(flag) then
                begin
                keytemp:=keylist;
                while keytemp^.NextKey<>nil do
                keytemp:=keytemp^.NextKey;
                new(keytemp^.NextKey);
                new(keytemp^.NextKey^.HisTerms);
                new(keytemp^.NextKey^.hisChapter);
                keytemp^.NextKey.value:=HashFunction(edit1.Text);
                keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                
                end;
                Ответить
              • flag:=true;
                
                Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                keylist^.hisChapter^.nextPage:=nil;
                keylist^.HisTerms^.nextTerm:=nil;
                memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                end
                else
                begin
                keyTemp:=keylist;
                temp:=HashFunction(edit1.Text);
                if keytemp^.value = temp then
                begin
                termtemp:=keytemp^.HisTerms;
                chaptertemp:=keytemp^.hisChapter;
                while termtemp^.nextTerm<> nil do
                termtemp:=termtemp^.nextTerm;
                while chaptertemp^.nextPage<> nil do
                chaptertemp:=chaptertemp^.nextPage;
                new(termtemp^.nextTerm);
                new(chaptertemp^.nextPage);
                chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                termtemp^.nextTerm^.TheTerm:=edit1.Text;
                termtemp^.nextTerm^.nextTerm:=nil;
                chaptertemp^.nextPage^.nextPage:=nil;
                termtemp^.hisKey:=HashFunction(edit1.Text);
                termtemp^.hisPage:=chaptertemp^.nextPage;
                flag:=false;
                end
                else
                keytemp:=keytemp^.NextKey;
                if not(flag) then
                begin
                keytemp:=keylist;
                while keytemp^.NextKey<>nil do
                keytemp:=keytemp^.NextKey;
                new(keytemp^.NextKey);
                new(keytemp^.NextKey^.HisTerms);
                new(keytemp^.NextKey^.hisChapter);
                keytemp^.NextKey.value:=HashFunction(edit1.Text);
                keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                
                end;
                Ответить
              • flag:=true;
                
                Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
                keylist^.hisChapter^.nextPage:=nil;
                keylist^.HisTerms^.nextTerm:=nil;
                memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
                end
                else
                begin
                keyTemp:=keylist;
                temp:=HashFunction(edit1.Text);
                if keytemp^.value = temp then
                begin
                termtemp:=keytemp^.HisTerms;
                chaptertemp:=keytemp^.hisChapter;
                while termtemp^.nextTerm<> nil do
                termtemp:=termtemp^.nextTerm;
                while chaptertemp^.nextPage<> nil do
                chaptertemp:=chaptertemp^.nextPage;
                new(termtemp^.nextTerm);
                new(chaptertemp^.nextPage);
                chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
                termtemp^.nextTerm^.TheTerm:=edit1.Text;
                termtemp^.nextTerm^.nextTerm:=nil;
                chaptertemp^.nextPage^.nextPage:=nil;
                termtemp^.hisKey:=HashFunction(edit1.Text);
                termtemp^.hisPage:=chaptertemp^.nextPage;
                flag:=false;
                end
                else
                keytemp:=keytemp^.NextKey;
                if not(flag) then
                begin
                keytemp:=keylist;
                while keytemp^.NextKey<>nil do
                keytemp:=keytemp^.NextKey;
                new(keytemp^.NextKey);
                new(keytemp^.NextKey^.HisTerms);
                new(keytemp^.NextKey^.hisChapter);
                keytemp^.NextKey.value:=HashFunction(edit1.Text);
                keytemp^.NextKey^.hisChapter^.nextPage:=nil;
                keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
                keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
                keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
                keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
                keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
                
                end;
                Ответить
        • flag:=true;
          
          if keyList = nil then
          begin
          new(keyList);
          new(keylist^.HisTerms);
          new(keylist^.hisChapter);
          keyList^.value:= HashFunction(edit1.Text);
          keylist^.hisChapter^.number:=strtoint(edit2.Text);
          keylist^.HisTerms^.TheTerm:=edit1.Text;
          keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
          keylist^.HisTerms^.hisKey:=keylist^.value;
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
    • flag:=true;
      
      if keyList = nil then
      begin
      new(keyList);
      new(keylist^.HisTerms);
      new(keylist^.hisChapter);
      keyList^.value:= HashFunction(edit1.Text);
      keylist^.hisChapter^.number:=strtoint(edit2.Text);
      keylist^.HisTerms^.TheTerm:=edit1.Text;
      keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
      keylist^.HisTerms^.hisKey:=keylist^.value;
      keylist^.hisChapter^.nextPage:=nil;
      keylist^.HisTerms^.nextTerm:=nil;
      memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
      end
      else
      begin
      keyTemp:=keylist;
      temp:=HashFunction(edit1.Text);
      if keytemp^.value = temp then
      begin
      termtemp:=keytemp^.HisTerms;
      chaptertemp:=keytemp^.hisChapter;
      while termtemp^.nextTerm<> nil do
      termtemp:=termtemp^.nextTerm;
      while chaptertemp^.nextPage<> nil do
      chaptertemp:=chaptertemp^.nextPage;
      new(termtemp^.nextTerm);
      new(chaptertemp^.nextPage);
      chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
      termtemp^.nextTerm^.TheTerm:=edit1.Text;
      termtemp^.nextTerm^.nextTerm:=nil;
      chaptertemp^.nextPage^.nextPage:=nil;
      termtemp^.hisKey:=HashFunction(edit1.Text);
      termtemp^.hisPage:=chaptertemp^.nextPage;
      flag:=false;
      end
      else
      keytemp:=keytemp^.NextKey;
      if not(flag) then
      begin
      keytemp:=keylist;
      while keytemp^.NextKey<>nil do
      keytemp:=keytemp^.NextKey;
      new(keytemp^.NextKey);
      new(keytemp^.NextKey^.HisTerms);
      new(keytemp^.NextKey^.hisChapter);
      keytemp^.NextKey.value:=HashFunction(edit1.Text);
      keytemp^.NextKey^.hisChapter^.nextPage:=nil;
      keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
      keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
      keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
      keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
      keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
      
      end;
      Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
            
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
        • flag:=true;
          
          Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
          keylist^.hisChapter^.nextPage:=nil;
          keylist^.HisTerms^.nextTerm:=nil;
          memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
          end
          else
          begin
          keyTemp:=keylist;
          temp:=HashFunction(edit1.Text);
          if keytemp^.value = temp then
          begin
          termtemp:=keytemp^.HisTerms;
          chaptertemp:=keytemp^.hisChapter;
          while termtemp^.nextTerm<> nil do
          termtemp:=termtemp^.nextTerm;
          while chaptertemp^.nextPage<> nil do
          chaptertemp:=chaptertemp^.nextPage;
          new(termtemp^.nextTerm);
          new(chaptertemp^.nextPage);
          chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
          termtemp^.nextTerm^.TheTerm:=edit1.Text;
          termtemp^.nextTerm^.nextTerm:=nil;
          chaptertemp^.nextPage^.nextPage:=nil;
          termtemp^.hisKey:=HashFunction(edit1.Text);
          termtemp^.hisPage:=chaptertemp^.nextPage;
          flag:=false;
          end
          else
          keytemp:=keytemp^.NextKey;
          if not(flag) then
          begin
          keytemp:=keylist;
          while keytemp^.NextKey<>nil do
          keytemp:=keytemp^.NextKey;
          new(keytemp^.NextKey);
          new(keytemp^.NextKey^.HisTerms);
          new(keytemp^.NextKey^.hisChapter);
          keytemp^.NextKey.value:=HashFunction(edit1.Text);
          keytemp^.NextKey^.hisChapter^.nextPage:=nil;
          keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
          keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
          keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
          keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
          keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
          
          end;
          Ответить
      • flag:=true;
        
        Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
        если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
        
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
          • flag:=true;
            
            Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
            keylist^.hisChapter^.nextPage:=nil;
            keylist^.HisTerms^.nextTerm:=nil;
            memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
            end
            else
            begin
            keyTemp:=keylist;
            temp:=HashFunction(edit1.Text);
            if keytemp^.value = temp then
            begin
            termtemp:=keytemp^.HisTerms;
            chaptertemp:=keytemp^.hisChapter;
            while termtemp^.nextTerm<> nil do
            termtemp:=termtemp^.nextTerm;
            while chaptertemp^.nextPage<> nil do
            chaptertemp:=chaptertemp^.nextPage;
            new(termtemp^.nextTerm);
            new(chaptertemp^.nextPage);
            chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
            termtemp^.nextTerm^.TheTerm:=edit1.Text;
            termtemp^.nextTerm^.nextTerm:=nil;
            chaptertemp^.nextPage^.nextPage:=nil;
            termtemp^.hisKey:=HashFunction(edit1.Text);
            termtemp^.hisPage:=chaptertemp^.nextPage;
            flag:=false;
            end
            else
            keytemp:=keytemp^.NextKey;
            if not(flag) then
            begin
            keytemp:=keylist;
            while keytemp^.NextKey<>nil do
            keytemp:=keytemp^.NextKey;
            new(keytemp^.NextKey);
            new(keytemp^.NextKey^.HisTerms);
            new(keytemp^.NextKey^.hisChapter);
            keytemp^.NextKey.value:=HashFunction(edit1.Text);
            keytemp^.NextKey^.hisChapter^.nextPage:=nil;
            keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
            keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
            keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
            keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
            keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
            
            end;
            Ответить
            • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
              Ответить
      • flag:=true;
        
        if keyList = nil then
        begin
        new(keyList);
        new(keylist^.HisTerms);
        new(keylist^.hisChapter);
        keyList^.value:= HashFunction(edit1.Text);
        keylist^.hisChapter^.number:=strtoint(edit2.Text);
        keylist^.HisTerms^.TheTerm:=edit1.Text;
        keylist^.HisTerms^.hisPage:=keylist^.hisChapter;
        keylist^.HisTerms^.hisKey:=keylist^.value;
        keylist^.hisChapter^.nextPage:=nil;
        keylist^.HisTerms^.nextTerm:=nil;
        memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
        end
        else
        begin
        keyTemp:=keylist;
        temp:=HashFunction(edit1.Text);
        if keytemp^.value = temp then
        begin
        termtemp:=keytemp^.HisTerms;
        chaptertemp:=keytemp^.hisChapter;
        while termtemp^.nextTerm<> nil do
        termtemp:=termtemp^.nextTerm;
        while chaptertemp^.nextPage<> nil do
        chaptertemp:=chaptertemp^.nextPage;
        new(termtemp^.nextTerm);
        new(chaptertemp^.nextPage);
        chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
        termtemp^.nextTerm^.TheTerm:=edit1.Text;
        termtemp^.nextTerm^.nextTerm:=nil;
        chaptertemp^.nextPage^.nextPage:=nil;
        termtemp^.hisKey:=HashFunction(edit1.Text);
        termtemp^.hisPage:=chaptertemp^.nextPage;
        flag:=false;
        end
        else
        keytemp:=keytemp^.NextKey;
        if not(flag) then
        begin
        keytemp:=keylist;
        while keytemp^.NextKey<>nil do
        keytemp:=keytemp^.NextKey;
        new(keytemp^.NextKey);
        new(keytemp^.NextKey^.HisTerms);
        new(keytemp^.NextKey^.hisChapter);
        keytemp^.NextKey.value:=HashFunction(edit1.Text);
        keytemp^.NextKey^.hisChapter^.nextPage:=nil;
        keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
        keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
        keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
        keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
        keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
        
        end;
        Ответить
    • flag:=true;
      
      Представляю, какой багор будет у 1024, ведь он ненавидит чресстрочную развёртку.
      если мартышка И ТЕПЕРЬ меня не забунит, я подарю ей свой банан.
      
      keylist^.hisChapter^.nextPage:=nil;
      keylist^.HisTerms^.nextTerm:=nil;
      memo1.Lines.Add(edit1.Text   ' ('   edit2.Text ')');
      end
      else
      
      termtemp:=keytemp^.HisTerms;
      chaptertemp:=keytemp^.hisChapter;
      while termtemp^.nextTerm<> nil do
      termtemp:=termtemp^.nextTerm;
      while chaptertemp^.nextPage<> nil do
      chaptertemp:=chaptertemp^.nextPage;
      new(termtemp^.nextTerm);
      new(chaptertemp^.nextPage);
      chaptertemp^.nextPage^.number:=strtoint(edit2.Text);
      termtemp^.nextTerm^.TheTerm:=edit1.Text;
      termtemp^.nextTerm^.nextTerm:=nil;
      chaptertemp^.nextPage^.nextPage:=nil;
      termtemp^.hisKey:=HashFunction(edit1.Text);
      termtemp^.hisPage:=chaptertemp^.nextPage;
      flag:=false;
      end
      else
      keytemp:=keytemp^.NextKey;
      if not(flag) then
      begin
      keytemp:=keylist;
      while keytemp^.NextKey<>nil do
      keytemp:=keytemp^.NextKey;
      new(keytemp^.NextKey);
      new(keytemp^.NextKey^.HisTerms);
      new(keytemp^.NextKey^.hisChapter);
      keytemp^.NextKey.value:=HashFunction(edit1.Text);
      keytemp^.NextKey^.hisChapter^.nextPage:=nil;
      keytemp^.NextKey^.HisTerms^.nextTerm:=nil;
      keytemp^.NextKey^.hisChapter^.number:=strtoint(edit2.Text);
      keytemp^.NextKey^.HisTerms^.TheTerm:=edit1.Text;
      keytemp^.NextKey^.HisTerms^.hisPage:=keytemp^.NextKey^.hisChapter;
      keytemp^.NextKey^.HisTerms^.hisKey:=HashFunction(edit1.Text);
      
      end;
      Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
        • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
          Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
      • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
        Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
    • ???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????м????
      Ответить
  • ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇
    Ответить
    • ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕ ⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕⎕
      Ответить
    • ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇
      Ответить
      • ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇ ⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇⌇
        Ответить
    • Лол, сёма своим батхертом таки разбудил страйкера?
      Ответить
      • будет забавно, если он потрет и все драгоценные каменты 3_14dar
        тогда это будет человек, которого забанили на говнокоде дважды
        Ответить
        • ну так такого зашквара больше не у кого и не было
          Ответить
          • Ну тут как бы не докажешь, что это сёмины боты. Вдруг его просто кто-то подставить хотел?
            Ответить
            • Зачем? Всем и так пох на Сему, и только он может создавать драму из ничего. Инфа 100% это его величество безработный хохол
              Ответить

Добавить комментарий

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?


    8