VPF::Вывод в MaskEdit суммы чисел - Форум программистов

Letion

Дата 28.5.2010, 13:54 (ссылка)

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

Загрузка ...

Новичок

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

Репутация: нет
Всего: 0

Добрый день, Уважаемые профессионалы! Создаю программу, в которой в MaskEdit вписываю 6 чисел (числа должны быть от 0 до 9). Эти числа должны складываться и выводиться в тот же компонент MaskEdit. Но почему то программа не правильно суммируется. Вот мой код процедуры:

Код


procedure TForm1.BitBtn1Click(Sender: TObject);
const
  Nums: array['0'..'9'] of Byte = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9);
var
  I, V: Integer;
  Code, Sum: Integer;
  S: String;
begin
  Sum := 0;
  V := 0;
  S := MaskEdit1.Text;
  Val(S, V, Code);
  if Code > 0 then
  begin
    for I := 1 To Length(S) do
      Inc(Sum, Nums[S[I]]);
      ShowMessage(IntToStr(Sum));
  end
  else
    ShowMessage('Ошибка ввода');
end;

Не пойму где ошибка. Со стороны виднее, может заметите в чем дело? Спасибо!

cyberstream

Дата 28.5.2010, 17:05 (ссылка)

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

Загрузка ...

Шустрый

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

Репутация: нет
Всего: 4

Код


  if Code = 0 then
  begin
    for I := 1 To Length(S) do
      Inc(Sum, Nums[S[I]]);
      ShowMessage(IntToStr(Sum));
  end
  else
    ShowMessage('Ошибка ввода в ' +IntToStr(Code)+'-м символе');

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

Не знаешь кого спросить? - Спроси google!

Letion

Дата 31.5.2010, 10:31 (ссылка)

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

Загрузка ...

Новичок

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

Репутация: нет
Всего: 0

Цитата(cyberstream @ 28.5.2010, 17:05)

Код


  if Code = 0 then
  begin
    for I := 1 To Length(S) do
      Inc(Sum, Nums[S[I]]);
      ShowMessage(IntToStr(Sum));
  end
  else
    ShowMessage('Ошибка ввода в ' +IntToStr(Code)+'-м символе');

Спасибо за подсказку - все работает!

Letion

Дата 31.5.2010, 20:20 (ссылка)

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

Загрузка ...

Новичок

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

Репутация: нет
Всего: 0

По программе еще возник такой вопрос: есть такое условие, если сумма вводимых чисел больше 50, то нужно сложить их вновь, то есть будет уже (5+0)=5 к примеру. То как это условие создать?

Код


if sum>50 then
    begin
    for j := 1 To Length(sum)do
    Inc(Sum2, Nums[(Sum)[j]]);
    end;
sum:=sum2;

???

Добавлено через 10 минут и 10 секунд

Цитата(Letion @ 31.5.2010, 20:20)

Код


if sum>50 then
    begin
    for j := 1 To Length(sum)do
    Inc(Sum2, Nums[(Sum)[j]]);
    end;
sum:=sum2;

Нашел выход smile

Код


if sum>50 then
    begin
   for j := 1 To Length(IntToStr(Sum))do
    Inc(Sum2, Nums[(IntToStr(Sum))[j]]);
    sum:=sum2;

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