- function CreatePascalLoops( N: Cardinal ): String;
- const
- Container: String = (
- 'procedure TestLoop(); {%d Loops}'#13#10 +
- 'var'#13#10 +
- '%s: Integer'#13#10 +
- 'begin'#13#10 +
- '%s'#13#10 +
- 'end;'
- );
- var
- i: Integer;
- V, C: String;
- begin
- V := ' x,'#13#10' ';
- for i := 0 to N - 1 do
- begin
- V := V + 'i' + inttostr(i+1);
- if not ( i = N - 1 ) then
- begin
- V := V + ', ';
- if (i+1) mod 2 = 0 then
- V := V + #13#10' ';
- end;
- C := C + ' for i' + inttostr(i+1) + ' := 0 to 0 do'#13#10;
- end;
- C := C + ' x := x + 1';
- Result := Format( Container, [N, V, C] );
- end;