|
Ok, Gracias, intentare hacer eso.
Pude ordenar la primera columna e intente organizar la segunda junto con esta pero no me ha funcionado. Me da un error.
If (AIdcargo[s]>AIdcargo[s+1]) then
Begin
tmp:=AIdCargo[s];
temp:=ACargo[s];
AIdCargo[s]:=AIdcargo[s+1];
ACargo[s]:=ACargo[s+1];
AIdCargo[s+1]:=tmp;
ACargo[s+1]:=temp;
|