![]() |
Re: Editfeld mit Dropdownmenü
Delphi-Quellcode:
So habe ich das in meinem Quelltext. Das oben war die falsche Kopie bei einigen rumspielereien.
if ((EntryValue <> '') and (Pos(EntryValue,Combobox.Text) > 0)) then
in Combobox.text (dem Text den jemand in die Combobox eingibt) steht der Suchbegriff. Das soll dann verglichen werden mit den Einträgen, die in der Inidatei zu finden sind. Die Einträge der Ini-datei, die noch passen würden (unter Berücksichtigung der eingegebenen Buchstaben) sollen dann im DropDownmenü angezeigt werden. Es soll durch aus möglich sein einen noch nicht in der Liste vorhandenen String (hier namen) einzugeben. Das Problem, das Combobox.text immer geleert wird besteht also weiterhin. Warum? Und warum zeigt er mir nicht als möglichen Eintrag am Anfang alle 3 Optionen und wenn ich z.B. "A" tippe "Albert" an? In der Schleife gibt mir showmessage (war nur zu kontrollzwecken eingebaut) folgendes aus: 3Albert 3Hartmund 3Bert Genau das ist ja eigentlich auch zu erwarten. Vielen Dank schon für die Hilfe. Ich hoffe wir finden das Problem noch ;) mfg KahPee |
Re: Editfeld mit Dropdownmenü
Wir haben die Parameter bei Pos() vertauscht. So funktioniert's bei mir (soeben getestet):
Delphi-Quellcode:
Grüße, Matze
procedure TForm1.Autocomplete(Combobox: TComboBox);
var EntryNum: Integer; EntryValue: string; statistic: TiniFile; i: Integer; begin statistic := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'statistic.ini'); try // read number of entries EntryNum := statistic.ReadInteger('Playerlist', 'count', 0); Combobox.Items.Clear; Combobox.Items.BeginUpdate; // add items for i := 1 to EntryNum do begin EntryValue := statistic.ReadString('Playerlist', IntToStr(i), ''); if ((EntryValue <> '') and (Pos(LowerCase(Combobox.Text), LowerCase(EntryValue)) = 1)) then begin Combobox.Items.Add(EntryValue); end; end; Combobox.Items.EndUpdate; finally FreeAndNil(statistic); end; end; |
Re: Editfeld mit Dropdownmenü
Das ist schon deutlich besser. Aber:
Im Moment setzt der Cursor immer wieder vor dem ersten Buchstaben an. Das ist natürlich murks. Ich möchte ja das man immer noch einen Namen eingeben kann als wenn es ein normales Editfeld wäre. |
Re: Editfeld mit Dropdownmenü
Dann frickel SelStart und SelLength wieder hinein. Beispielsweise so:
Delphi-Quellcode:
Ggf. sind noch Anpassungen notwendig.
procedure TForm1.Autocomplete(Combobox: TComboBox);
var EntryNum: Integer; EntryValue: string; statistic: TiniFile; i: Integer; InputLen: integer; begin statistic := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'statistic.ini'); try // read number of entries EntryNum := statistic.ReadInteger('Playerlist', 'count', 0); InputLen := Length(ComboBox.Text); Combobox.Items.Clear; Combobox.Items.BeginUpdate; // add items for i := 1 to EntryNum do begin EntryValue := statistic.ReadString('Playerlist', IntToStr(i), ''); if ((EntryValue <> '') and (Pos(LowerCase(Combobox.Text), LowerCase(EntryValue)) = 1)) then begin Combobox.Items.Add(EntryValue); end; end; Combobox.Items.EndUpdate; // get text of the first match if Combobox.Items.Count > 0 then begin ComboBox1.ItemIndex := 0; ComboBox1.SelStart := InputLen; ComboBox1.SelLength := Length(ComboBox.Text) - InputLen; end; finally FreeAndNil(statistic); end; end; |
Re: Editfeld mit Dropdownmenü
Super! Auch schön, das der Rest eines Wortes "selected" angezeigt wird. Allerdings gibt es jetzt noch ein klitzekleines Problem.
Wenn man A tippt kommt "albert" (dabei ist "lbert" selected). Wenn man dann l tippt kommt "albert" (dann ist nichts mehr selected) das ist doof! Wenn ich jetzt zum Beispiel Alejandro schreiben will ;) Das muss also auch beim zweiten Vorschlag selected sein! |
Re: Editfeld mit Dropdownmenü
Ich muss nun leider weg. Probiere doch selbst auch mal etwas und lasse dir nicht alles vorkauen.
Wenn du den Code wirklich verstanden hast, dann vermute ich, ist das problemlos machbar. Ich tippe darauf, dass es mit der Groß-/Kleinschreibung zusammenhängt, denn bei der Eingabe von "A" passt glaub alles. |
Re: Editfeld mit Dropdownmenü
Bis auf den Tippfehler 'memo1' (sollte 'StringList_Vorschlaege' heißen) funktioniert mein Code doch. Inklusive der Tatsache, das der Cursor dort bleibt, wo er ist. Beim letzten Vorschlag wird der Cursor strikt ans Ende des Inputstrings gesetzt, auch wenn er dort vorher gar nicht war.
|
Re: Editfeld mit Dropdownmenü
Delphi-Quellcode:
Damit klappts ;)
procedure Tform2.Autocomplete(Combobox: TCombobox);
var EntryNum, selstart, sellength: Integer; EntryValue: string; statistic: TiniFile; i: Integer; begin statistic := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'statistic.ini'); try EntryNum := statistic.ReadInteger('Playerlist', 'count', 0); selstart := ComboBox.SelStart; sellength := ComboBox.SelLength; Combobox.Items.Clear; Combobox.Items.BeginUpdate; for i := 1 to EntryNum do begin EntryValue := statistic.ReadString('Playerlist', IntToStr(i), ''); if (combobox.Text='') or((EntryValue <> '') and (Pos(LowerCase(Combobox.Text), LowerCase(EntryValue)) = 1)) then begin Combobox.Items.Add(EntryValue); end; end; Combobox.Items.EndUpdate; ComboBox.SelStart := selstart; ComboBox.SelLength := sellength; finally FreeAndNil(statistic); end; end; Vielen Dank |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz