Witam
Używam Free Pascala. Jak przerobić tę funkcję bym mógł w niej
wyświetlić np. 100 elementów, tzn. zrobic cos takiego jak listview w
Delphi.
function menu(x,y:byte):byte;
const
szerokosc=10;
ilopcji=3;
opcje:array[1..ilopcji] of string=('Raz','Dwa','Trzy');
var
pm:byte;
i:integer;
ch:char;
begin
pm:=1;
repeat
for i:=1 to ilopcji do
begin
if i=pm then
begin
textcolor(yellow); textbackground(red);
end
else
begin
textcolor(white); textbackground(lightblue);
end;
gotoxy(x,y+i-1);
while length(opcje[i])<szerokosc do begin
opcje[i]:=opcje[i]+' '
end;
write(opcje[i]);
end;
ch:=readkey;
if ch=#0 then
begin
case readkey of
#72:dec(pm);
#80:inc(pm);
end;
if pm=0 then pm:=ilopcji;
if pm>ilopcji then pm:=1;
end;
until ch=#13;
menu:=pm
end;
begin
clrscr;
wybrano:=menu(35,12);
textbackground(black); textcolor(lightgray);
clrscr;
writeln('Wybrano pozycje menu:',wybrano);
readkey;
end.
Z góry wielkie dzięki