Главная страница
    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.45 MB
Время: 0.009 c
2-1135089991
Asail
2005-12-20 17:46
2006.01.08
Проблемма с IIS и ISAPI dll...


2-1135187302
nirvana
2005-12-21 20:48
2006.01.08
КАк сделать ЛОГ??????????


3-1131691195
irq
2005-11-11 09:39
2006.01.08
IB компоненты и Firebird


2-1135219098
Dyakon_Frost
2005-12-22 05:38
2006.01.08
Помогите решть задачку!


14-1134372111
Pave/\
2005-12-12 10:21
2006.01.08
Citrix





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский