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.