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

Вниз

Объясните, пожалуйста   Найти похожие ветки 

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

function TForm1.WETP(St1:string):boolean;
var i:integer;
begin
 wetp:=false;
 for i:=1 to pp-1 do
   if (st1=words_tab[i]) then wetp:=true
end;

Данная функция проверяет наличие слова st1 в массиве (в Memo). Объясните пожалуйста, что означает строчка

for i:=1 to pp-1 do

а именно pp-1.


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

Из приведённого кода это неизвестно.
Вероятно, это находится в глобальной области.


 
Silica ©   (2005-12-18 20:34) [2]

В программе есть еще такая строчка:

words_tab[Pp]:=ss;
pp:=pp+1;

все переменные описаны в области var в начале модуля.


 
mfender ©   (2005-12-18 20:38) [3]


> все переменные описаны в области var в начале модуля.

Это плохо. Вообще, глобальными переменными лучше вообще не пользоваться. Нехорошо это. Лучше передавать всё в процедуры и функции, а всё остальное писать в файлы.

pp, следует предположить, глобальный счётчик элементов массива words_tab.


 
Silica ©   (2005-12-18 20:54) [4]

А что тогда делает pp-1? Проверяет слова в обратном порядке в Memo?

А:
words_tab[Pp]:=ss;
pp:=pp+1;

pp:=pp+1 это добавление одного элемента в массив, вниз?


 
mfender ©   (2005-12-18 21:02) [5]

for i:=1 to pp-1 do - здесь pp-1 означает, что цикл будет работать с 1 до pp <минус> 1. Просто, если pp - количество элементов массива, то если не сделать pp-1, то в конце цикла курсор массива переместится на несуществующий элемент и вызовет критическую ошибку.

pp := pp+1 - это не добавление элемента. Это увеличение переменной pp на единицу.


 
Silica ©   (2005-12-18 21:13) [6]

Охрамедное спасибо!!! :)))



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

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

Наверх




Память: 0.47 MB
Время: 0.021 c
2-1135016134
Viktop
2005-12-19 21:15
2006.01.08
Разбить текстовый файл


4-1130664226
злобная танька
2005-10-30 12:23
2006.01.08
Открыть с помощью...


1-1133492829
Петр
2005-12-02 06:07
2006.01.08
Как подгрузить dll, написанную в Delphi в проект CBuilder?


14-1134247846
LordOfRock
2005-12-10 23:50
2006.01.08
Delphi глючит по страшному


14-1134455289
Гриха
2005-12-13 09:28
2006.01.08
Блок Инета