Задача! (ListBox, Delphi.)

[Mr.User]

Друзья, помогите решить задачку!
Пользователь вводит в первый ListBox числа. Необходимо найти 3-е по величине число и вывести его во второй ListBox!

[necky]

Какой смысл ввовдить в Listbox что-то(это невозможно без edita) .. Мне кажется легче это делать в edite ..

[Mr.User]

Так меня устроит и через Edit! Мне почему то показалось, что надо через ListBox! Так что вариант с Edit вполне подойдёт!
P.S. Вывод можно тогда сделать в Label!

[necky]

-------------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
edit1.SetFocus ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string ;
    i,j:integer;
    t:char ;
    begin

s:=edit1.Text;

for i:=1 to length(s) do
 for j:=1 to length(s)-i do
  if strtoint(s[i])>strtoint(s[i+1]) then begin
   t:=s[i];
   s[i]:=s[i+1];
   s[i+1]:=t;
   end;


label1.Caption:=s;
end;

end.

----------------------------------------------------------------------

Используем тег для выделения листинга. # - на панели инструментов в расширенном режиме. Модератор.

[Mr.User]

Спасибо!

[Stilet]

Вообще то в ListBox есть сортировка. Отсортировать и взять третий элемент снизу. Это пара операций

[Alex21]

Сообщение от Stilet

Вообще то в ListBox есть сортировка.

[off]+1 [/off]
___________