Редактирование значений в Memo

[Oleg34]

Пытаюсь по заданию отредактировать текст в Memo, который содержит любые символы, в том числе и цифры. Удаляю все кроме цифр. Дальше мне нужно перемножить все эти оставшиеся цифры. Для этого (решил, что удобнее в Memo умножать по строкам) вывожу все полученные цифры в столбик (по линиям Memo). Тут у меня вылетает ошибка, но все равно в Memo все заносится как нужно. А вот дальше никак. Вот код:

PHP код:

void __fastcall TForm2::Button1Click(TObject *Sender) {
    // удаление букв
    int i;
    String ok = "123456789\n\r"; // Эти остаются, '0' удаляю тоже
    String s = Memo1->Text;

    for (int i = s.Length(); i > 0; i--)
        if (!ok.Pos(s[i]))
            s.Delete(i, 1);
    Memo2->Text = s;

    // удаление переносов (запись в одну строку)
    Memo2->Text = StringReplace(Memo2->Text, "\r\n", "",
        TReplaceFlags() << rfReplaceAll);

    // разнести каждый символ на новую строку
    AnsiString text;
    text = Memo2->Text;
    int l = text.Length();
    Memo2->Clear();
    for (i = 1; i < l + 2; i++)
        Memo2->Lines->Add(text[i]);

          int temp = 1;
        // вот тут вообще не получается :(
    // перемножение строк в цикле
    // for (i = 0; i < Memo2->Lines->Count; i++) {
    // temp= temp*StrToInt(Memo2->Lines->Strings[i]);
    // }
    // Memo2->Clear();
    // Memo2->Lines->Add(IntToStr(temp));

} 


[Serge_Bliznykov]

в мемо строки нумеруются от нуля, поэтому последняя строка имеет индекс Memo2->Lines->Count - 1:

for (i = 0; i < Memo2->Lines->Count-1; i++) {

весь ваш остальной алгоритм не смотрел, не исключаю, что там ужас-ужас...

[DpolenST]

1) Memo2->WordWrap = false; // чтобы переносы строк не появлялись при вставке текста
2) int temp = 1; // диапазон возможных значений типа int: -2147483648..2147483647

[Oleg34]

Сообщение от Serge_Bliznykov

в мемо строки нумеруются от нуля, поэтому последняя строка имеет индекс Memo2->Lines->Count - 1:

for (i = 0; i < Memo2->Lines->Count-1; i++) {

весь ваш остальной алгоритм не смотрел, не исключаю, что там ужас-ужас...

Я знаю, что с нуля. Но в строке нумерация с единицы. А у меня идет перебор индексов именно по строке которая в переменной text. Сейчас не вываливается в этом куске. Поздно ночью делал. И l у меня была l+2. А нужно, что бы l+1. А вот если выводить в Memo с нулевого индекса, то есть:

PHP код:

for (int i = 1; i < l+1 ; i++)
        Memo2->Lines->Add(text[i-1]);//сейчас с '0' и сразу беда 


То сразу вываливается в ошибку.

[Oleg34]

Сообщение от DpolenST

1) Memo2->WordWrap = false; // чтобы переносы строк не появлялись при вставке текста
2) int temp = 1; // диапазон возможных значений типа int: -2147483648..2147483647

1) Memo2->WordWrap = false; // чтобы переносы строк не появлялись при вставке текста. Вот об этом не знал! Спасибо! А вот, что Вы хотели сказать про диапазон возможных значений типа int: -2147483648..2147483647 я не понял. Сейчас не вываливается в ошибку. Не учел, что счетчик в цикле нужно задавать так

PHP код:

i < Memo2->Lines->Count-1; 


Но все равно результат не верный. На калькуляторе перемножил .

[DpolenST]

Сообщение от Oleg34

А вот, что Вы хотели сказать про [I]диапазон возможных значений типа int: -2147483648..2147483647

то что при перемножении вы можете выйти за этот диапазон, и что у вас при этом получится в ответе никто не предскажет)

[Oleg34]

Сообщение от DpolenST

то что при перемножении вы можете выйти за этот диапазон, и что у вас при этом получится в ответе никто не предскажет)

Понял! Не учел! А все таки, почему неправильно перемножает? Вроде по логике нормально?

[Oleg34]

Посмотрел в отладчике, выяснилось, что не хватает одного цикла. Заменил на это:

PHP код:

for (int i = 1; i < Memo2->Lines->Count; i++) 


сейчас правильно перемножает. Хотя тут то, как раз идет счет строкам в Memo и по логике надо начинать с i=0 и до i < Memo2->Lines->Count-1. Непонятно.

[DpolenST]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString s = Memo1->Text;
 AnsiString filt = "23456789";
 int temp = 1;
 for (int i = 1; i <= s.Length(); i++)
   if (filt.Pos(s[i])) temp = temp*StrToInt(s[i]);
 Memo2->Clear();
 Memo2->Lines->Add(IntToStr(temp));
}

[Serge_Bliznykov]

DpolenST, вот! точно!

я бы лично, если бы умел программить на C, написал бы примерно так:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 AnsiString s = Memo1->Text;
 int temp = 1;
 for (int i = 1; i <= s.Length(); i++)
   if (s[i]>'1'  && s[i]<='9') temp = temp*StrToInt(s[i]);
 Memo2->Text = IntToStr(temp);
}

но это просто как один из вариантов решения....
ваш вариант вполне адекватный и рабочий!