Перенос из memo в edit

[Ericnex]

Есть уже заполненные в строчку числа в Memo. Когда пытаюсь вывести сумму всех чисел в memo в edit программа ничего не считает. Когда вручную ввожу числа в memo начинает считать. В чем может быть проблема?

sum:=0;
for j:=0 to Memo4.Lines.Count-1 do begin
val(Memo4.Lines.Strings[j],_tmp,code);
if code=0 then
sum:=sum+_tmp;
end;
edit1.text:=floattostr(sum);
end;

[Stilet]

Криминала в коде не вижу. Возможно ты его вообще не вызываешь когда требуется первый расчет. Поставь точку прерывания на его начало и посмотри когда она всплывет, пройдись пошагово (F8) по коду и узнай как он отрабатывает.

P.S. Возможно твоя val() падает на ошибку, а ты этот случай не отрабатываешь:

if code=0 then
sum:=sum+_tmp
else ShowMessage(Memo4.Lines[j]+' не число')

Не исключено что нужно ставить в числах точки а у тебя запятые.

[Vad33]

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

Есть уже заполненные в строчку числа в Memo. Когда пытаюсь вывести сумму всех чисел в memo в edit программа ничего не считает. Когда вручную ввожу числа в memo начинает считать. В чем может быть проблема?

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

val(Memo4.Lines.Strings[j],_tmp,code);
if code=0 then
sum:=sum+_tmp;

Лучше:

sum:=sum+strtofloatdef(trim(Memo4.Lines.Strings[j]),0);

[evg_m]

В каком месте программы вызывается приведенный код?
по каким признакам определено что не считает?

Когда пытаюсь вывести сумму всех чисел в memo в edit

Где в каком месте программы? А есть ли там что считать?

Когда вручную ввожу числа в memo начинает считать.

когда начинает ? сразу при вводе?