javascript + delphi

[Phoenix]

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;