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;
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;
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.
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;
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;
Har ikke lige tid nu, så kan du ikke adde mig på nr.: 147741921
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.