Anfänger Frage (Listbox Werte sortieren)

[Fluchtfahrzeug]

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.

[DeddyH]

Da Du ihn als Methode von TForm1 deklariert hast, musst Du ihn dort bekanntmachen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ...
  private
    procedure BubbleSort(Items: TStrings);

Und im implementation-Teil dann die Implementation wie gepostet.

Delphi-Quellcode:

procedure TForm1.BubbleSort(Items: TStrings); 
var
  ...
begin
  ...
end;

[Fluchtfahrzeug]

Danke jetzt weiß ich wenigstens schonmal wo ich damit hin soll. Aber so recht nach Größe sortiert das Programm die Zahlen noch nicht.

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
    procedure BubbleSort(Items: TStrings);
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation
procedure TForm1.BubbleSort(Items: TStrings); var done: boolean; i, n: integer;
Dummy: string;
begin
 n := Items.Count;
 repeat
  done := true;
  for i := 0 to n - 2 do
   if Items[i] > Items[i + 1] then
   begin
   Dummy := Items[i];
   Items[i] := Items[i + 1];
   Items[i + 1] := Dummy;
   done := false;
  end;
  until done;
 end;


{$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.

[p80286]

weil du immer nochStrings (Items[i]) sortierst, und keine Integers.
Das könntest du austricksen indem du führende Leerzeichen verwendest (' 1',' 10'...)
aber das ist nur trickserei.

Gruß
K-H

[DeddyH]

Wie ich schon sagte:
if StrToInt(Items[i]) > StrToInt(Items[i + 1]) then Du willst ja nach Zahlen sortieren und nicht nach Strings.

[Popov]

Ich hab da etwas was ich mal versucht hab, vielleicht ist es das was du suchst. Es sortiert zwei mal, zuerst alphabetisch, dann zusätzlich nach Wert, a1 kommt von a10. Guck dir das mal an:

[DeddyH]

BTW mal so als Tipp: TStrings.Exchange