Permutaciones de un numero

[CoCaInE]

la base de datos es en paradox. pero mejor seria que me den un ejemplo por codigo.....

o existe alguna funcion , perdone son novato

[nemesio]

Realiza las combinaciones posibles que en tu caso serían seis. Supongamos que cada combinación la guardas en un arreglo de longitud 6, luego harías una consulta que se me ocurre puede ser así aunque no la he probado:
Query1.close;
Query1.ParamByname('Var1').Value:=Comb1;
Query1.ParamByname('Var2').Value:=Comb2;
.........
Query1.SQL.add('select campo1,campo2,.... from tabla where campo1=:Var1 or campo1=:Var2 or campo1=:var3 or campo1=:var4........')
Query1.execSQL;
Query1.Open;

Puedes validar que los numeros que generaste no se repitan para que optimices el código. Pero así como está debería funcionarte.

[[Lepe]]

Otra forma es guardarlo en un string y usar algo así:

Código Delphi [-]
query1.sql.text := 'select * from tabla where campo in ('321', '123', '213')'

Saludos

[CoCaInE]

Bueno ya un amigo me ha dado la solucion pero el caso esta en que este me repite los numeros ejemplo yo le entro el 553 y me genera las posibles combinaciones pero me repite los numeros varias veces.

553
535
553
535
355
355

El codigo es este

Código Delphi [-]
 
cadena:=Edit1.Text;
  Memo1.Lines.Add(cadena[1]+cadena[2]+cadena[3]);
  Memo1.Lines.Add(cadena[1]+cadena[3]+cadena[2]);
  Memo1.Lines.Add(cadena[2]+cadena[1]+cadena[3]);
  Memo1.Lines.Add(cadena[2]+cadena[3]+cadena[1]);
  Memo1.Lines.Add(cadena[3]+cadena[1]+cadena[2]);
  Memo1.Lines.Add(cadena[3]+cadena[2]+cadena[1]);

Alguna sugerencia

[[Lepe]]

La propiedad Lines del Memo es un TStrings, compatible con un TStringList, este último tiene la propiedad Duplicates que se puede establecer en dupIgnore, de esta forma al repetir una cadena... obviamente la ignora y no la añade.

Código Delphi [-]
var X :TStringList;
begin
X := Tstringlist.create;
x.sorted := true; // debe estar ordenado para ignorar duplicados
x.Duplilcates := dupIgnore;
X.Add('uno');
X.Add('uno'); // este no se añade por estar duplicado
Memo1.Lines.Assign(X); // sustituimos lo que hay en el memo por X (sin duplicados)
Memo1.Lines.Add(X); // tambien podemos añadir los textos al memo, sin borrar lo que haya
X.Free;// destruimos la lista.

Saludos

[CoCaInE]

Disculpenme por la tardanza para contestar pero es el trabajo que me ocupa de mucho al igual que ustedes.

Realmente lo que necesito es que si tengo un numero por ejemplo de cuatro cifra 2343 que me genere las posibles combinaciones para ese numero sin repetirlo y que me diga cuantas combinaciones se generaron para guardar en una variable X..

[[Lepe]]

Falta quitar los duplicados, pero lo más gordo está hecho. No lo he testeado a fondo, pero creo que funciona. Está hecho a lo bruto, por simples intercambios de caracteres:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    edt1: TEdit;
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var pivot, str:string;
    i, saltos,idx: Integer;
begin

  saltos := 1;
  mmo1.lines.Add(edt1.Text);
  for i := 1 to Length(edt1.Text) do
  begin
    str := edt1.Text+#0;
    saltos := 1;
    pivot := str[i];
    mmo1.lines.Add('------- Nuevo Pivot: '+pivot+' ---');
    Delete(str,i,1);
    str := pivot + str; // pasamos el pivot al primer caracter de la cadena
    idx := 2;
    while saltos < length(str)-1 do
    begin
      Application.ProcessMessages;
      if idx = length(str)-1 then
      begin
        inc(saltos);
        idx := 2;
        mmo1.lines.Add('------salto-----------');
      end
      else
      begin
        str := Copy(str,1,idx-1) + str[idx+1] + str[idx]+ Copy(str,idx+2,255);
        inc(idx);
        mmo1.lines.Add(str);
      end;
    end;

  end;
end;

end.

Saludos

[vtdeleon]

OffTopic

Con el permiso otorgado por CoCaine, he cambiado el titulo del hilo para que el titulo coincida con el contenido de éste, y para futura busqueda.


Saludos