RandomFrom(array of string) in BDS 2006 nicht mehr vorhanden

[Medium]

Ich kann zwar die Frage mangels BDS 2006 nicht beantworten, aber die Funktion ist doch sehr einfach nachbaubar:

Delphi-Quellcode:

function RandomFrom(const AValues: array of string): string;
begin
  result := AValues[Random(Length(AValues))];
end;

(Ja, Length(AValues) weil Random einen Wert von 0 bis Argument-1 zurück gibt.)

Edith hat unnötige Quotes entfernt, und ein paar Klammern verbessert. Was tät ich ohne Edith!