Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.01.2010, 23:12   #1
RIO
Форумчанин
 
Аватар для RIO
 
Регистрация: 15.12.2007
Сообщений: 422
По умолчанию Непонятная проблема с циклом

Здравствуйте!

Есть функция:

Код:
function From10(A, B: DWord): string;
var
  S, T: string;
  I, Z, R: DWord;
begin
  while B <> 0 do
  begin
        Z := B div A;
        R := B mod A;
        B := Z;
        if R > 9 then
           T := Chr(Ord('A') - 10 + R)
        else
           T := IntToStr(R);
        S := S + T;
  end;
  for I := 1 to Length(S) do
      Result := Result + S[Length(S) - I + 1];
end;
При нажатии клавиши на форме, выполняется:

Код:
for I := 1 to 10 do
     ShowMessage(From10(16, 10));
По идеи, каждый раз должно выскакивать окошко только с одним "A", но к этому "A" каждый раз еще раз добавляется "A". Тоесть:

I = 1: A
I = 2: AA
I = 3: AAA
.
.
.
И т.д.

Почему? В чем проблема?
RIO вне форума Ответить с цитированием
Старый 31.01.2010, 23:26   #2
maLoy*508
Форумчанин
 
Аватар для maLoy*508
 
Регистрация: 28.03.2008
Сообщений: 672
По умолчанию

переменная Result не обнуляется...
maLoy*508 вне форума Ответить с цитированием
Старый 31.01.2010, 23:28   #3
RIO
Форумчанин
 
Аватар для RIO
 
Регистрация: 15.12.2007
Сообщений: 422
По умолчанию

Спасибо, помогло Но немного не понятно. Почему это ее нужно обнулять, ведь мы заходим в функцию каждый раз заново.
RIO вне форума Ответить с цитированием
Старый 31.01.2010, 23:29   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

В первой строке функции.
mihali4 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с циклом, Паскаль Паскалька^^ Помощь студентам 2 10.12.2009 15:37
QBasic. Проблема с циклом и погрешностью Clericos Помощь студентам 4 30.11.2009 18:16
Непонятная проблема. ROD Компьютерное железо 17 05.09.2009 11:09
проблема с печатью. непонятная ошибка. фЁдОр Общие вопросы Delphi 10 04.06.2009 13:37
Проблема с циклом.. POPOV Помощь студентам 3 29.04.2008 18:36