Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program test;
-
- {$APPTYPE CONSOLE}
- {$R *.res}
- uses
- System.Classes,
- System.SysUtils;
- procedure WasteSomeTime;
- begin
- var Strings := TStringList.Create;
- try
- for var i := 1 to 100000 do
- Strings.Add(i.ToString);
- Strings.Sort;
- finally
- Strings.Free;
- end;
- end;
-
- begin
- try
- for var i := 1 to 10 do
- begin
- Writeln(i.ToString);
- WasteSomeTime;
- end;
- except
- on E: Exception do
- Writeln(E.ClassName, ': ', E.Message);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement