Revisión de código

[danielmj]

Hola mamcx,
Tal vez tienes razón, pero creo que es obvio que yo no me dedico a esto de la programación, ni tengo una carrera en sistemas, análisis o informática en general. Para mí es un hobby, y lo mucho o poco que sé es por los 5 años de fp en informática de gestión del 95 al 2000, y ya ha llovido desde entonces como para acordarme de la mayoría de las cosas amén que muchas otras jamás vi.
Es cierto que encontré el código en un foro, pero tengo que coger un poco de aquí y un poco de allí podrá formar una especie de puzzle que me permita evadir mi falta de conocimientos que seguro tu tienes.

Yo vengo aquí buscando ayuda y lo único que puedo dar a cambio es la intención. La intención en intentarlo una y otra vez, buscando aquí y allá y sumando lo poco que sé.
Por otra parte, no he ignorado el consejo de Casimiro, se leer e interpretar un algoritmo sobre papel siempre y cuando esté dentro de mi alcance. En este caso no lo está por eso pregunto. Sino, no podría hacer este programa. Voy a ser más concreto.. en el código que ya tenía, conseguía generar números aleatorios sin repetir, el problema es que desconozco la sintaxis para agregar el contenido del listbox al listview x número de veces.
Antes dije, que estudie 5 años de informática de gestión, pero nunca use programas con interfaz gráfica, siempre fueron Pascal 7 y COBOL para MSDOS ambos. Lo poco que sé de Delphi y su manejo en entornos gráficos, ha sido por cuenta propia de ahí que no conozca tantas rutinas o formas de realizar un programa como podais tener vosotros.

En fin, no me extiendo más, esto lo digo sin ánimo de acritud y su estoy resultando muy pesado, pues me lo decís y yo recojo los bártulos y me voy tal como vine.
Ahora mismo estoy en el curro, fuera de turno pero en el curro, cuando llegue a casa miraré tu código.
Gracias por todo a todos.

[Casimiro Notevi]

Empezado por danielmj

el problema es que desconozco la sintaxis para agregar el contenido del listbox al listview x número de veces.

El último ejemplo de ecfisa hace eso.

Empezado por danielmj

pero nunca use programas con interfaz gráfica, siempre fueron Pascal 7 y COBOL para MSDOS ambos.

Eso te comenté antes, que no necesitas la parte gráfica, porque hace al programa muy lento. Fíjate en el código que ha puesto mamcx, no usa la interfaz gráfica tampoco.
Eso es algo opcional para presentar finalmente los números, o los botones, etc. pero no es necesario para la ejecución del programa.

Empezado por danielmj

En fin, no me extiendo más, esto lo digo sin ánimo de acritud y su estoy resultando muy pesado, pues me lo decís y yo recojo los bártulos y me voy tal como vine.

Nada hombre, con un poco de paciencia y poquito a poquito, verás como lo consigues, pero no debes "empecinarte" en cuestiones gráficas, sino en la rutina de funcionamiento del programa.

[danielmj]

gracias Casimiro, en un rato tengo que salir hacia la oficina del trabajo pero mientras me pongo a revisar codigos. Un saludo.

[danielmj]

Hola bucanero, estoy teniendo problemas con la linea "record helper for" lazarus no la reconoce, al parecer se implementó a partir de la version XE3. Intengo encontrar algo similar pero por ahora nada. Así que no puedo probar tu codigo. Saludos.
Por cierto, tengo d7 corriendo en linux y tampoco lo reconoce.

[bucanero]

Veo que en lazarus los HELPER son un poco distintos a DELPHI,

prueba de la siguiente forma:

Código Delphi [-]
{$mode objfpc}{$H+}
{$MODESWITCH TYPEHELPERS}

uses SysUtils;

type
  TCombinacion = Int64;
  TCombinacionHelper = type helper for TCombinacion
  private
    function GetNumero(ANum: byte): Boolean;
    function AsString(const value: TCombinacion): string; overload;
    function GetCount: Integer;
  public
    procedure AddNumero(const ANum: byte);                 // Inserta un numero en la combinacion
    procedure aleatorio;                                   // rellena con una combinacion aleatoria
    function AsString: string; overload;                   // devuelve la combinacion como un string
    procedure clear;                                       // vacia la combinacion
    function comparar(const combinacion: TCombinacion): Tcombinacion;
    function obtenerComunes(const combinacion: Tcombinacion): string;

    property Count:Integer read GetCount;                  // Indica cuantos numeros tiene esta combinacion
    // esta propiedad es para comparar si un determinado numero pertenece a la combinación
    property Numero[ANum:byte]:Boolean read GetNumero;

    // añadir tantos metodos load como sea necesarios
    function load(list: array of Byte): boolean; overload; // carga una combinacion determinada
  published
  end;

[danielmj]

Hola bucanero, estoy mirando tu codigo y hay un par de cosas que no consigo "llevar" a mis intereses, es decir, que no consigo implementarlo.

if not Combinacion1.load([1, 5, 8, 13, 33]) then begin

Se le pasa una combinación dada, pero cuando entre los corchetes como valor pongo "1, 45, 33, 14, 20, 22" salta el msg diciendo que la combinacion no es valida. Entonces mi duda es, teniendo en cuenta que esa combinación estaría formada por los numeros mas repetidos entre 50.000 combinaciones aleatorias (por ejemplo) y que sería comparada con cada una de esas combinaciones ¿por que da error?
Tu codigo hace 2 cosas, primero genera una serie de aleatorios y luego lo compara con una combinacion dada, pero lo que intento es por ejemplo generar x numero de combinaciones repetidas y metidas en un listview, de ella extraigo los numeros mas repetidos y sobre esa unica combinacion, hago las comparaciones. Pero no puedo por que en el momento en que "combinaicon.load es distitno, el programa se detiene.

[bucanero]

Hola Danielmj

El error te lo da por la pre-condición establecida donde estas debe tener siempre 5 elementos a la hora de leerla, puedes quitar esa condición, o añadirle otras que tu consideres.

Código Delphi [-]
const
  MaxCount: integer = 5;

  ...
  
function TCombinacionHelper.load(list: array of Byte): boolean;
var
  i: LongInt;
begin
  Result := False;
  clear;
  // if length(list) = MaxCount then begin   //<-- Quita esta linea 
    for i := 0 to High(list) do
      AddNumero(list[i]);
    Result := true;
  // end;    //<-- Quita esta linea
end;

Empezado por danielmj

...
lo que intento es por ejemplo generar x numero de combinaciones repetidas y metidas en un listview, de ella extraigo los numeros mas repetidos y sobre esa unica combinacion, hago las comparaciones.

Para operar olvídate del listview, (al fin y al cabo mostrar 5000 o 10000 combinaciones la mayoría inutiles no le es interesante al usuario) usalo solamente una vez que tengas los resultados esperados con las combinaciones ya filtradas. Ademas al ser un componente visual no obtendrás la velocidad adecuada. Haz las operaciones sobre array que es mucho mas rápido. aquí tienes un ejemplo:

Código Delphi [-]
var
  i:longint;
  combinacion1, comunes:Tcombinacion;
  cs1: string;
  lista:  array of TCombinacion;
begin
  try
    setLength(lista, 5000);
    //rellenar una lista de 5000 elementos con una combinación aleatoria
    for i:=0 to high(lista) do
      lista[i].aleatorio;

    //cargar la combinación maestra
    if not Combinacion1.load([1, 45, 33, 14, 20, 22]) then begin
      MessageDlg('La combinacion no es valida!!!', mtError, [mbOK], 0);
      exit;
    end;

    // guarda la combinacion1 en un string,
    // esto es solamente por acelerar el proceso a la hora de mostrar la combinacion
    // como string y no repetirlo en cada ciclo del bucle
    cs1 := Combinacion1.AsString;
    //recorre el bucle para analizar todas las combinaciones con la combinacion principal
    for i := 0 to high(lista) do begin
      /// compara una combinacion con otra y obtine los comunes a ambas combinaciones
      comunes := lista[i].comparar(Combinacion1);
      /// si el valor es 0 entonces no hay numeros comunes
      if comunes <> 0 then
        memo1.Lines.Add(cs1 + #9 + lista[i].AsString + #9 + '(' + IntToStr(comunes.count) + ') ' + comunes.AsString);
    end;
  finally
    setLength(lista, 0);
  end;

Un saludo