Hallo also zunächst anke für die vielen Antworten. Mit dem Sortieralgorithmus möchte ich zunächst erst mit Bubblesort anfangen aber Danke für Quicksort
. So nun habe ich Bubblesort programmiert allerdings, sortiert er die Namen nicht, sie werden lediglich in der Reihenfolge in der ich sie eingegeben habe auch wieder ausgegeben
Also ich poste mal meinen bisherigen Quellcode:
Delphi-Quellcode:
unit pNamenslist02;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
edEingabe: TEdit;
btEinlesen: TButton;
listAusgabe: TListBox;
Label1: TLabel;
btAusgabe: TButton;
Button1: TButton;
procedure btEinlesenClick(Sender: TObject);
procedure btAusgabeClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var n: Integer;
var namen :
array [1..20]
of string;
implementation
{$R *.dfm}
procedure TForm1.btEinlesenClick(Sender: TObject);
begin
inc(n); namen[n]:=edEingabe.text;
edEingabe.Text:= '
'
end;
procedure BubbleSort(
var 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;
procedure TForm1.btAusgabeClick(Sender: TObject);
begin
BubbleSort(listAusgabe.Items);
listAusgabe.items.add(namen[n]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
so mein erstes Problem besteht weiterhin, Also vielen Dank für eure Hilfe!