Zitat von
horst:
was bedeutet chars := 543;
und warum gerade 543?
Hallo horst,
ich denke, dass hier etwas ähnliches wie ein "optionaler Parameter" umgesetzt worden ist: Wenn keine Anzahl von Zeichen angegeben wurde, wird ein Standardwert (hier: 543) verwendet. Dies könntest Du auch direkt mit der Delphi Language lösen, zB
Delphi-Quellcode:
function LoreIpsum(const AEingabe: string;
const AZeichen: Integer = 543): string;
var
iZeichen: Integer;
begin
Assert(Length(AEingabe)>0);
//AZeichen <= 0 wird korrekt verarbeitet
SetLength(Result, AZeichen);
for iZeichen:= 0 to Pred(AZeichen) do
Result[iZeichen+1]:= AEingabe[(iZeichen) mod Length(AEingabe)+1];
end;