Умножение\Сложение\Сравнение чисел

[WeezyWayne]

Код:

var
a:integer;
begin
for a:=Memo1.Lines.Count-1 downto 0 do
begin
if (StrToFloat(Copy(Memo1.Lines[a],Pos('[Price1]',Memo1.Lines[a])+14,Pos('[/Price1]',Memo1.Lines[a])
-Pos('[WithoutPrice]',Memo1.Lines[a])-14))<= StrToFloat(Format('%1.2f', [StrToFloat(Copy(Memo1.Lines[a],Pos('[Price]',Memo1.Lines[a])
+7,Pos('[/Price]',Memo1.Lines[a])-Pos('[Price]',Memo1.Lines[a])-7))*StrToFloat('0,'+Edit7.Text)
+StrToFloat(Copy(Memo1.Lines[a],Pos('[Price]',Memo1.Lines[a])+7,Pos('[/Price]',Memo1.Lines[a])-Pos('[Price]',Memo1.Lines[a])-7))])))  then

 begin
Memo1.Lines.Delete(a);
 end
 else
 begin
Memo2.Lines.Add(Memo1.Lines[a])
 end;
end;
end;

В Memo1 данные такого типа:

[Price]3,30[/Price][Price1]3,21[/Price1]
[Price]1,20[/Price][Price1]3,81[/Price1]
[Price]4,28[/Price][Price1]2,31[/Price1]

Код должен сравнивать 2 числа между тегами [Price][/Price] и [Price1][/Price1], но с начала он должен определить 30% от числа в теге [Price][/Price] и прибавить их к нему же, а потом уже сравнить.
Определяет по такой формуле :
Допустим что наше число 2 и нам нужно получить 30% от него 2*0,30+2.
Если число в тегах [Price][/Price] после добавления 30% меньше [Price][/Price1], то удаляем строку в memo1, если же наоборот, то добавляем всю строку в memo2.
Код проверял, вроде бы нормально состряпал, но как доходит до дела, то он не всегда правильно кидает в memo2.
Просмотрите его, может быть я что не так понял

[eval]

кто ж в этом ужасе разбираться будет?

вы бы по проще писали, тогда и вопросы не появлялись, наверное

[WeezyWayne]

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

кто ж в этом ужасе разбираться будет?

вы бы по проще писали, тогда и вопросы не появлялись, наверное

Не много подправил, но куда проще этого уже не знаю

var
a:integer;
price,price1:Extended;
begin
price:=StrToFloat(Copy(Memo1.Lines[a],Pos('[Price]',Memo1.Lines[a])+7,Pos('[/Price]',Memo1.Lines[a])-Pos('[Price]',Memo1.Lines[a])-7));
price1:=StrToFloat(Copy(Memo1.Lines[a],Pos('[Price1]',Memo1.Lines[a])+8,Pos('[/Price1]',Memo1.Lines[a])-Pos('[Price1]',Memo1.Lines[a])-8));
for a:=Memo1.Lines.Count-1 downto 0 do
begin
if price1 <= StrToFloat(Format('%1.2f', [price*StrToFloat('0,'+Edit7.Text)+price])) then
 begin
Memo1.Lines.Delete(a);
 end
 else
 begin
Memo2.Lines.Add(Memo1.Lines[a])
 end;
end;
end;

[Utkin]

Разбейте это чудовище на нормальные шаги:
1. Извлечение price
2. Извлечение price1
3. Ваша бизнес-логика, также разбитая на этапы
3a. к примеру priice30=price*1.3
Ну и так далее.

[WeezyWayne]

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

Разбейте это чудовище на нормальные шаги:
1. Извлечение price
2. Извлечение price1
3. Ваша бизнес-логика, также разбитая на этапы
3a. к примеру priice30=price*1.3
Ну и так далее.

Дак по сути не чего не изменится, только лишь код станет более читабелен.
Или же я ошибаюсь ?
Просто не когда не задумывался что объём функции может повлиять на работоспособность.

[Аватар]

Как раз плохая читабельность и затрудняет поиск ошибки

[WeezyWayne]

Сообщение от Аватар

Как раз плохая читабельность и затрудняет поиск ошибки

Вот что намалевал

var
a:integer;
price,price1,calc:Extended;
begin
price:=StrToFloat(Copy(Memo1.Lines[a],Pos('[Price]',Memo1.Lines[a])+7,Pos('[/Price]',Memo1.Lines[a])-Pos('[Price]',Memo1.Lines[a])-7));
price1:=StrToFloat(Copy(Memo1.Lines[a],Pos('[Price1]',Memo1.Lines[a])+8,Pos('[/Price1]',Memo1.Lines[a])-Pos('[Price1]',Memo1.Lines[a])-8));
calc:=price + (price/100*20);
for a:=Memo1.Lines.Count-1 downto 0 do
begin
if price1 <= StrToFloat(Format('%1.2f', [calc])) then
 begin
Memo1.Lines.Delete(a);
 end
 else
 begin
Memo2.Lines.Add(Memo1.Lines[a])
 end;
end;
end;

Щас по другому вычисляю. Надеюсь будет работать, пока что нет возможности проверить

[eval]

StrToFloat(Format('%1.2f', [calc]))

это лажа, переливание из пустого в порожнее

[WeezyWayne]

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

это лажа, переливание из пустого в порожнее

Мне нужно ограничить числа после запятой и это первое что я нагуглил)

[Utkin]

Для начала нужно подключить модуль математических функций Math, чтобы получить доступ к интересующим нас функциям.

Синтаксис функции RoundTo() таков:

RoundTo(число; кол-во_знаков);

function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;


Здесь AValue – округляемое число типа Double, объявленное как константа. ADigit – порядок округления, то есть фактически количество знаков, которое должно остаться в дробной части после округления. ADigit также объявлен как константа типа TRoundToRange. Сама функция тоже имеет тип Double. На будущее заметим, что опытные программисты используют для хранения вещественных чисел не Double, а Extended, как более точный тип. Кроме того, для чисел, округляемых не более чем до четвертого знака после запятой, можно использовать тип Currency, который хранит данные как масштабированное целое значение, исключая проблему с погрешностями при вычислениях.

Как бэ нагуглилось - лень самому описывать.