[Fpc-mirrors] Lazarus 3.4 Listadoboz rendezési hiba !

[atiatiati100 at gmail.hu]

unit listbox_unit;

{$mode objfpc}{$H+}

interface

uses
 Classes,
SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

 { TForm1
}

 TForm1 = class(TForm)
 Button1: TButton;
 Button2: TButton;
 Label1:
TLabel;
 ListBox1: TListBox;
 procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);
 private

 public

 end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure
TForm1.Button1Click(Sender: TObject);
 Var
 L : LongInt;
begin

listbox1.items.clear;
 For l := 10000 downto 1 do begin

listbox1.Items.Add(IntToStr(l));
 end;
end;

procedure
TForm1.Button2Click(Sender: TObject);
begin
 listbox1.Sorted :=
true;
end;

end.

 

 

///

 

 

 

10000 -től 1-ig felötljük a Listát
...

 

Rendezés után, pedig sajnos ilyen, helytelen eredményeket ír
ki.

 

 

 

 

  
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-mirrors/attachments/20240805/911dc4ab/attachment.htm>