problem mit if ... and ... then

[herrentor]

warum funktioniert das nicht? es geht auch nicht, wenn "eine" zahl anstatt 3-6 schreibe. ich möchte einfach nur, dass wenn in zelle [1,i] nichts ausgewählt ist und in zeile i die spalten 3,4,5 oder 6 ungleich 0 sind, eine messeage box kommt.

Code:

if Tab.Cells[1,i] = ComboBox1.Items[-1] and Tab.Cells[i,3-6] <> 0 then

danke im voraus.

[Ultimator]

if (Tab.Cells[1,i] = ComboBox1.Items[-1]) and (Tab.Cells[i,3-6] <> 0) then Probiers mal so (mit den Klammern)

[herrentor]

jetzt sagt er: inkompatible typen: 'string' und 'integer'

[CalganX]

Hi,
weil 0 wohl eine Zahl ist. Entweder schreibst du die 0 als Strings (Hochkommata drumherum) oder du wandelst das Tab.Cells[i,3-6] per IntToStr in einen Integer um.

Kommt darauf an, was du erreichen willst.

Chris

[herrentor]

alles klar, danke. die andere sache ist, er rechnet 3-6. ich möchte jedoch von 3 bis 6 drinstehen haben.

[CalganX]

Hi,
das musste dann einzeln schreiben:
{...}and (Tab.Cells[i,3] <> '0') and (Tab.Cells[i,4] <> '0') and {... und so weiter} Chris

[herrentor]

ok. danke schön.

[eroe]

Hmm .. gibt es dafür nicht eine Funktion (bzw. einen Ausdruck) in Delphi mit

x in [3..6] Nur leider wüsst ich es auf diesen Fall nicht anzuwenden

eroe

[glkgereon]

es müsste ja auch nit in einem der elemente sein, sondern in allen....

also inevery [3-6]
aber dasd gibts glaub ich nicht...