Autocompletion bei DBEdit ?

[Vader]

hallo,

wie funktioniert Autocompletion bei einen DBEDIT ?
mfg vader

[mkinzler]

Selbst implementieren, oder eine DBEdit-Komponente suchen,in der das schon implementiert ist.

[Vader]

wie geht das selbst implementieren ??
mfg vader

[mkinzler]

Du mußt ein Event-handler schreiben, der bei einer Eingabe in den Edit, den Inhalt mit einer Liste vergleicht.

[Vader]

das klingt ziemlich schwierig oder ?
können die DBEdits bei den Jedi's das von selbst ?
mfg vader

[inherited]

So zb: (Ohne garantie auf fehler is jez mal so hingetippt

Delphi-Quellcode:

procedure TForm8.Edit1Change(Sender: TObject);
var i, OldLength: Integer;
begin
  if Edit1.Text='' then exit;
  for i := 0 to Liste.Count-1 do
  begin
    if copy(Liste.Items[i], 1, Length(Edit1.Text))=Edit1.Text then
    begin
      OldLength:=Length(Edit1.Text);
      Edit1.Text:=Liste.Items[i];
      Edit1.SelStart:=OldLength;
      Edit1.SelLength:=Length(Edit1.Text);
      exit;
    end;
  end;
end;

*nachcodelibmanagernschrei*

[Sharky]

Hai inherited,

mal zwei Anmerkungen zu deinem Code
a) Man sollte in solchen fällen nie den Komponentennamen hardcoden sondern den Sender auswerten
b) Du hast ein OnChange Ereigniss in dem Du den Inhalt des Edits änderst. Was passiert also? Das OnChange ruft sich wieder selber auf.

[inherited]

Zitat von Sharky:

Hai inherited,

mal zwei Anmerkungen zu deinem Code
a) Man sollte in solchen fällen nie den Komponentennamen hardcoden sondern den Sender auswerten
b) Du hast ein OnChange Ereigniss in dem Du den Inhalt des Edits änderst. Was passiert also? Das OnChange ruft sich wieder selber auf.

a: wofür sind die codelibmanager da? *g*
b: oh, ich verbesser es nomma ändern

[Vader]

hallo inherited

dein code interessiert mich

Delphi-Quellcode:

procedure TForm8.Edit1Change(Sender: TObject); 
var i, OldLength: Integer; 
begin 
  if Edit1.Text='' then exit; 
  for i := 0 to Liste.Count-1 do 
  begin 
    if copy(Liste.Items[i], 1, Length(Edit1.Text))=Edit1.Text then 
    begin 
      OldLength:=Length(Edit1.Text); 
      Edit1.Text:=Liste.Items[i]; 
      Edit1.SelStart:=OldLength; 
      Edit1.SelLength:=Length(Edit1.Text); 
      exit; 
    end; 
  end; 
end;

sharky schreibt:

Zitat:

Du hast ein OnChange Ereigniss in dem Du den Inhalt des Edits änderst. Was passiert also? Das OnChange ruft sich wieder selber auf.

wie muß ich diesen code ändern was sharky meint, komme nicht drauf `?
mfg vader