Object Pascal : Random string

Er der ingen idag ?

Nå... prøvede mig lidt frem... fik stykket følgende kode sammen... men den virker ikke !

procedure PowerSlap;
  // Modified by Rune Jacobsen, crazh@gmx.net
  // Takes a random word from powerslap.ini and slaps !
var
  fil: TStringList;
begin
  randomize;
  fil:=TStringList.Create;
  fil.LoadFromFile(powerslap.ini);
  result:=fil.Strings[random(fil.count)];
    Act('slaps ' + User + ' with ' + result + '...');
  fil.free;
end;

Det originale script er her :

begin
  // yes, I have intentionally reversed the
  // slap so linux users slap with a window
  // and windows users slap with a penguin :)
  if LowerCase(OS) = 'linux' then
    Act('slaps ' + User + ' around a bit with a flying window (tm)')
  else
    Act('slaps ' + User + ' around a bit with Tux, the Linux Penguin');
end;

det manglede en linje i original-sciptet :
procedure SlapEm;
begin
  // yes, I have intentionally reversed the
  // slap so linux users slap with a window
  // and windows users slap with a penguin :)
  if LowerCase(OS) = 'linux' then
    Act('slaps ' + User + ' around a bit with a flying window (tm)')
  else
    Act('slaps ' + User + ' around a bit with Tux, the Linux Penguin');
end;

Stadig interesseret? Jeg kan godt lave sådan et script til dig :)

Meneehh... det er jo egentlig et program :)

Nej, det virker nu. Fik en IRL ven til at hjælpe. Så ellers tak.