- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
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;
Follow us!