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

[саша40]

А убрать теги нафиг не судьба? Поставь вместо них простые символы: /, *, + , -, = и т.п. И будет тебе проще.

[Stilet]

Мне кажется тут не убирать теги нужно, а применять регулярные выражения. ИМХО проще будет чем представленный способ.
И это при том что автор не сказал откуда эти данные, и какова их структура. Может они повторяются как таблица, может еще что...

[WeezyWayne]

Сообщение от саша40

А убрать теги нафиг не судьба? Поставь вместо них простые символы: /, *, + , -, = и т.п. И будет тебе проще.

Изначально так и было, но там много данных и мне пришлось поставить их в теги, что бы не запутаться.

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

Мне кажется тут не убирать теги нужно, а применять регулярные выражения. ИМХО проще будет чем представленный способ.
И это при том что автор не сказал откуда эти данные, и какова их структура. Может они повторяются как таблица, может еще что...

Для меня регулярки не будут простым способом). Да и вроде бы проблема не в тегах, инфа же нормально собирается с них

[WeezyWayne]

Всё, всем спасибо. Вот мой конечный вариант, который вроде бы работает :

var
a:integer;
price,price1,calc:Extended;
begin
for a:=Memo1.Lines.Count-1 downto 0 do
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);
if (StrToFloat(Format('%1.2f', [calc])) >= price1) then
 begin
Memo1.Lines.Delete(a);
 end
 else
 begin
Memo2.Lines.Add(Memo1.Lines[a])
end;
end;
end;

Тему можно закрывать

[eval]

как была лажа так и осталась, в чем секрет?

[WeezyWayne]

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

как была лажа так и осталась, в чем секрет?

Ну на сколько я понял, проблема была в выполнении математических действий.

[doktor255]

var
a:integer;
price,price1,calc:Extended;
begin
for a:=Memo1.Lines.Count-1 downto 0 do
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);
if (StrToFloat(Format('%1.2f', [calc])) >= price1) then
 begin
Memo1.Lines.Delete(a);
 end
 else
 begin
Memo2.Lines.Add(Memo1.Lines[a])
end;
end;
end;

var
a:integer;
price,price1,calc:Extended;
begin
for a:=Memo1.Lines.Count-1 downto 0 do
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);
if (StrToFloat(Format('%1.2f', [calc])) >= price1) then
 Memo1.Lines.Delete(a) else
  Memo2.Lines.Add(Memo1.Lines[a])
end;
end;

Где красивее?

[Utkin]

Ну на сколько я понял, проблема была в выполнении математических действий.

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

А где-то в параллельной Вселенной люди внимательно читают что им пишут другие и знают о RoundTo. Такие люди понимают что окружающие это не просто тени, а добрые, улыбчивые дяди в белых халатах (иногда с не вкусными витаминками, иногда со шприцами) и пытаются им помочь. Но помощь не просто мана небесная, которая исполняет все их желания, а она другая. Только тот кто думает сам, способен найти вход (а главное выход) в Матрицу...

[doktor255]

Utkin Просто в середине фильма синие колёса кончились, и дальше мы ели только красные. А от них так башню рвёт, отвал башки

[WeezyWayne]

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

var
a:integer;
price,price1,calc:Extended;
begin
for a:=Memo1.Lines.Count-1 downto 0 do
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);
if (StrToFloat(Format('%1.2f', [calc])) >= price1) then
 begin
Memo1.Lines.Delete(a);
 end
 else
 begin
Memo2.Lines.Add(Memo1.Lines[a])
end;
end;
end;

var
a:integer;
price,price1,calc:Extended;
begin
for a:=Memo1.Lines.Count-1 downto 0 do
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);
if (StrToFloat(Format('%1.2f', [calc])) >= price1) then
 Memo1.Lines.Delete(a) else
  Memo2.Lines.Add(Memo1.Lines[a])
end;
end;

Где красивее?

В оригинале у меня больше действий, это было для примера. Так что без begin end не обойтись

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

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

А где-то в параллельной Вселенной люди внимательно читают что им пишут другие и знают о RoundTo. Такие люди понимают что окружающие это не просто тени, а добрые, улыбчивые дяди в белых халатах (иногда с не вкусными витаминками, иногда со шприцами) и пытаются им помочь. Но помощь не просто мана небесная, которая исполняет все их желания, а она другая. Только тот кто думает сам, способен найти вход (а главное выход) в Матрицу...

Если бы мне объяснили что Format каким то образом очень плохо влияет на мою ауру, то может быть я бы и использовал RoundTo.
Использую Format и получаю 2 своих числа после запятой, что в принципе
меня устраивает, так что не вижу существенной проблемы