<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN">
<html><body>
<pre>unit listbox_unit;<br /><br />{$mode objfpc}{$H+}<br /><br />interface<br /><br />uses<br /> Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;<br /><br />type<br /><br /> { TForm1 }<br /><br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Button2: TButton;<br /> Label1: TLabel;<br /> ListBox1: TListBox;<br /> procedure Button1Click(Sender: TObject);<br /> procedure Button2Click(Sender: TObject);<br /> private<br /><br /> public<br /><br /> end;<br /><br />var<br /> Form1: TForm1;<br /><br />implementation<br /><br />{$R *.lfm}<br /><br />{ TForm1 }<br /><br />procedure TForm1.Button1Click(Sender: TObject);<br /> Var<br /> L : LongInt;<br />begin<br /> listbox1.items.clear;<br /> For l := 10000 downto 1 do begin<br /> listbox1.Items.Add(IntToStr(l));<br /> end;<br />end;<br /><br />procedure TForm1.Button2Click(Sender: TObject);<br />begin<br /> listbox1.Sorted := true;<br />end;<br /><br />end.</pre>
<pre> </pre>
<pre> </pre>
<pre>///</pre>
<pre> </pre>
<pre> </pre>
<p><img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAQ4AAAEzCAIAAABPN3qBAAAUa0lEQVR4Ae2df4wd11XHJ4oaihBClpBQEBX/VKBSR1BQFSxogRIXp0kbMKBmu61k/sM0ibYodXCLFsdJ6zp1E1cQklSQJs6PUiVrVCiNk7pxmjTYpUtToFa8aztkYydOnNp9cUNae5EeWV/P4XruzLy5u3Ofz5n3uYr2nTn3zJ0z33M+e+fti3ezCQYKoEADBbKJiYk+AwVQoFaBiYmJbHx8vDaGSRRAgf74+Di7Cn2AAoMVWNhVeAAbrBMRI68AqIx8CyBAMwVApZlORI28AhGo7Nt/aMOWe1aOTb7tvevf9t71K8cmr99y78yBQyOvIQKMhAKNUDl5cv4vP3XX76656Qs7nz509Ac/Ojn/2g/nD7xw4q4de3/7Q5snN287dWp+JNTiJkdYgcGonDw5f+XazR+77Wsvf/+175/40bHeD18+/tpzLxw78vKrzx999ZnnX/nIZx9+PQBaRriLRuLWB6Py8U13/fnWHS8cffXQiye+9dTMs8+/snf/i+9edfl/zhzZ99/Hnz54bO+B7139mR2TN20bCcG4yWoFstpRfV77M1mWTU9Ph+tOT09nWRb6m3gGoLJv/6EV7//kdw8cm3n2+BPf3PeLb1l+3wM7Nt/8uSzL3vcHY9N7X9r9ncN7/uPIrunDF//xjTMHDxcuWSpdIYbDzihQ04U1Uyluf3p6+g0/9sYCLaXO5lcfgMqGLffccPfubz99dHrvS7fdOZVl2a++/Tduv/ufsyx7wwUXPPrN597/obW33f3Qw0/Orbv18Rtuvq/qws2Vah5ZdS3850qBmtrVTCXKtgBG4XARFx2AyiVXTv7DzgNfnz6861uHb9/2FbdL/N39j77r91Zfde0nP/23C/BcvnrNg1/d/9cPfHfl2GRVBs2Vah5ZdS3850qBmtrVTKXLVvAQYynXGoDK8kuv277rmXu/NH3L5/7pwUf23XDz/Ru33PfAI/u/uGP2Cw/NXHLZWJZlF/3aO+7cceDWL88sX/XRqlR8pRxvfqR4/Ac2PwDbhAJ+lQsJ10wVIts9dJCED2OLuMogVFZ99O4v77tz+1Pnn3/+z/zsz09uffDzO/Z/5BOf/63Lxi4bv+qaT227+N1/eN0dD23d+eymhw5etGpdVQaiVI3hzpWAqqXwhwr432JCO4xP5KmpXc1UomTcssND5ZIrJz/xxf+645GDv/DLK7Is+7k3v3XdHV8577zzXD2Wv/M91/z9zhsfO7zx689f84/7mzyA+YUUjXwdfVsCMEwoUFO7mql0tybPXWIs5VoDdpXrt9w7/pldn370ucnt3/mdD1699vZ/ec/VG/12//GfWrbuGy9d++TR9332iRtvub8qFVFKjEKk+MUoBHCoX4Ga2tVMJbqvAh6Fw0VcdAAqMwcOXXTF9dftPPTxJ46sf+LFa3cdvuAnftJH5cJfWfGne47/yeNH33rFhtlnij8sloREKTFkyhniF6MQwKF+BWpqVzOV4r5KwSh1Nr/6Air1/7RrcvO2d66fuupfX/7w7mNr9xx/88rVWZa9cdlPv+kdq359/daxJ18a+7cTF39s+4Yt99Rc1VdKSHPx7tA/N/T4s9hqFZDKlhrDTDvFR5CD/2nXqVPzY2s3r1i//QPf+N749Imxf//B6seP/NG3X1391P/8/lOvXb77lbev3z72ZzfNz//vMLXgWigwZAUGPIC5bE6dmp+8adsvXXH9b/7N7pUPH1m558Qle0686+EXV9y65y1XbNiw5R44GXLZuNzwFWiEiktr5uDhG26+b+UH/mr5peuWX7pu5djkjbfcX/P+ZPg3wxVRIJ0CEaikS4KVUUC/AqCiv0ZkqEIBUFFRBpLQrwCo6K8RGapQAFRUlIEk9CsAKvprRIYqFAAVFWUgCf0KgIr+GpGhCgXOoNJjoAAK1CoAKrXyMIkCuQKgkivBKwrUKgAqtfIwiQK5AqCSK8ErCtQqACq18jCJArkCoJIrwSsK1CoAKrXyMIkCuQKgkivBKwrUKgAqtfIwiQK5AqCSK8ErCtQqACq18jCJArkCoJIrwSsK1CoAKrXyMIkCuQKgkivBKwrUKgAqtfIwiQK5AqCSK8ErCtQqACq18jCJArkCoJIrwSsK1CrQPipZlhWuGHoKAQMP61eonx24OAEo0ESBYaBSlUfzFq+PrJ+tujp+FIhSAFSi5CJ4dBUYBir+d33395x6vZ7/h538Q78UhRg3JU6JdOvLyr7fd8qJvlOCMVCgXoGhouIz4/AIk5MYMfzIKqf4Q8M/3V1OYsKr40GBKgWGikqhawstK9/1Xa7+rNhi+Es1d/pnVSmCHwVKFRg2Kn6z1rd4/WzzdfzIgl2qCE4UKFXAACr+W4sW+SmVAycKVCmQBJWqRym/6V1CvqdwltsBHBsFQvyzJKzg9P3+tcKrVEmDHwV8BdpHxV8dGwU6owCodKaU3EhaBUAlrb6s3hkFQKUzpeRG0irQMiobN23lv4YKpC0sq7etQPuo9BkNFNi4aWvbpWS9tAqASoO+HhQSW6J+vw8qsaKd83hQGcRBg/nYKoJKrGIa4kGlAQqDQmILCSqximmIHwYq8gF5v9/3benA0Bl6JFihEVtIUIlVTEN8clSyLPObWw5LDeeUKYeWf7pOO7aQoBKrmIb4BVTGx8fbSmXjpq19b/hN77kXTJkSQ5yhp3CutsNe5ACVSMFUhI+Pj2cTExNt5RKiUvUoJTyI0TFU1qxZU6UqqFQpo9mf9gHMcdI/PQQJ3yl4lMbIKW5W7ddeMNbkI5hZcIBKqSzKnclR6eej0Pf+oew8zlmYyhfQ+9o7e+SYnHk9e3LhCFRCTfR7VKDSz0cHUBFOer2eb/utACq+Glbs5KjIFiGG46Jw6D+J+VO+7U5U+NUvtsNDPIVD5wcV0ceQkRYVB4D/5kSetfr5CD3hWXms0teeN8J386EHVDzBzJjJUemPwIitNqjEKqYhHlRaQDm2kKASq5iGeFABFQ19aCAHUAEVA22qIUVQARUNfWggB1ABFQNtqiHFYaDi/zjYt6VJQ2fokWCFRmwheVsfq5iG+OSoFD5DlMNSwzn9KbEVEiIpxRYSVGIV0xCfFpWaRpcpMeQD+9AjTanTiC0kqMQqpiE+OSpVj1LCgxigoqEhyKFKgWGg0j89BAkHj3MKHn6MRBZm5RRtRi9ysKtECqYiPDkq/Xz4ABQYkJ1HYkJPvozG117kAJVIwVSEq0Clnw9BJXf8/78rFo9Coxc5QCVSMBXhyVGR7hejf3oUDgv7TFWM82v72oscoBIpmIrwtKg4APw3J/Jk1c9HE08eq/S1FzlAJVIwFeHJUemPwIitJKjEKqYhHlRaQDm2kKASq5iGeFABFQ19aCAHUAEVA22qIUVQARUNfWggB1BpAZXHYga/B8wAFmUpDgOVqh8Ht9CkOpaIIeUxUCnrQwO+5KiEHzXKhy06+ryFLEDFQKcvOcW0qFRxUvrZfAs9e46WAJUl96GBBZKjUvr0BSr8LUgDcJyd4jBQ6Z8eboeRfUYMN2v6K7tKbwRGclSEAbe9+IdiWzdApTcCY9ioyPNYgRzTtIDKCJDSS46KPGiJ4agoHILKKHSb6XtMi4r8XDgEI/TYpYVdxTQDDZNPjopdAJpnDioNu810GKg0J6IyElRMM9AweVCpBKD5BKg07DbTYaDSnIjKSFAxzUDD5EGlEoDmE6DSsNtMh4FKcyIqI0HFNAMNkx8GKvKxo/Ra4fPHMEAiTRig0rDbTIclR6X085MQFfkExgQbhSRjO4BfQxGrmIb4tKhUceL/n8V+jG8X2lHzYWwhQSVWMQ3xyVEJH64cD0KFGD4/msEIc4stJKjEKqYhfhiouN6qIgRUNPQBOQxUIDkqjpPwrYgQIga7ysBqEXAOFRg2KvI8Ju/sQeUclp9LN1cgOSpCghj900MOS5lxMVa+9iIH71UiBVMRnhYVee4SMPr58D2y1eSTxl57kQNUIgVTEZ4clf4IjNhKgkqsYhriQaUFlGMLCSqximmIB5UWUJmNGfx2SQ19v4gcQAVUFtE2o3gKqIDKKPb9Iu4ZVEBlEW0ziqcMA5XwZ8HyWYrr06oA/wfKLXR0siVi3qrM8l7FKGfJUSlt9xAV+QRG4Cl4kvV5CwuDitHuj0o7LSpVnPj/u5cf4+zQ00I7p1zCRyXLMv9wdna24GFXiWpQPcHJUSl9uOo2Kj4b7vZ9eEBFT/dHZTIMVPqnR2HHkK1DDOEn9LgV1H71SZBvDW4/AZVeV0ZyVKS/XdP4h84OwQg9cpZOw0fFJyTkZHaWt/U9o2PYqMg3XSEnBCP06CREsiqg4tMSTvEABioLCmzctFUaqPAjLB8AedbyYySglCJ/WW12yEP4bl5iQGWhUQyOtLuKkCAY9PPhe2SrySf7oUemFBqCQRMDVHo2R3JUFHZ26yk1IURiQMUmKYn/FFHrTalzQcGgiQEqoLKgQOG9is7Obj2rJoRIDKiACqgIDnUGqIDK6KLSjx/83XpzwLT/tn7jpq3810QBc70y4gm3jMqIq8ntd1gBUOlwcbm1NhUAlTbVZK0OKwAqHS4ut9amAqDSppqs1WEFQKXDxeXW2lQAVNpUk7U6rACodLi43FqbCoBKm2qyVocVaB+VKUYDBTrcUl29tSSozDFqFZiamupqP3X4vkCltqnTTIKKRaJAJQ0NtauCCqgsKDA1NVXbJ0zOgQqogEqjbwSgAiqgAioWKWiUs433KvK7jrIsq2rGmqnCKfWR9bOFpRZ3yK7SMzjMoDKwKaXFxXCnuEPfKbYYsnjokakWDVDpGRzdRyVsceFBjDAmqQdUDJLS9u8BS/QTsNKedk9l0tMuJnxUE0/DSAmbm5srXMKfWooNKj2Dw8yuUuh4gafGcL0uPd0wMgyTFdoyQMUgKWZ3FSEn7GzxxKIiawoS/lLiXLoBKqCyoECKjyDDlq3x+FOltjjFKEDlw+DH+P6l2KCy0CjWhpkHsLmzR9jB4hGjAID4Q6MQ6V9Kgn3nEm1Q6RkcVlFxze2/7fZ7uuD3DwtU+FPOlnX8qSWyUTgdVAySYuS9SqHVrB+CCqgsKJDivYp1Ngr5gwqogEoBivJDUAEVUClno+AFFVABlQIU5YegAiqgUs5GwQsqoHIGlQa/sWTUQyz2yojn3P7nKiMuKLffVQVApauV5b5aVgBUWhaU5bqqAKh0tbLcV8sKgErLgrJcVxWYuPDCbGJioqu3x32hQFsKgEpbSrJOxxXgAazjBeb22lIAVNpSknU6rgAPYB0vMLfXlgLsKm0pyTodVwBUOl5gbq8tBUClLSVZp+MKgErHC8zttaUAqLSlJOt0XAFQ6XiBub22FACVtpRknY4r0D4q2V88zX8DFeh4W3Xx9kDl3IDdxV7q+D2lQmVubm7ZsmV8DRVwG07H26qLt5cKFcfJHCNQAFSMcpQKlaBDcCwosGzZMlABlTMKuFZgV6n63gAqoHIWKlWNMuJ+dhWjnLyedqoHsFZ2FfmDJ/I3TxZH2iJOX8QpDXNjVzFKSypUGvZNfZjfr75df1Y4G3tubHx4xSoPu0rP7EiFSlu7ivTcUtp3KedKAm0Z7CpGYUmFSiuN5bd4wS4cyt+7869b+vzm/9k6P0AW9APcaqHHv0qUza7SMztSodLWriLdLB3p97Rz+q0czvp//LF0tj5ATpEElmiwq/RsjlSoLLGf3OnSpmLI7lGKR2nTF5w17JUu7p++9JtiV7GJyULWqVBpa1eR7hRaxAin/Lb2w8QWQ871TynYVTG+fxE2u0rP5kiFyiJ6KDzF72yxxZB43yO2b/i2nOUMmSo9lOBCmPhjDXaVntmRCpXWdxX/W37hIcrv44LtDkOn+GUpiRGPw8AdxiJRE8+uYhSWVKjU9MooT7GrGOXk9bRTodLKrtJJqNhVjNKSCpVOdvnSb4pdxSgnr6edChV2lSqu2FWM0pIKlfBf/+Hh36sYhcSlnQoV972Tr1UKmG6a0UweVPg1FKPZ+dF33T4q0SlwAgpYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQAFQtVIkcFCoCKgiKQggUFQMVClchRgQKgoqAIpGBBAVCxUCVyVKAAqCgoAilYUABULFSJHBUoACoKikAKFhQ4g8oEAwVQYJAC/wfLJpdAO3pRbAAAAABJRU5ErkJggg==" alt="" /></p>
<pre> </pre>
<pre>10000 -től 1-ig felötljük a Listát ...</pre>
<pre> </pre>
<pre>Rendezés után, pedig sajnos ilyen, helytelen eredményeket ír ki.</pre>
<pre> </pre>
<pre> </pre>
<pre> </pre>
<pre> </pre>
<pre><br /> </pre>
<div> </div>
</body></html>