Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.203 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

AW: TComboEdit ItemIndex funktioniert in Firemonkey nicht

  Alt 5. Okt 2018, 12:17
So funktioniert es

Delphi-Quellcode:
procedure TForm1.ComboEditChange(Sender: TObject);
var
  ce: TComboEdit;
  se: TStringsEnumerator;
  s: String;
begin
  ce := (Sender as TComboEdit);
  if ce.ItemIndex >= 0 then
  begin
    se := ce.Items.GetEnumerator;
    s := '';
    while se.MoveNext do
    begin
      s := se.Current;
      if s = ce.Text then break;
    end;
    Edit1.Text := s;
  end;
end;
Markus Kinzler
  Mit Zitat antworten Zitat