Tedit1 Enabled:=false wenn ComboBox auf 2 steht

[Dave729]

Hab noch ein kleines Problem mit dem Enabled.
Wenn der Eintrag von der Combobox1 auf dem 2ten Eintrag steht, dann soll Edit1 auf Enabled false stehen.
Irgendwie hab ich einen fehler gebaut, ich weiss aber net wo der is.

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.items:='2' or Combobox1.items:='4' then
begin
Edit1.Enabled:=false
end
else
   begin
 Edit1.Enabled:=true
 end;
end;

Zwei Fehler werden mir angezeigt:
Unit1.pas(349): Incompatible types: 'TStrings' and 'Char'.
Project1.dpr(9): Could not compile used unit 'Unit1.pas'.

Kann mir da jemand weiterhelfen?
MfG Dave

[quendolineDD]

Hallo :-)

Abfragen werden in Delphi mit dem = (ist gleich) gemacht. D.h. if x = y then.
Zuweisungen werden mit := (doppelpunkt ist gleich).

In deinem Fall einfach

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if (ComboBox1.ItemIndex = 2) or (ComboBox1.ItemIndex = 4) then begin
Edit1.Enabled := False;
end
else
Edit1.Enabled := True
end;

Zudem noch: Der gewählte Listenindex ist in ItemIndex zu finden.

Lg

[Dave729]

Jo, jetzte gehts, danke
Hab es entlich fertig bekommen.
Hier is mein Tool

[DeddyH]

Kürzer wäre es mit

Delphi-Quellcode:

Edit1.Enabled := ComboBox1.ItemIndex in [2,4];

[Dave729]

Zitat:

Zitat von DeddyH

Kürzer wäre es mit

Delphi-Quellcode:

Edit1.Enabled := ComboBox1.ItemIndex in [2,4];

Danke, das geht auch. Habs grad fertig gestellt :lol:
Über dem tread kannste es Downloaden
MfG Dave

P.s.: Totzdem danke