Cancel ved inputbox

Har du lidt kode?

det er så linje 9 vi taler om:

procedure TForm1.NytClick(Sender: TObject);
var
spil: string;
begin
  alle.Visible:=false;
  alle.Lines.clear;
  edit1.Visible:=true;
  ford.visible:=true;
  antal.Caption:=inputbox('Antal Spillere','Indtast Antal Spillere','');
//  spil:=antal.Caption;
//  if not spil in rigtige then exit;
  antalv:=strtoint(antal.Caption);
  antalv:=antalv+1;
  nummer.Caption:='1';
  nummerv:=1;
  form1.ordet.Lines.LoadFromFile('data\ord.txt');
  j:=form1.ordet.Lines.Count;
  a:=random(j);
  rigtigord:=ordet.lines[a];
  forklaring.Lines.LoadFromFile('data\forklaring.txt');
  label1.Caption:=ordet.lines[a];
  alle.Lines[0]:=forklaring.Lines[a];
end;

Du skal checke værdien af antal.caption efter kaldet til inputbox.

    antal.Caption:=inputbox('Antal Spillere','Indtast Antal Spillere','');
  if antal.Caption='' then
        exit;

hvis brugeren trykker Cancel indeholder antal.Caption default værdien, dvs. blank.

tak.

du lægger bare et svar

ok