ListView1 и математика

[RU_KIT]

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

var
                               i : integer;
a, b, c, v, g,  a1,b1,c1,v1,g1   : variant;
begin
   if ComboBox1.Text = '' then exit;
    if (ComboBox2.Text = '')  or (ComboBox2.Text = '0') then exit else
     for i:=0 to Form10.ListView1.Items.Count-1  do
begin
      Label10.Caption:= ComboBox2.Text;
             
              c1:= Form10.ListView1.Items.Item[i].SubItems.Strings[3];
              a1:= Form10.ListView1.Items.Item[i].SubItems.Strings[4];
              b1:= Form10.ListView1.Items.Item[i].SubItems.Strings[5];
              v1:= Form10.ListView1.Items.Item[i].SubItems.Strings[6];

               a:= Form10.ListView1.Items.Item[i].SubItems.Strings[0];
               b:= Form10.ListView1.Items.Item[i].SubItems.Strings[1];
               c:= Form10.ListView1.Items.Item[i].SubItems.Strings[2];

               v:= ComboBox2.Text;

              Form10.ListView1.Items.Item[i].SubItems.Strings[4]:=FloatToStr(a1+v);
Form10.ListView1.Items.Item[i].SubItems.Strings[3]:= FloatToStr(((c-b)+c1)*v);
Form10.ListView1.Items.Item[i].SubItems.Strings[5]:= FloatToStr(a-(a1+v));


end;

Оформляйте ваш код по правилам: http://www.programmersforum.ru/showp...23&postcount=3

[Вадим Мошев]

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

Очень похоже на конкатенацию строк. Я дам такой совет. Используйте вместо Variant конкретный тип данных (integer, string) и соответствующие им операции.

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

[RU_KIT]

Сообщение от Вадим Мошев

Очень похоже на конкатенацию строк. Я дам такой совет. Используйте вместо Variant конкретный тип данных (integer, string) и соответствующие им операции.

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

Да переделал на integer теперь все ровно Спасибо!!! большое

[Вадим Мошев]

Ничего не понял. Вам помогло или нет?

[RU_KIT]

Есть только маленький нюанс есть такая строка мне нужно добавить запись и выход из программы вот пример

if a1=a then Form10.ListView1.Items.Item[i].SubItems.Strings[7]:= 'Продано'; exit  else

но так выдает ошибку как решить этот вопрос.

[RU_KIT]

Сообщение от Вадим Мошев

Ничего не понял. Вам помогло или нет?

Да мне помогло! спасибо большое

[Iron Monk]

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

Есть только маленький нюанс есть такая строка мне нужно добавить запись и выход из программы вот пример

if a1=a then Form10.ListView1.Items.Item[i].SubItems.Strings[7]:= 'Продано'; exit  else

но так выдает ошибку как решить этот вопрос.

А так?

if a1=a then 
begin
Form10.ListView1.Items.Item[i].SubItems.Strings[7]:= 'Продано'; 
exit;
end else

[Вадим Мошев]

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

Есть только маленький нюанс есть такая строка мне нужно добавить запись и выход из программы вот пример

if a1=a then Form10.ListView1.Items.Item[i].SubItems.Strings[7]:= 'Продано'; exit  else

но так выдает ошибку как решить этот вопрос.

Вот так:

if a1=a then begin
	Form10.ListView1.Items.Item[i].SubItems.Strings[7]:= 'Продано';
	exit;
end else begin
// Ваш код
end;

К прочтению: составной оператор

[RU_KIT]

О! спасибо вам большое ! все заработало

[northener]

Стесняюсь спросить причём тут математика?