Ver Mensaje Individual
  #1  
Antiguo 15-11-2017
Aszael Aszael is offline
Registrado
 
Registrado: nov 2017
Posts: 7
Reputación: 0
Aszael Va por buen camino
Question Cómo lograr que un mismo procedimiento funcione para varios arreglos?

Saludos, señores. Estoy trabajando con varios arreglos y preciso que un mismo procedimiento funcione para todos ellos. Cada arreglo guarda distintos números, números que alguien introduzca a través de un Edit. Es decir:
Elem1[dim1]:=2,4,1
Elem2[dim2]:=9,8
Elem3[dim3]:=8,5,3

Tengo este procedimiento, que ordena el arreglo de menor a mayor:
Código Delphi [-]
procedure Vector.ordenarvector;
var c,m:integer;
begin
  for t:=1 to dim1 do begin
    c:=1;
    repeat
      if (elem1[t]>elem1[t+c]) and (elem1[t+c]>0)then begin
        m:=elem1[t];
        for i:=t+c to t+c do
          elem1[t]:=elem1[t+c];
        elem1[t+c]:=m
      end else
      c:=c+1;
    until c=dim1;
  end;
end;
Ahora como bien dicta la pregunta, ¿cómo puedo lograr que funcione para mis tres arreglos? Ya que este procedimiento solo me funciona para "Elem1".

Intente pasar Elem2[dim2]=9,8 a Elem1[dim1] y desde ahí ordenarlo, y luego pasarlo de Elem1 a Elem2 nuevamente, -funciona- pero interfiere con otros procedimientos que tengo.

PD: No puedo usar Sort's. Muchas gracias y saludos.
Responder Con Cita