Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2017
Aszael Aszael is offline
Registrado
 
Registrado: nov 2017
Posts: 7
Poder: 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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como abrir varios archivos.txt en un mismo Memo albelg Varios 5 18-05-2015 18:16:39
ayuda para lograr ejecutables pequeños michal C++ Builder 12 25-02-2015 20:02:43
Como hago para que funcione una aplicacion Firebird sin motor tulio Firebird e Interbase 2 04-07-2014 18:28:15
Lograr que funcione bien un richTextBox REHome .NET 2 06-12-2009 22:10:53
Usar un solo procedimiento almacendado para restar o sumar valores a un mismo registro Chogo Trucos 2 11-05-2007 18:39:01


La franja horaria es GMT +2. Ahora son las 18:06:48.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi