Exakte Addition langer Zahlen

[xewo]

Hallo, wenn ich den Threadstarter richtig verstanden habe, dann meint er sowas:

Delphi-Quellcode:

procedure TForm1.BtnBerechnenClick(Sender: TObject);
  var
  Zahl1,Zahl2,Ergebnis,TempUE : String;
  UEbertrag, Temp1, Temp2, TempE, Laenge, i : Integer;
begin
  Zahl1 := EdZahl1.Text;
  Zahl2 := EdZahl2.Text;
  UEbertrag := 0;

  if length(Zahl1) > length (Zahl2) then
    Laenge := length(Zahl1)
  else
  if length(Zahl2) > length (Zahl1) then
    Laenge := length(Zahl2)
  else
  if length(Zahl2) = length (Zahl1) then
    Laenge := length(Zahl1);

  for i := 0 to Laenge-1 do
    begin
      if length(Zahl1) -i < 0 then
        begin
          Temp2 := StrToInt(Zahl2[length(Zahl2) - i]);
          Temp1 := 0;
          UEbertrag := 0;
        end
      else
      if length(Zahl2) -i < 0 then
        begin
          Temp1 := StrToInt(Zahl1[length(Zahl1) - i]);
          Temp2 := 0;
          UEbertrag := 0;
        end
      else
      begin
        Temp1 := StrToInt(Zahl1[length(Zahl1) - i]);
        Temp2 := StrToInt(Zahl2[length(Zahl2) - i]);
      end;

      if Temp1+Temp2+UEbertrag >= 10 then
        begin
          TempUE := IntToStr(Temp1 + Temp2 + UEbertrag);
          Ergebnis := TempUE[2] + Ergebnis;
          UEbertrag := StrToInt(TempUE[1]);
        end
      else
        begin
          Ergebnis := IntToStr(Temp1 + Temp2 + UEbertrag)[1] + Ergebnis;
          UEbertrag := 0;
        end;
    end;
    EdErgebnis.Text := Ergebnis;
end;

mfg xewo