May 13th, 2004, 11:42 PM
|
 |
Banned ;)
|
|
Join Date: Nov 2001
Location: Glendale, Los Angeles County, California, USA
|
|
Code:
var
stlList : TStringList;
index : integer;
ret : string;
begin
Result := '';
try
Randomize;
stlList := TStringList.Create;
stlList.LoadFromFile('file.txt');
index := random(stlList.Count - 1);
Result := stlList.strings[index];
finally
stlList.Free;
end;
end;
__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne
Puzzle of the Month solved by Keath and KevinADC, superior perl programmers of the month
|
Dev Shed Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
