함수를 만들어서 사용하셔야 합니다..

다만, 배열의 시작과 끝을 알 수 있는 함수는 있습니다..





From 류..



---------



Function Max(a:Array of Byte):Byte;

Var

Loop : Integer;

begin

Result:= a[Low(a)];

For Loop:= Low(a)+1 to High(a) do

// 배열의 시작과 끝

If Result < a[Loop] then Result:= a[Loop];

end;



procedure TForm1.Button1Click(Sender: TObject);

Var

b : Array of Byte;

begin

SetLength(b, 3);

b[0]:= 5;

b[1]:= 12;

b[2]:= 4;



Caption:= IntToStr(Max(b));

end;





델파이 왕초보 wrote:

> 왕초보입니다.

> 질문이 유치하지만, 답변 부탁드립니다.

>

> KMCondlist: array[1..50] of integer;

> 로 선언했습니다.

>

> KMCondlist내부에는(0,1,2,3,4,5,,,,2,1,,,,)

> 이런 식으로 데이타 입력되었다고 했을 때,

> 최고값은 어떤 방법으로 찾게 되나요.

>

> max와 같은 함수가 있는지 궁금합니다.

친절한 답변 감사드립니다.