Нужна помощь с выводом через ListBox

[sv2311]

procedure TForm1.Button1Click(Sender: TObject);
var Rh,dR,Rl,U:integer;
p:array [1..10] of real;
begin
dR:=StrToInt(Edit1.Text);
U:=StrToInt(Edit2.Text);
Rl:=1;
for Rh:=1 to 10 do begin
p[Rh]:=sqr(U)*Rh/sqr(Rh+Rl);
Rl:=Rl+dR;
end;
for Rh:=1 to 10 do
P:=ListBox1.Items.Strings[Rh];
end; - [b]этот вывод в конце не хочет пахать -что не так (ListBox1.Items[Rh].Add(IntToStr(P)); - так тоже не пахает)

[/b]

[Student2007]

вы хотите вывести содержимое массива в листбокс?

Добавлено спустя 2 минуты 16 секунд:

ListBox1.Items[Rh].Add(IntToStr(P))

это больше похоже на правду, только в массиве у нас числа вещественного типа, а функция работает с числами целого типа.. вместо IntToStr надо floatToStr, ну и скобку закрывающую вы пропустили.

[sv2311]

ListBox1.Items[Rh].Add(IntToStr(P))

это больше похоже на правду, только в массиве у нас числа вещественного типа, а функция работает с числами целого типа.. вместо IntToStr надо floatToStr, ну и скобку закрывающую вы пропустили.[/quote]


Да вывести в ListBox!

что-то типа того нужно ListBox1.Items[Rh].Add(floatToStr(P));???

([Error] Unit1.pas(42): Record, object or class type required) вот что выдает(

[Student2007]

sv2311
хм... что-т ляпы начал делать...
пробуйте тогда так:):

ListBox1.Items.Add(FloatToStr(P[rh]));

[sv2311]

Спасибо!вроде просто- наверно уже бошка не варит! еще раз спасибо

[Student2007]

sv2311
она у меня постоянно не варит:)