Alles kamp mod alle

Du skal loade alle din brugere op i memory, således du ved hvormange du har .. Der efter skal du køre kombinatorik gennem det ....
Kig på http://www.eksperten.dk/spm/33265

Jens B

Her er en simpel rutine der gør det du vil, uafhængigt af hvor mange personer der er. Tag en form med 2 listboxe og en knap. Fyld alle navnene ind i listbox1 og sær følgende procedure på knappens onklin event:

Procedure allemodalle
var i,j : integer;
begin
  if listbox1.items.count > 1 then
  begin
    for i := 0 to listbox1.items.count -2 do
    begin
      for j := i+1 to listbox1.items.count -1 do
      begin
        listbox2.items.add(listbox1.items[i]+\' mod \'+listbox1.items[j]);
      end;
    end;
  end;
end;

Derefter er det bare at flytte alle linier i listbox2 til databasen.

Spørger du efter et databaseprogram?!?!?
Det er sq da noget af det nemmeste man kan lave.
Det er bare at få brugeren til at intaste nogle oplysninger, og så bliver oplysnigerne gemt i tekst-filer.

Så nemt er det.

LSN