Тема: Вывод в Memo
Показать сообщение отдельно
  #1  
Старый 19.05.2012, 15:20
YorikBir YorikBir вне форума
Прохожий
 
Регистрация: 19.05.2012
Сообщения: 4
Репутация: 10
По умолчанию Вывод в Memo

Здравствуйте все, нужна помощь. Есть форма, на форме 3 Edita, Button и memo. В едиты вводятся данные, и при нажатии на кнопку в мемо выскакивало 2 списка. Мне не понятен сам смысл вывода в компонент мемо, я только начинаю изучать Делфи так-что не ругайте.

Вот код
Код:
var V,P0,n:integer;
 V0,P:real;
begin
V:=StrtoInt(Edit1.Text);
P0:=StrtoInt(Edit2.Text);
V0:=StrtoInt(Edit3.Text);
n:=10 ;
while(n<50) do
begin
n:=n+10;
P:=P0*(exp(n*ln(V/(V+V0))));
Memo1.Lines.Add(IntToStr(n)+' : '+IntToStr(P));
end;
repeat
n:=n+50;
P:=P0*(exp(n*ln(V/(V+V0))));
Memo1.Lines.Add(IntToStr(n)+' : '+IntToStr(P));
Until(n=250);
end;
Админ: Пользуемся тегами для оформления кода!

Пробовал из интернета вставить строку, но не работает, помогите поправить код.
Ответить с цитированием