如何求最大和最小值？ (40分)

Y

yourid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #1

我有一个TStringList型的变量，存有一些正负数，现在想找出其中的最大和最小值，
我用如下方法为什么不可以呢？我该怎么改？
var min,maxouble;
for I:=0 to yvalue.Count-1 do
begin
min:=Min(Strtofloat(yvalue),Strtofloat(yvalue[I+1]));
max:=Max(Strtofloat(yvalue),Strtofloat(yvalue[I+1]));
end;

 

番

番番

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #2

var min,maxouble;
min:=Min(Strtofloat(yvalue[0]),Strtofloat(yvalue[1]));
max:=Max(Strtofloat(yvalue[0]),Strtofloat(yvalue[1]));
for I:=2 to yvalue.Count-1 do
begin
min:=Min(min,Strtofloat(yvalue));
max:=Max(max,Strtofloat(yvalue));
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #3

TO:番番
Delphi不区分大小写的，你的程序能编译吗？

 

Y

yourid

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-21

• #4

thanks