VPF::Объясните поче так: - Форум программистов

Дата 17.9.2004, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Почему если переделать эту процедуру в функцию то результат надо разделить на 2 ?

Код


Procedure MakeJah;
var fj,i:integer;
     s:string;
begin
 for i:=0 to ri4Edit.CaretPos.Y  do
 begin
 S:=ri4Edit.Lines.Strings[i];
 if ri4Edit.CaretPos.Y = i then
 fj:=fj+ri4Edit.CaretPos.X else
 fj:=fj+length(  s );
 end;
   caption:=IntToStr(fj);
end;

Код


Function GetStringCount(x,y:integer):integer;
var fj,i:integer; s:string;
begin
 for i:=0 to Y  do
 begin
  s:= ri4Edit.Lines.Strings[i];
  if Y = i then
  fj:=fj+X else
  fj:=fj+length( s );
 end;
 fj:=(fj Div 2);
 Result:=fj;
end;

Girder

Дата 17.9.2004, 15:35 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Потому что перед For и втом и другом случаи надо добавить fj:=0
Вот тогда и не надо писать fj:=fj div 2

Это сообщение отредактировал(а) Girder - 17.9.2004, 15:42

--------------------

Как слышим, так и пишим.
Истина где-то там...

Дата 17.9.2004, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Цитата(Girder @ 17.9.2004, 15:35)

Потому что перед For и втом и другом случаи надо добавить fj:=0
Вот тогда и не надо писать fj:=fj div 2

А разве имеет смысл и в том и вдругом случаи? если в процедуре всё пучком и без этого.

Girder

Дата 17.9.2004, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Цитата

...если в процедуре всё пучком и без этого.

Это просто совпадение... Как говорится: До первого случая

У тебя в fj может быть все что угодно.

--------------------

Как слышим, так и пишим.
Истина где-то там...

Дата 17.9.2004, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Ага, понял. спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »