ContentControls zufällig befüllen

[Pader1305]

Hallo Zusammen,

ich schreibe gerade ein Analysetool, um herauszufinden, ob normale Textmarken oder Content Controls schneller sind.
Nun möchte ich die Content Controls zufällig befüllen lassen und habe dies mit folgender Schleife umgesetzt.

Delphi-Quellcode:

while lLoop < 51 do
        begin
        lRandom := RandomRange(1,100);
        if lWordInstanz.ContentControls.Item(lListeMarken[lRandom]).Range.Text = 'Test' then
          begin
            continue;
          end
        else
          begin
            lWordInstanz.SelectContentControlsByTag('CC' + IntToStr(lRandom)).Item(1).Range.Text := 'Test';
            lLoop := lLoop +1;
          end;
        end;

Allerdings befüllt er nie 50 Felder, sondern immer weniger. Weiß jemand auf die Schnelle woran es liegen könnte?
Über jede Hilfe würde ich mich sehr freuen!

[Sherlock]

Was genau bei Dir schief läuft kann ich anhand des Fragments nicht sagen. Was ich aber sagen kann ist: Bei OLE Automation, die performant sein muß, immer early binding verwenden und Variante Datentypen meiden wie der Teufel das Weihwasser.

Sherlock

[Delphi.Narium]

Du befüllst per Random bis zu 50 Mal irgendein Feld. Theoretisch könnte bei Random immer die gleiche Zahl herauskommen, so dass letztlich nur ein Feld 50 mal befüllt wird und nicht 50 Felder.

Du kannst nicht davon ausgehen, dass bei 50 Aufrufen von Random auch 50 unterschieldliche Werte rauskommen.

Protokolliere doch bei

Delphi-Quellcode:

lRandom := RandomRange(1,100);

mal mit, welche Werte lRandom dabei so annimmt und ob keiner der Werte doppelt vorkommt.

[Pader1305]

Zitat:

Zitat von Delphi.Narium (Beitrag 1414005)

Du befüllst per Random bis zu 50 Mal irgendein Feld. Theoretisch könnte bei Random immer die gleiche Zahl herauskommen, so dass letztlich nur ein Feld 50 mal befüllt wird und nicht 50 Felder.

Du kannst nicht davon ausgehen, dass bei 50 Aufrufen von Random auch 50 unterschieldliche Werte rauskommen.

Protokolliere doch bei

Delphi-Quellcode:

lRandom := RandomRange(1,100);

mal mit, welche Werte lRandom dabei so annimmt und ob keiner der Werte doppelt vorkommt.

Hi, danke erstmal für eure Antworten!

Ich dachte das mache ich bereits, da ich schaue, ob in dem Feld bereits "Test" drin steht, wenn wohl soll er zum Schleifenanfang zurück und dort eine neue Zufallszahl ziehen :)

[Sherlock]

Durch den Algorithmus kannst du aber keinerlei zuverlässige Aussagen über Performance machen.

Sherlock