Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Ayuda con orden de Stringgrid. (https://www.clubdelphi.com/foros/showthread.php?t=79467)

Josephjht 08-07-2012 18:20:35

Ayuda con orden de Stringgrid.
 
quien me ayuda a pasar este codigo a c++ builder, no idea.

// Tipos Básicos:
type
vectorM=array[1..100] of char;

//Variables Globales:
var
M: integer;
vec1: vectorM;

procedure ordenavector( var vec1:vectorM;
m: integer);
var

i,j: integer;
c: char;
begin
for i:=1 to (m-1) do
begin
for j:=(i+1) to m do
begin
if vec1[i]> vec1[j] then
begin
c:=vec1[i];
vec1[i]:=vec1[j];
vec1[j]:= c;
end;
end;
end;

end;


en un stringgrid para ordenar por cedula los datos de un individuo

Casimiro Noteví 08-07-2012 19:09:59

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración :)


Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

ecfisa 08-07-2012 22:08:39

Hola Josephjht.

Es muy difícil de leer tu código tál como está. Como te sugiere Casimiro, utiliza las etiquetas [code] TU_CODIGO_C++_AQUI [/code] para darle la siguiente apariencia:
Código:

#include<iostream.h>
#include<conio.h>

#define MAX_USO 7
#define MAX_ELEM 100

typedef char vectorM[MAX_ELEM];

/* variables globales (innecesarias en este caso ) */
int M;
vectorM vec1;

void ordenavector(vectorM v, int m)
{
  char c;
  for(int i= 0; i < m; i++)
    for(int j = i+1; j <= m; j++)
      if(v[i] > v[j]) {
        c = v[i];
        v[i] = v[j];
        v[j] = c;
      }
}

/* Ejemplo del uso */
int main(int argc, char* argv[])
{
vectorM v = {'X','B','D','T','U','A','Z','L'}; /* darle unos valores */

  ordenavector(v, MAX_USO); /* ordenar */
  for(int i=0; i<= MAX_USO; i++) cout << v[i]; /* mostrar ordenado */
  getch();
}

Saludos.:)

Josephjht 09-07-2012 03:53:47

gRACIas
 
Muchas gracias we, un saludo.


La franja horaria es GMT +2. Ahora son las 23:06:03.

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