Text in einer Listbox Suchen

hibbert · Verfasst: Mo 23.09.02 15:08

hallo,
ich möchte gerne einen bestimmten text in einer Listbox suchen und makieren lassen (alles während der user die eingaben im edit feld vornimmt ( ich dachte an onkeydown)) . wenn jemand weiß was ich meine, und auch noch helfen kann, der soll sich bitte schnell melden !!
DANKE
mfg hibbert

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

guck mal in der Delphi-Hilfe unter TStringlist (TListBox.Items TStringlist) nach IndexOf, ItemIndex oder mal unter TListBox nach Selected. Oder schau mal im Forum, kann auch nie schaden :mrgreen:

_________________
Viele Grüße
Jakob

hibbert · Verfasst: Mo 23.09.02 16:47

danke, für deine antwort, aber irgenwie bekomme ich dass nicht so hin !!
kannste mir vielleicht mal ne beispiel geben ?
DANKE
mfg hibbert

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

versuchs doch mal damit:

markieren

Quelltext

1:	ShowMessage(IntToStr(ListBox1.Items.IndexOf('Mein String')));

Wenn Result der Funktion = -1 ist, heißt das, dass der Eintrag nicht gefunden wurde.

_________________
Viele Grüße
Jakob

majolo · Verfasst: Mo 23.09.02 17:59

Hi hibbert,

versuchs mal so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

var s:string;
begin
  S:=IntToStr(Listbox1.Items.IndexOf(Edit1.Text));
  ListBox1.ItemIndex:=StrToInt(s);
   If ListBox1.ItemIndex = -1 then
    Showmessage( Edit1.Text +' konnte nicht gefunden werden');

Meintest du so etwas?Ich hoffe es funzt.
Gruss
majolo

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

@majolo: Warum benutzt Du einen String? Ein Integer wäre da wohl besser. Also etwa so:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

var 
  Idx: Integer;
begin
  Idx := Listbox1.Items.IndexOf (Edit1.Text);
  ListBox1.ItemIndex := Idx;
  If Idx = -1 then
    Showmessage (Edit1.Text +' konnte nicht gefunden werden');
end;

Gruß
TINO

hibbert · Verfasst: Di 24.09.02 17:05

Fett danke !!!
Genau dass was ich gesucht habe. doch...
wenn ich z.b. die wörter Hallo Hall Halle Holle Hölle Kind Mutter Vert ... in der liste zu stehen habe und ich den buchstaben h eingebe, soll er automatisch zum ersten wort mit dem h springen ! ( kurz autovervollständigung)
ist das ebenfalls möglich, erspart einem mächtig arbeit !
trozdem DANKE !
mfg hibbert

Ehemaliges Mitglied Erhaltene Danke: 1

Habe ich mal irgendwo gefunden:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

var 
 LastKey:Word; 

... 


procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  LastKey:=Key; 
end; 

procedure TForm1.ComboBox1Change(Sender: TObject); 
Var 
  Srch : String; 
  ix : Integer; 
Begin 
  Srch := combobox1.Text; 
 if LastKey = $08 then 
  Begin 
    LastKey := 0; 
    Exit; 
  end; 
  LastKey := 0; 
  ix := combobox1.Perform(CB_FINDSTRING,-1,LongInt(PChar(Srch))); 
  if ix > CB_ERR then 
  Begin 
    combobox1.ItemIndex := ix; 
    combobox1.SelStart := Length(Srch); 
    combobox1.SelLength := (Length(combobox1.Text) - Length(Srch)); 
  end; 
end;

majolo · Verfasst: Di 24.09.02 20:44

@Tino: Hast recht.Habe den Source aus dem stehgreif geschrieben.Viel mir auch auf, war aber dann schon abgeschickt.Aber funzen tut der auch.
Gruss
majolo

CenBells · Beiträge: 1547 Win 7 Delphi XE5 Pro

oder man setzt im Objektinspektor die Eigenschaft autocomplete = true;
Gruß
Ken

Ehemaliges Mitglied Erhaltene Danke: 1

Eine Listbox mit AutoComplete?

Was du meinst ist wohl die AutoComplete-Combobox. Aber die gibt es erst ab Delphi 6. Aber -wie Luckies Code zeigt!- so schwer ist es ja nicht.

Ehemaliges Mitglied Erhaltene Danke: 1

Listbox? Habe ich gar nicht mehr gelesen. Mit Autocomplete habe ich gleich eine Combobox verbunden. :shock:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme