ввести через memo

[maxbutter]

text использовать нельзя, только lines. помогите найти ошибку.

var n,b:real;
begin
 
 b:=strtofloat(memo1.lines[0]);
 n:=strtofloat(memo2.lines[0]);

 if n<0 then
 n:=n*b
 else if n=0 then
 n:=n*2*b
 else
 n:=n*3*b;
 edit1.Text:=FloatToStr(n);
end;

end.

[Valio]

Какого рода ошибка?
Какое задание?

А также следует ознакомится с функцией Format().

[maxbutter]

ошибки в окне сообщений нет, она есть уже после запуска программмы и нажатия на button

[Valio]

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

ошибки в окне сообщений нет, она есть уже после запуска программмы и нажатия на button

Аааа, я понял. Мне нужно угадать, что это за ошибка? И задание я тоже должен угадать вероятно.

Ну попробую с первым:

b:=strtofloat(memo1.lines[0]);

Ошибка вызвана тем, что идёт попытка преобразовать строку в число, хотя строка этим числом не является.

Чтонить эдакое:

[Serge_Bliznykov]

угадайка продолжается!

если Memo1 и/или Memo2 будут пустыми - то тоже будет ошибка.

[veniside]

а ещё кто-то прогуливал школу, когда там учили умножению

if n=0 then
 n:=n*2*b

[Valio]

Гениально )))

[maxbutter]

n*b, если n<0

n= n*2b, если n=0

n*3b, если n>0
ввести через мемо вывод через эдит

[Serge_Bliznykov]

n= n*2b, если n=0

т.е. умножение Вы всё таки не учили?!!

[maxbutter]

такое условие дал преподаватель, по-поводу этого понятно. по-поводу программы ничего не можете сказать?