In einer ListBox einen Eintrag suchen bzw. Eintrag ändern

[jeany06]

ja, die Schleife wurde entfernt. Das Wort ist in der Liste, die zweite Anweisung genommen und der Button wurde auch gedrückt. Und dennoch nichts.Schicke es lieber nochmal:

Delphi-Quellcode:

procedure TForm1.Button9SucheClick(Sender: TObject);
begin
        if ListBoxText.Items.IndexOf(Edit9Suche.Text) > -1 then
        ListBoxText.ItemIndex := ListBoxText.Items.IndexOf(Edit9Suche.Text);
end;

mmhh?

[jeany06]

Muss vielleicht etwas in der Eigenschaft der Listbox geändert werden im Objektinspektor?

[leddl]

Ich hab es eben gerade auch mal getestet. In D2k5 tut es genau das, was ich davon erwartet habe: Ein Klick auf den Button markiert das entsprechende Element in der ListBox. Dabei mußte ich sogar erstaunt feststellen, daß IndexOf wohl alles andere als CaseSensitive arbeitet.
Hier nochmal mein Code (Direkt aus der funktionierenden Anwendung kopiert )

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.ItemIndex := ListBox1.Items.IndexOf(Edit1.Text);
end;

//Edit:
Huch, schon wieder is da plötzlich was da
Auch deinen Code habe ich eben auf die Schnelle mal getestet. Auch das funktioniert, obwohl die 1. Zeile unnötig ist.
Du mußt an der ListBox nichts ändern, damit es funktioniert. Es muß einfach nur das entsprechende Item vorhanden sein.

[jeany06]

Schlechte Nachrichten, übernommen und es bewegt sich immer noch nichts. Erste Zeile entfernt, die Items existieren auch, puh....

[leddl]

Stell deinen Projekt mal hier rein, dann schau ichs mir mal an.

[jeany06]

Aber nicht lachen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  SysUtils, WinTypes,WinProcs, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1Name: TEdit;
    Edit2Vorname: TEdit;
    Edit3Geburtsdatum: TEdit;
    Edit4Strasse: TEdit;
    Edit5Ort: TEdit;
    Edit6Telefonnummer: TEdit;
    Edit7Firma: TEdit;
    Edit8Anzahl: TEdit;
    Edit9Suche: TEdit;
    ListBoxText: TListBox;
    Button1Laden: TButton;
    Button2Hinzufuegen: TButton;
    Button3Aendern: TButton;
    Button4Loeschen: TButton;
    Button5AllesLoeschen: TButton;
    Button6Sortieren: TButton;
    Button7Zaehlen: TButton;
    Button8Speichern: TButton;
    Button9Suche: TButton;
    Button10Schlie: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit10Aendern: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    procedure ListBoxTextMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2HinzufuegenClick(Sender: TObject);
    procedure Button10SchlieClick(Sender: TObject);
    procedure Button5AllesLoeschenClick(Sender: TObject);
    procedure Button7ZaehlenClick(Sender: TObject);
    procedure Button4LoeschenClick(Sender: TObject);
    procedure Button8SpeichernClick(Sender: TObject);
    procedure Button1LadenClick(Sender: TObject);
    procedure Button6SortierenClick(Sender: TObject);
   { procedure Button3AendernClick(Sender: TObject);  }
    procedure Button9SucheClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBoxTextMouseUp(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
begin
        Button4Loeschen.Enabled:=ListBoxText.ItemIndex>=0;
end;

procedure TForm1.Button2HinzufuegenClick(Sender: TObject);
begin
       ListBoxText.Items.Add(Edit1Name.text +','+Edit2Vorname.text +' geb.:'+
       Edit3Geburtsdatum.text + '  '+Edit4Strasse.text +'  '+Edit5Ort.text +
       ' Tel.:'+Edit6Telefonnummer.text +'  '+Edit7Firma.text);
       Edit1Name.text:='';
       Edit2Vorname.text:='';
       Edit3Geburtsdatum.text:='';
       Edit4Strasse.text:='';
       Edit5Ort.text:='';
       Edit6Telefonnummer.text:='';
       Edit7Firma.text:='';
       Button4Loeschen.Enabled:=TRUE;

end;

procedure TForm1.Button10SchlieClick(Sender: TObject);
begin
close;
end;

procedure TForm1.Button5AllesLoeschenClick(Sender: TObject);
begin
        ListBoxText.Items.Clear;
        Button4Loeschen.Enabled:=TRUE;
        Button5AllesLoeschen.Enabled:=TRUE;
end;

procedure TForm1.Button7ZaehlenClick(Sender: TObject);
var anzahl:integer;
begin
     anzahl:=ListBoxText.Items.Count;
     Edit8Anzahl.Text:=IntToStr(anzahl);
end;

procedure TForm1.Button4LoeschenClick(Sender: TObject);
begin
      if ListBoxText.ItemIndex>-1
      then ListBoxText.Items.Delete(ListBoxText.ItemIndex);
      Button4Loeschen.Enabled:=TRUE;
      Button5AllesLoeschen.Enabled:=ListBoxText.Items.Count>=1;
end;

procedure TForm1.Button8SpeichernClick(Sender: TObject);
begin
        ListBoxText.Items.SaveToFile('Telefon.dat');
end;

procedure TForm1.Button1LadenClick(Sender: TObject);
begin
        ListBoxText.Items.LoadFromFile('Telefon.dat');
end;

procedure TForm1.Button6SortierenClick(Sender: TObject);
begin
        ListBoxText.Sorted:=TRUE;
end;

{procedure TForm1.Button3AendernClick(Sender: TObject);
var i: integer;
begin
         FOR i := 0 TO ListBoxText.Items.Count - 1 DO


         IF ListBoxText.Items[i] >-1 THEN

         if StrToInt(Edit2.Text) = ListBox1.Items[i] THEN ListBox1.Items[i] := 0;
         Edit10Aendern.Text:=(i);
         ListBoxText.Items.Add(Edit10Aendern.text);
         Edit10Aendern.Text:='';
end;   }

procedure TForm1.Button9SucheClick(Sender: TObject);
begin
          ListBoxText.ItemIndex := ListBoxText.Items.IndexOf(Edit9Suche.Text);
end;


end.

[leddl]

Machs mir mal einfacher und füge dein gesamtes Projekt als Anhang (am besten als zip) hier im Forum ein. Dann kann ichs einfach mal bei mir compilieren und testen. Bin grade zu faul, mir aus dem allen hier ein Projekt zu erstellen

[jeany06]

Du bist wirklich lustig, hier am anderen Ende sitzt eine Frau, welche keinerlei Ahnung hat. Muss mir kurz Hilfe holen, bis gleich. Bekommst die Zip

[jeany06]

Zip - Datei habe ich. Hast du vielleicht eine Mail-Adresse, bekomme dies irgendwie nicht als Anhang hin.

[leddl]

Zitat von jeany06:

Zip - Datei habe ich. Hast du vielleicht eine Mail-Adresse, bekomme dies irgendwie nicht als Anhang hin.

Leddl[at]gmx.de, aber Anhang is eigentlich ganz einfach: Durchsuchen --> Datei auswählen --> Attachment hinzufügen