(M)eine Seite für 40tude Dialog

Eingebaute Funktionen:

• function randomNumber ( max : integer ) : integer;
  Zufallszahl zwischen 0 und max
• function split(fText: String;fSep: Char):TStringList;
  Trennt den String fText am Zeichen fSep
• procedure legeDateiAn ( dateiname: string );
  Legt, falls nicht vorhanden, die Datei dateiname an
• function RepeatChar( c : Char; count : Integer) : String;
  Wiederholt das Zeichen c count Mal
• function CountChars( s : String; c : Char) : Integer;
  Zählt, wie oft c in s vorkommt
• function CutGenerations(NGName : String; Trenner : String ): Pchar;
  Verkürzt den Newsgroup-Namen NGName auf ihre Initialen und trennt die Buchstaben mittels Trenner