Das was aus document im Script eingelesen wird kommt bei eingabe und anzahl rein, die funktion liefert dann den text zurück, der ins dokument zurückgeschrieben wird.
Delphi-Quellcode:
function Lore_Ipsum(eingabe: string; anzahl: integer): string;
var
e,f: string;
i,chars: integer;
begin
// Werte holen (passiert im JavaScript aus document...)
e := eingabe;
chars := anzahl;
// anzahl ggf. korrigieren
if chars = 0 then
chars := 543;
// hilfsvariable hernehmen
f := e;
// hilfsvariable füllen...
while length(f) < chars do
f := f + e;
// wir könnten länger sein als chars, also kürzen und zurückgeben
result := Copy(f, 1, chars);
end;