[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
ATEXTGEN.INT

 { ---------------------------------------------------------------- }
 {                   T E X T - G E N E R A T O R                    }
 { ---------------------------------------------------------------- }
 { Stellt Methoden und H.ufigkeitstabellen zur Verf.gung, um m.g-   }
 { lichst realit.tsnahe Zufallstexte zu erzeugen.                   }
 { Aufgrund des "relativ" hohen Speicherbedarfes ist die Tabellen-  }
 { struktur etwas kompliziert, weshalb auch entsprechende Zugriffs- }
 { methoden zur Verf.gung gestellt werden.                          }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }

 UNIT ATextGen;

 INTERFACE

   USES
     Literat;


 { ---------------------------------------------------------------- }
 { Rechnet die angegebene Tabellenposition in den entsprechenden    }
 { Zeichencode um.                                                  }
 { ---------------------------------------------------------------- }

   FUNCTION Tab2Asc (TabPos : BYTE) : CHAR;


 { ---------------------------------------------------------------- }
 { Rechnet den angegebenen Zeichencode in die entsprechende Tabel-  }
 { lenposition um.                                                  }
 { ---------------------------------------------------------------- }

   FUNCTION Asc2Tab (Ch : CHAR) : BYTE;


 { ---------------------------------------------------------------- }
 { Liefert einen Zufallswert im Bereich 0 <= x <= Range - ist not-  }
 { wenig, da Turbo's RANDOM nur den Bereich des WORD-Wertbereiches  }
 { als Parameter zul..t, hier jedoch gr..ere Werte ben.tigt werden. }
 { ---------------------------------------------------------------- }

   FUNCTION Rand (Range : LONGINT) : LONGINT;


 { ---------------------------------------------------------------- }
 { Liefert ein zuf.lliges Zeichen unter Ber.cksichtigung der Zei-   }
 { chenh.ufigkeiten.                                                }
 { ---------------------------------------------------------------- }

   FUNCTION GetRandomChar : CHAR;


 { ---------------------------------------------------------------- }
 { Liefert ein zuf.lliges Zeichen unter Ber.cksichtigung der Zei-   }
 { chenh.ufigkeiten und der Wahrscheinlichkeit der Zeichenfolge,    }
 { d.h., wie wahrscheinlich ist es, da. ein Zeichen auf das angege- }
 { bene folgt.                                                      }
 { ---------------------------------------------------------------- }

   FUNCTION GetRandomSuccessor (Ch : CHAR) : CHAR;

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson