Programming Forums > Application Development > Delphi

Sniper · Mar 14th, 2005, 8:03 AM

I need some sample code so I can creat a random script which randomizes 2 or more text strings.

I know you can use "random(5)" to get a random number from 0 to 4 but not sure how I can use text!

the reason I want to do this is because I want to change the text colour of a lbl between 3 different colours.

thanks

PhaseR · Apr 2nd, 2005, 8:28 AM

it's simple. you can use random for numbers, so you can create an array with all the colours and then chose between them using random.

(Toggle Plain Text)

var a:array[0..10] of string;
...
a[0] = 'clWhite';
a[1] = 'clBlack';
a[2] = 'clRed';
a[3] = 'clBlue';
...
mylabel.color = a[random(3)];

Meka][Meka · Oct 30th, 2005, 6:04 AM

and if you want to go deeper into colourizing, you can use RGB, you could even define a set number of colours in an array using the RGB method

(Toggle Plain Text)

  Randomize;
  lblColour.Color := RGB(Random(255),Random(255),Random(255));

ekamaloff · Oct 30th, 2005, 10:50 PM

It would be better

:

(Toggle Plain Text)

Randomize;
lblColour.Color := RGB(Random(256),Random(256),Random(256));

Meka][Meka · Nov 1st, 2005, 3:53 AM

Quote:

Originally Posted by ekamaloff

It would be better

:

(Toggle Plain Text)

Randomize;
lblColour.Color := RGB(Random(256),Random(256),Random(256));

no... there is no such thing as RGB(256,256,256), this is byte sizes not mb of ram etc....255 is highest u can go, 256 is out of bounds....

RGB(255,255,255) = $FFFFFF = clWhite

Mar 14th, 2005, 8:03 AM	#1
Sniper Newbie Join Date: Mar 2005 Posts: 1 Rep Power: 0	random text in delphi I need some sample code so I can creat a random script which randomizes 2 or more text strings. I know you can use "random(5)" to get a random number from 0 to 4 but not sure how I can use text! the reason I want to do this is because I want to change the text colour of a lbl between 3 different colours. thanks __________________ Do you need computer help? then visit Hardware Forums - Zone 365 Love Gadgets? so do we! Visit Gadget Forums

Apr 2nd, 2005, 8:28 AM	#2
PhaseR Newbie Join Date: Mar 2005 Posts: 2 Rep Power: 0	it's simple. you can use random for numbers, so you can create an array with all the colours and then chose between them using random. (Toggle Plain Text) var a:array[0..10] of string; ... a[0] = 'clWhite'; a[1] = 'clBlack'; a[2] = 'clRed'; a[3] = 'clBlue'; ... mylabel.color = a[random(3)]; var a:array[0..10] of string; ... a[0] = 'clWhite'; a[1] = 'clBlack'; a[2] = 'clRed'; a[3] = 'clBlue'; ... mylabel.color = a[random(3)];

Oct 30th, 2005, 6:04 AM	#3
Meka][Meka Newbie Join Date: Oct 2005 Posts: 6 Rep Power: 0	and if you want to go deeper into colourizing, you can use RGB, you could even define a set number of colours in an array using the RGB method (Toggle Plain Text) Randomize; lblColour.Color := RGB(Random(255),Random(255),Random(255)); Randomize; lblColour.Color := RGB(Random(255),Random(255),Random(255)); __________________ ']['�AM�LiT� Meka-Meka Programming Forums

Oct 30th, 2005, 10:50 PM	#4
ekamaloff Newbie Join Date: Oct 2005 Posts: 3 Rep Power: 0	It would be better : (Toggle Plain Text) Randomize; lblColour.Color := RGB(Random(256),Random(256),Random(256)); Randomize; lblColour.Color := RGB(Random(256),Random(256),Random(256));

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Delphi

random text in delphi