Potrebujem preniesť meno premennej do procedúry. Vyznelo to iste divne, preto predstavím konkrétny príklad: Ďakujem vopred.
To som trochu nepochopil-=wolf=- napísal:Je treba vytvorit record, v ktorom bude prave to tvoje pole a davat argument funkcii prave ten record.
J tých polí totiž mám viac.Kód: Vybrať všetko
type
color = (red, green, blue);
var
a: color;
.
.
.
Kód: Vybrať všetko
procedure hl_menu;
var j:byte;
e:char;
begin
readkey;
j:=1;
tabulka(' MENU ',h_menu);
repeat
e:=#10;
if keypressed then
begin
e:=readkey;
if (e=#0) then
begin
e:=readkey;
if (e=#80) then
begin
write_all(h_menu[j],25,7+2*j,tab,15);
j:=j+1;
if (j>4) then j:=1;
end;
if (e=#72) then
begin
write_all(h_menu[j],25,7+2*j,tab,15);
j:=j-1;
if j<1 then j:=4;
end;
end;
end;
write_all(h_menu[j],25,7+2*j,pasik,15);Kód: Vybrať všetko
polozky = record
h_menu:array[1..4] of string =
(' NAHRÁVANIE ',
' OPERÁCIE ',
' O PROGRAME ... ',
' KONIEC ');
nah_menu:array[1..3] of string =
(' NAHRAŤ RUČNE ',
' NAHRAŤ AUTOMATICKY ',
' SPÄŤ ');
end;
pokial programujes len proceduralne tak je to celkom legitimne rieseniedykeer napísal:Však si ich zadeklaruj v hlavnom programe ako polia, potom by mali mať status globálnej premennej a teda nič nemusíš prenášať.
Argument procedúry daš nejaký parameter, pomocou ktorého potom v procedúre cez case dostaneš to, čo chceš....Nie je to nejaké komplikované ???