Передача результата функции как String

[Alex Cones]

Var
 Res:String;
begin
  Res := Bla-bla-bla('45445');
  MEMResult.Text := Res;

Function Bla-bla-bla(F:String) : String;

   Result := RESString; {Здесь RESString = '0046'}

И вылет с ошибкой :


Что делать?

[russian-stalker]

Отладчиком пробегались? Просто без кода-это просто тычки пальцем в небо.

[Alex Cones]

Дык если б не пробегся не спросил бы.

До строки

Result := RESString;

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

P.S. То, что функа лежит в другом юните может сказаться?
----
Сделал вот так:

For I := 1 to Length(RESString) do
     Result := Result + RESString[I];

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

[Alex Cones]

Так, ладно, уговорили, предъявляю код.
Пишу модуль для работы с длинной арифметикой. Сейчас готова функция сложения, считает правильно, RESString получает правильное значение, но при передаче выбивает ошибку.

unit ALXCNSLongMath;

interface

Uses
  SysUtils; (* Для StrToInt и IntToStr *)

Function LongCalc(FSTValue, SNDValue : String; Operation : Char) : String;

implementation

Function LongCalc(FSTValue, SNDValue : String; Operation : Char) : String;
 Var
  FSTValueBin : Array of Byte; (* Первое число                  *)
  SNDValueBin : Array of Byte; (* Второе число                  *)
  RESValueBin : Array of Byte; (* Для результата                *)
  I           : LongInt;       (* Для перевода из STRING в BYTE *)
  MaxSize     : LongInt;       (* Для цикла по обработке        *)
  Sum         : Byte;          (* Сумма сложения двух ячеек     *)
  RESString   : String;        (* Для результата конечного      *)
 Begin
  SetLength(FSTValueBin, Length(FSTValue) + 2); (* Установим    *)
  SetLength(SNDValueBin, Length(SNDValue) + 2); (* длины        *)
  SetLength(RESValueBin, Length(FSTValue) + 2); (* массивов     *)

  For I := 1 to Length(FSTValueBin) do FSTValueBin[I] := 0; (* Удалим   *)
  For I := 1 to Length(SNDValueBin) do SNDValueBin[I] := 0; (* мусор    *)
  For I := 1 to Length(RESValueBin) do RESValueBin[I] := 0; (* массивов *)

  For I := 1 to Length(FSTValue) do         (* Заполним байтовые массивы *)
   FSTValueBin[I - 1] := Ord(FSTValue[Length(FSTValue) - ( I - 1 )]) - 48;
  For I := 1 to Length(SNDValue) do         (* Заполним байтовые массивы *)
   SNDValueBin[I - 1] := Ord(SNDValue[Length(SNDValue) - ( I - 1 )]) - 48;

  If Operation = '+' Then  (* Операция сложения *)
   Begin
    MaxSize := Length(SNDValue);  (* Если второе > первого или они равны *)
    If Length(FSTValueBin) > Length(SNDValueBin) Then
     MaxSize := Length(FSTValue); (* Если первое больше второго          *)
    For I := 0 to MaxSize - 1 do  (* Начинаем обработку                  *)
     Begin
      Sum := FSTValueBin[I] + SNDValueBin[I]; (* Складываем ячейки        *)
      While Sum > 9 do                        (* Sum должно быть меньше 9 *)
       Begin
        Dec(Sum, 10);                         (* Откусим у Sum             *)
        Inc(FSTValueBin[I + 1], 1);           (* и добавим это в           *)
       End;                                   (* следующий разряд [ I + 1] *)
      RESValueBin[I] := Sum;                  (* Наконец получим результат *)
     End;
    RESString := '';
    For I := 1 to Length(RESValueBin) do RESString := RESString + '0';
    For I := 1 to Length(RESValueBin) do       (* "Развернем" результат    *)
     RESString[Length(RESValueBin) - I + 1] := Chr(RESValueBin[I - 1] + 48);
   End;
  For I := 1 to Length(RESString) do
   Result := Result + RESString[I];
 End;

end.

[russian-stalker]

Складывает не правильно. И работает не со всеми цифрами.

[Alex Cones]

Складывает не правильно

С чего вдруг? 12+34=46

И работает не со всеми цифрами

Покажите на примере.

[russian-stalker]

9+9=8

Нашёл проблемные строки:

  SetLength(FSTValueBin, Length(FSTValue)); (* Óñòàíîâèì    *)
  SetLength(SNDValueBin, Length(SNDValue)); (* äëèíû        *)
  SetLength(RESValueBin, Length(FSTValue)); (* ìàññèâîâ     *)

Так всё работает, но обрезает строки
upd:
Работает опять не со всеми числами, но проблема в этих строках

[OCTAGRAM]

Вообще, в таких случаях желательно врубать проверку ошибок на полную мощность.

[evg_m]

Inc(FSTValueBin[I + 1], 1);           (* и добавим это в           *)

при переносе ПОСЛЕДНЕГО (i=length(...))


не проще ли было бы организовать цикл вычислений без инвертирования
for i:=length(...) downto 0
....
Inc(FSTValueBin[I - 1], 1);

[Alex Cones]

НАШЕЛ!!! Проблема была в этой строке (будь проклята моя невнимательность!):

 Inc(RESValueBin[I + 1], 1);

И теперь даже результат возвращает! Чу-де-са!