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

[Chemiker]

Hallo,

ich verwende die Hilfe von Delphi 7 und dort ist eine Funktion:
function RandomFrom(const AValues: array of string): string; overload; angegeben.
In BDS 2006 ist diese Function nicht mehr vorhanden, oder hat sich die Bezeichnung geändert?

Bis bald Chemiker

[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!

[littleDave]

Zitat von Delphi 7 Hilfe:

Unit
Math oder StrUtils

Hast du mal die Units eingebunden (hab auch kein BDS, daher kann ich nicht groß weiterhelfen)

[Chemiker]

Hallo,

@Medium:
Ich habe mich nur gewundert, weil mir der Compiler immer einen Fehler ausgegeben hat.
Ich habe deshalb vermutet, dass es an meinem Array liegt.
Klar kann man sie nachbauen, aber es ist doch mehrwürdig, dass in einer neueren Delphi-Version eine Function gestrichen wird.

@littelDave:
Beide Units sind eingebunden und im Quellcode ist die Function in BDS 2006 nur mit Integer, Double und Int64 vorhanden.

Bis bald Chemiker

[Assertor]

Zitat von Chemiker:

In BDS 2006 ist diese Function nicht mehr vorhanden, oder hat sich die Bezeichnung geändert?

Also ich finde die sofort in BDS 2006:

Delphi-Quellcode:

StrUtils.pas:
{ RandomFrom will randomly return one of the given strings }
function RandomFrom(const AValues: array of string): string; overload;

Math.pas:
{ Various random functions }
function RandomFrom(const AValues: array of Integer): Integer; overload;
function RandomFrom(const AValues: array of Int64): Int64; overload;
function RandomFrom(const AValues: array of Double): Double; overload;

Gruß Assertor

[Chemiker]

Hallo,

ich nehme alles zurück.
Hatte die Unit: StrUtils nicht in der Richtigen Unit eingebunden und unter der BDS 2006 Hilfe wurden nur die 3 Funktionen mit den Zahlen angezeigt.

Mein Fehler, trotzdem Danke für die Hilfe.

Bis bald Chemiker