løkke forfra igen

du kan bruge et delphi set til det skulle jeg mene.

unit Unit1;

interface

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

type

  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  usedTabs:set of 1..250;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 250 do
    if(not (i in usedTabs))then
    begin
      ListBox1.Items.Add(IntToStr(i));
      usedTabs:=usedTabs+[i];
      break;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

  usedTabs:=usedTabs-[StrToInt(ListBox1.Items[ListBox1.ItemIndex])];
  ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

end.

put 1 list box og 2 knapper på formen for at se eksemplet husk at navn give dem rigtigt(burde være rigtigt default), og link knapperne til deres funktioner.

bare brug en GOTO funkton:

http://www.delphibasics.co.uk/RTL.asp?Name=Goto

Hmm nej det kan jeg da ikke. Ville jo gerne have den kun skulle fortsætte med løkken hvis idet allerede fantes. Men kan selvfølgelig bare lave en løkke som er sat til måske 20. Så vil den tjekke 20 gange igennem, ligegyldigt hvad. Men det er altså ikke særlig smart. For vil nu gerne have der kunne være en milliard sider åbne!

den eneste reele sandhed i der er at min kode kun tilladte et id på 250, i tilfælde at du ikke ved det exiter et break en forløkke og da der står et break inde i if en if sætning der tjekkede om for løkkens tæller i ikke var i sættet ville for løkken breake på det første tilgængelige i der ikke var i sættet og dermed havde du fundet dit id som ville være værdien af i.

Mener iøvrigt ikke at det er særligt sagligt at sige du godt vil have 1 milliard sider ådne da hvis ikke din maskine er brudt sammen længe inde det så vil din tabcontrol formentlig være fuldkommen ubruglig og hvis man antar at det tager en person 1 sekund at åbne en ny side så ville det tage personen et sted i omegnen af 761 år at åbne så mange sider hvad såvidt vides er væsentlig længere end den længst levende mands levetid.