Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

Что означает данный код?   Найти похожие ветки 

 
Silica ©   (2005-12-18 20:30) [0]

...
load_data; //чтение данных из файла
 if read_file=true then
 begin
 if form2.Edit1.Text <>"" then
  begin
   if wet(form2.Edit1.Text)=false then add_data(form2.Edit1.Text);
   load_data;
   i:=1;
   while form2.Edit1.Text<>words[i] do
    begin
     if  i>=count_words then
       form2.Edit1.Text:=words[i]
      else
     i:=i+1;
     end;
  end
 else
  begin
  i:=random(count_words);
   while length(words[i])<8 do
  i:=random(count_words);
  end;
 first_word:=words[i];
 edit1.Text:=  first_word;
 words_tab[1]:=first_word;
 pp:=2;
 komp:=false;
...

а именно эти две строчки:

words_tab[1]:=first_word;
 pp:=2;

first_word - это случайное слово из текстового файла(random)
words_tab - это массив слов в Memo.


 
mfender ©   (2005-12-18 20:35) [1]


> а именно эти две строчки:
>
> words_tab[1]:=first_word;
>  pp:=2;


Из всего приведённого ясно только одно, что pp - глобальная переменная.
words_tab[1] := first_word; - элементу массива слов в memo с индексом [1] присваивается случайное слово из текстового файла.


 
mfender ©   (2005-12-18 20:42) [2]

pp := 2 - видимо предполагается, что после того, как в массиву words_tab поменяли значение элемента [1], глобальная переменная pp устанавливается на 2, чтобы где-то еще поставить курсор массива words_tab на элемент [2].


 
Silica ©   (2005-12-18 20:52) [3]

Все ясно, спасибо большое!!!



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.115 c
1-1133433853
Дмитрий_05
2005-12-01 13:44
2006.01.08
ListBox убрать рамку в выделенной строке


14-1134227319
scarlett
2005-12-10 18:08
2006.01.08
базу данных НЕ через dBase, FoxPro, Paradox и т. д., а через объе


2-1134845614
Exploit
2005-12-17 21:53
2006.01.08
Мышь


14-1134368247
syte_ser78
2005-12-12 09:17
2006.01.08
Посоветуйет локальный чат.


6-1127368583
98eksom
2005-09-22 09:56
2006.01.08
Progressbar при получении почты