🚀 go-pugleaf

> I then need a routine that can output this:
>
> 1234
> 1243
> 1324
> 1342
> 1423
> 1432

OSV......

Unden at v�re nogen haj, kan jeg ikke se, hvordan man opbygger en s�dan
struktur (hvis vi taler om variabelt antal cifre) uden en form for
selvgenererende kode. Da jeg endnu ikke er nogen haj til alm. programering,
har jeg ikke nogen anelse om, hvordan man laver s�dan noget. Men hvad jeg
kan er at leve et program der generer en sql-s�tning der l�ser problemet.

F�lgende er lavet i delphi(pascal), og hvis du skal bruge et andet sprog, m�
du selv skrive den om. Proceduren er testet!

procedure TForm1.Button1Click(Sender: TObject);
var
temp: string;
i,j : integer;
begin
with query1.SQL do
 begin
  clear;
  temp:='SELECT tab1.tal as T1';
  if table1.RecordCount>1 then
   for i:=2 to table1.recordcount do
    temp:=temp+', tab'+inttostr(i)+'.tal as T'+inttostr(i);
  add(temp);
  temp:='FROM tabel1 as tab1';
  if table1.RecordCount>1 then
   for i:=2 to table1.recordcount do
    temp:=temp+', tabel1 as tab'+inttostr(i);
  add(temp);

  if table1.RecordCount>1 then
   begin
    temp:='WHERE NOT (';
    for i:=1 to table1.recordcount-1 do
     for j:=i+1 to table1.recordcount do
      begin
       temp:=temp+'tab'+inttostr(i)+'.tal=tab'+inttostr(j)+'.tal';
       if (j<>table1.recordcount) or (i+1<>table1.recordcount) then
temp:=temp+' OR ';
      end;
    add(temp+')');
   end;
 end;
query1.open;
end;

Der var den! Fedt!