Hi Leuts,
ich bins mal wieder, der Anfänger mitd en lästigen Fragen ^^
Diesmal habe ich mal wieder ein Problme mit meinem Adressbuch.
Ich habe inerhalb des Tages eine Funktion eingebaut, die dem Benutzer erlaubt, per ComboBox die ANzeige zu ändern.
Man hat jetzt die Wahl zwischen "Nachname, Vorname" und "Vorname, Nachname"
Hier der Code dazu:
Delphi-Quellcode:
procedure TForm1.CBAnordnungChange(Sender: TObject);
var i : Integer;
begin
LBAdressen.Clear;
for i := 0 to High(Adressen) do
case TComboBox(sender).ItemIndex of
0: begin
LBAdressen.Items.Add(Adressen[i].Nachname +','+' '+Adressen[i].Vorname);
end;
1: begin
LBAdressen.Items.Add(Adressen[i].Vorname+','+' '+Adressen[i].Nachname);
end;
end;
end;
Jetzt gibt es in diesem Adressbucha auch eine Sortier-Funktion:
Delphi-Quellcode:
procedure TForm1.BtnSortierenClick(Sender: TObject);
var i: Integer;
begin
LBAdressen.Clear;
BubbleSort(Adressen);
for i := 0 to High(Adressen) do
LBAdressen.Items.Add(Adressen[i].Nachname + ',' + ' ' + Adressen[i].Vorname);
end;
Das Problem ist nur, dass die List, sobald man sie sortiert wieder in die Anfangsanzeige wechselt (also Nachname, Vorname).
Meine Idee war, das Programm einfach nach dem Sortieren die ComboBox kontrolieren zu lassen.
Sah dann bei mir im Quellcode so aus:
Delphi-Quellcode:
procedure TForm1.BtnSortierenClick(Sender: TObject);
var i: Integer;
begin
LBAdressen.Clear;
BubbleSort(Adressen);
for i := 0 to High(Adressen) do
LBAdressen.Items.Add(Adressen[i].Nachname + ',' + ' ' + Adressen[i].Vorname);
CBAnordnungChange(Sender);
end;
Hat nicht funktioniert !!! ^^
In meiner grenzenlosen Verzweiflung habe ich dann einfach den kompletten Befehl, welcher im ersten Delphi-Anhang zu sehen ist, in das Sortier-Procedere hineingeschrieben.
Und wieder war keine Auswirkung zu sehen !
Da ich mir nicht vorstellen kann, das Delphi-Programme einfach Teile des Quellcodes ignorieren muss es irgendwo ein Problem geben.
Da ich es nicht finde hoffe ich auf eure Hilfe.
Gruß
DutchmanTom