Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Что означает данный код? [D7]

Silica © (2005-12-18 20:30:00)
...
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.

Silica (2005-12-18 20:52:00) [1]
Все ясно, спасибо большое!!!

mfender (2005-12-18 20:42:00) [2]
pp := 2 - видимо предполагается, что после того, как в массиву words_tab поменяли значение элемента [1], глобальная переменная pp устанавливается на 2, чтобы где-то еще поставить курсор массива words_tab на элемент [2].

mfender (2005-12-18 20:35:00) [3]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »