Abwechselnt Funktion 1 oder 2 aufrufen

[SyntaxXx]

Hallo wieder einmal habe ich ein Problem.

Ich habe eine .dll Datei erstellt.
Soweit kein Problem.

Darin habe ich jetzt eine funktion, die ca. 6000 Konstante enthällt.
Jetzt kommt es zu einem Fehler:

"Zu viele lokale Konstanten. Verwenden Sie kürzere Prozeduren."

So jetzt habe ich mir gedacht, teile ich die Funktionen auf.
jetzt ist nur die frage, wie mache ich dass, das per zufall funktion 1 oder funktion 2 aufgerufen wird?
Kann auch abwechselt sein.
Das ist mir ganz egal.

Gibts nicht irgendwie so einen Befehl:
Random(Funktion1 or Funktion2) ?

Ihr könnt mir doch bestimmt nen Tipp geben wie ich da sam blödsten mache.

[fishly]

Delphi-Quellcode:

type
   TForm1 = class(TForm)
     Button1: TButton;
     procedure Button1Click(Sender: TObject) ;
     procedure CallMeByName(Sender: TObject) ;
   private
     procedure ExecMethod(OnObject: TObject; MethodName: string) ;
   end;

var
   Form1: TForm1;

type
   TExec = procedure of object;

procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ;
var
   Routine: TMethod;
   Exec: TExec;
begin
   Routine.Data := Pointer(OnObject) ;
   Routine.Code := OnObject.MethodAddress(MethodName) ;
   if NOT Assigned(Routine.Code) then Exit;
   Exec := TExec(Routine) ;
   Exec;
end;

procedure TForm1.CallMeByName(Sender: TObject) ;
begin
   ShowMessage('Hello Delphi!') ;
end;

procedure TForm1.Button1Click(Sender: TObject) ;
begin
   ExecMethod(Form1, 'CallMeByName') ;
end;

Quelle: http://delphi.about.com/cs/adptips20...ltip0204_3.htm

Sollte dir weiterhelfen...
random kannst du ja bestimmt dann selbst einbauen

lg fishly

[Phoenix]

Zitat von SyntaxXx:

Darin habe ich jetzt eine funktion, die ca. 6000 Konstante enthällt.

Erm.. ich würde jede Wette eingehen, dass da an dem Design Deiner Funktionen etwas nicht stimmt.
WOZU in aller Welt braucht man so viele Konstanten?

[himitsu]

Zitat von Phoenix:

WOZU in aller Welt braucht man so viele Konstanten?

Das ist zwar eine gute Frage, aber viel mehr interessiert mich Dieses:

Zitat:

jetzt ist nur die frage, wie mache ich dass, das per zufall funktion 1 oder funktion 2 aufgerufen wird?
Kann auch abwechselt sein.
Das ist mir ganz egal.

- Dir ist also egal, was die Funktion macht? Dann lösch einfach ein paar Konstanten.
- Wieso zufällig, bzw. was macht diese Funktion eigentlich?

[SyntaxXx]

Ganz einfach,
ich hab ein Array mit gut 6000 indexen( Ka wie das auch immer heißen mag) erstellt, und jedes dieser "Indexe" hat einen namen.

Und die Funktion gibt einfach per zufall einen Namen aus.
Deswegen wäre es egal, wenns durch zufall funktion1 oder funktion2 nimmt.

Habs schon getestet mit 120 Konstanten "Namen", da funktioniert das ohne Probleme.

Delphi-Quellcode:

var Firstnames: Array[0..5918] of string;
function Rndfirstname : string; stdcall;
begin
randomize;
  Firstnames[0] := 'Aabel';
  Firstnames[1] := 'Aabid';
  Firstnames[2] := 'Aabo';
  Firstnames[3] := 'Aabraham';
  Firstnames[4] := 'Aadam';
  Firstnames[5] := 'Aadolf';

etc.

[omata]

Warum ein konstantes Array? Wie wäre es mit einer TStringList?

[SyntaxXx]

Hmmm verdammt, das hätte mir auch einfallen können.
Aber sicher das man so so viele Sachen verwalten kann?

Nicht das nachher wieder so ein Problem auftaucht

[Neutral General]

Zitat von omata:

Warum ein konstantes Array? Wie wäre es mit einer TStringList?

..., in die du eine Datei mit den ganzen Namen lädst?

[himitsu]

Zitat von omata:

Warum ein konstantes Array?

Warum erst eine Array-Variable mit vielen String-Konstanten füllen, dann einen String auswählen und danach alles wieder wegschmeißen,
anstatt einer Array-Konstante?

Delphi-Quellcode:

const Firstnames: Array[0..5918] of string = (
 'Aabel', 'Aabid', 'Aabo', 'Aabraham', 'Aadam', 'Aadolf',
  ...);

function Rndfirstname : string; stdcall;
begin

PS: Ob StringList oder Array, an den lokalen Stringkonstanten würde es nix ändern.
Also wenn unbedingt String-Konstanten, dann wäre ein CASE besser.

PSS: Randomize ruft man nur einmal im Programm auf und nicht mehrmals/immer wieder.

[SyntaxXx]

Doofe frage, aber wenn ich es so amche wie du jetzt sagst, also so:

Delphi-Quellcode:

const Firstnames: Array[0..5918] of  string =  (
'Aabel', 'Aabid', 'Aabo', 'Aabraham', 'Aadam', 'Aadolf',
  ...);

function Rndfirstname : string; stdcall;
begin

Wie rufe ich dann einen Random Wert aus dem Array auf?