Einzelnen Beitrag anzeigen

Fluchtfahrzeug

Registriert seit: 20. Nov 2012
4 Beiträge
 
#4

AW: Anfänger Frage (Listbox Werte sortieren)

  Alt 20. Nov 2012, 15:58
Also ich verwende jetzt IntToStr und habe die Variable lokal deklariert. Meine Frage wäre jetzt noch, wo kommt dieser Bubblesort jetzt hin? Muss der unter implementation oder beim Button Click mit rein? Das versteh ich nicht so ganz.

Delphi-Quellcode:
unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation


{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var zahl: integer;
begin
  zahl:=random(100)+1;
  memo1.lines.add(IntToStr(zahl));
  listbox1.items:=memo1.lines;
  listbox1.sorted:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;

end.
  Mit Zitat antworten Zitat