[blezigens]

Доброго времени суток!
у меня есть вопрос по сложению чисел
например мне надо сложить число формата
5.2.4 с 6.2.4 так чтоб в конце получился ответ 11.4.8
Помогите кто с чем может?

[x128]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  n1,n2: TStringList;
begin
  n1:=TStringList.Create;
  n2:=TStringList.Create;
  ExtractStrings(['.'], [], PChar(edit1.Text), n1);
  ExtractStrings(['.'], [], PChar(edit2.Text), n2);
  edit3.Text:=IntToStr(StrToInt(n1[0])+StrToInt(n2[0]))+'.'+
              IntToStr(StrToInt(n1[1])+StrToInt(n2[1]))+'.'+
              IntToStr(StrToInt(n1[2])+StrToInt(n2[2]));
  n1.Destroy;
  n2.Destroy;
end;

Такой вариант решения пододет?

[blezigens]

мне бы чтоб он брал числа из edit1 и edit2?

[Kailon]

Сейчас забабахаем

[blezigens]

Спасибо

[x128]

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

мне бы чтоб он брал числа из edit1 и edit2?

так там и есть, из edit1 и edit2 беруться числа, а в edit3 пишется результат

[blezigens]

Можго ли сделать так если
n1:TStringList больше n2:TStringList
то совершаеться действие
и как это сделать

[Kailon]

На попробуй функцию писанную на скорую руку

Код:

function MyPlus(OneStr, TwoStr: String): String;
var
 TempOne, TempTwo, Otvet: String;
 One, Two, Res: Integer;
begin
 TempOne := OneStr + '.';
 TempTwo := TwoStr + '.';
 while (Length(TempOne) <> 0) and (Length(TempTwo) <> 0) do
 begin
  One := StrToInt(Copy(TempOne,1,Pos('.',TempOne) - 1));
  Two := StrToInt(Copy(TempTwo,1,Pos('.',TempTwo) - 1));
  Res := One + Two;
  Otvet := Otvet + IntToStr(Res) + '.';
  Delete(TempOne,1,Pos('.',TempOne));
  Delete(TempTwo,1,Pos('.',TempTwo));
 end;
 Delete(Otvet,Length(Otvet),1);
 Result := Otvet;
end;

ограничения: должно быть равное кол-во групп и использовать только точки в качестве разделителя групп