Hi,

wie könne man eine zufälligen, gültigen Fontnamen erstellen?


Ich weiss, wie man mit random() umgeht, aber nicht, wie und wo ich die Fonts herkriege.

Vielen Dank + Gruss: Daniel

AFAIR gibt es in Screen.Fonts eine Liste. Kann auch in einer anderen Klasse sein, aber irgendwo in der VCL gibt es eine solche Eigenschaft.

Jo, mein Vorschlag.
Du müsstest erst mal rausbekommen wieviele Fonts zu verfügung stehen! Also das FontArray durchsuchen. Hast Du diese Zahl, kannst Du sie zufällig generieren und dann das FontArray mit der gefundenen Zahl ansprechen. Mal so mein Gedanke.

Gruss ALf

Screen.Fonts ist eine Stringlist. Demnach müsste folgendes funktionieren:



lg elundril

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

sänks ä lott !

edit:
ich glaube, ohne -1:
Result := Screen.Fonts[Random(Screen.Fonts.Count)];

Mit -1, denn Count ist nur die Anzahl der Arrayelemente, das Array geht aber von 0..Count-1, Beispiel:
Wenn ich ein Array habe, welches von 0 bis 3 geht, hab ich 4 Elemente, nämlich 0, 1, 2, und 3.
Und damit du nicht versuchst, auf ein Arrayelement zuzugreifen, welches gar nicht existiert (Beim Random(Count) könnte ja auch zufällig mal Count rauskommen, aber das Array geht ja nur bis Count-1), musst du eben entsprechend 1 abziehen.
Edit: Tatsächlich Ohne -1, siehe Gausis Post unten.

Viele Grüße,
Stundenplan.

Ne, ohne -1, denn Random(x) liefert eine Zahl größer oder gleich 0 und echt kleiner x.

ebend

oh, ich dachte kleiner gleich. sorry, ich verbessere es mal schnell.

lg elundril

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

Gausi hat folgendes geschrieben :

Ne, ohne -1, denn Random(x) liefert eine Zahl größer oder gleich 0 und echt kleiner x.

Oder anders gesagt: random(n) hat n mögliche Ausgaben, bei 0 beginnend.