Generer 15 tilfældige cifre...

procedure TForm1.FormActivate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(Random(999999999999999));
end;

function RandomStr(C: Integer): String;
begin
  while C>0 do
  begin
    Result := Result + IntToStr(Random(10));
    Dec(C);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(RandomStr(15));
end;

initialization
  Randomize;
end.

Rettelse: Du gør sådan her


procedure TForm1.FormActivate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  Label1.Caption := '';
  for i := 1 to 15 do
    Label1.Caption := Label1.Caption + IntToStr(Random(9));
end;

På 15 cifre, og ikke minus!

procedure TForm1.Button1Click(Sender: TObject);
var
  i: 1..15;
  tmpStr: String;
begin
  tmpStr := IntToStr(random(9)+1);
  for i := 1 to 14 do
    tmpStr := tmpStr + IntToStr(random(10));
  ShowMessage(tmpStr);
end;

Uanset hvilke du vælger så husk at kør Randomize når ddu starter dit program

Lige nu kan jeg se at morten_s' svar virker korrekt, men hvordan fungerer dit cms?

mit virker kun korekt hvis du udskifter 9 med 10 i
Label1.Caption := Label1.Caption + IntToStr(Random(10));

CMS'es løsning svare til min han har bare lagt den i en function

Kan det lade sig gøre sådan...

F.eks. 0000-00000-0000
0'erne er cifre...?

deacon>>Du siger at morten_s's virker korrekt ? må det 15 cifrede tal godt starte med et 0 ? hvis det må, så brug mortens ellers brug min. den sikrer at der ikke startes med et 0.

/SpEeDy

Altså, kan man gøre sådan at de 15 cifre er ialt tal + bindestreg.
Dvs. at når man trykker på det button ser det sådan ud:
4 cifre-5 cifre-4cifre ?

(Bindestreg)

Prøv sådan her

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  TmpStr1, TmpStr2 : string;
begin
  Label1.Caption := '';
  for i := 1 to 15 do
    Label1.Caption := Label1.Caption + IntToStr(Random(10));
  TmpStr1 := Label1.Caption;
  TmpStr2 := '';
  for i := 1 to 4 do
    TmpStr2 := TmpStr2 + TmpStr1[i];
  TmpStr2 := TmpStr2 + '-';
  for i := 5 to 9 do
    TmpStr2 := TmpStr2 + TmpStr1[i];
  TmpStr2 := TmpStr2 + '-';
  for i := 10 to 15 do
    TmpStr2 := TmpStr2 + TmpStr1[i];
  TmpStr2 := TmpStr2 + '-';
  Label1.Caption := TmpStr2;

end;

den sidste bindestreg er for meget

Ja, men den bliver genereret sådan

xxxx-xxxxx-xxxxxx

Den skal genereres med xxxx-xxxxx-xxxx

x er cifre...

ja men så har du jo kun brug for 13 tal *GGG*

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  TmpStr1, TmpStr2 : string;
begin
  Label1.Caption := '';
  for i := 1 to 13 do
    Label1.Caption := Label1.Caption + IntToStr(Random(10));
  TmpStr1 := Label1.Caption;
  TmpStr2 := '';
  for i := 1 to 4 do
    TmpStr2 := TmpStr2 + TmpStr1[i];
  TmpStr2 := TmpStr2 + '-';
  for i := 5 to 9 do
    TmpStr2 := TmpStr2 + TmpStr1[i];
  TmpStr2 := TmpStr2 + '-';
  for i := 10 to 13 do
    TmpStr2 := TmpStr2 + TmpStr1[i];
  Label1.Caption := TmpStr2;
end;

I får begge jeres points, selvom morten_s lige hjalp en tand mere med :)

Kan jeg forresten få dit ICQ nr., morten_s?

Har ikke lige tid nu, så kan du ikke adde mig på nr.: 147741921