Hallo,

also einige komische Warnings werden im Quelltext bei mir angezeigt:

Zitat:

[Warning] unit1.pas(1220): Comparison always evaluates to True

Der Quelltext:

Also numlock ist vom Typ byte! Das wird im Quelltext Global definiert, und ändert such eben nach der zeit.
Aber warum ist es dann immer true? Byte geht ja von 0 bis 255. Und bei 5 zB. würde es false ergeben...

Und nochwas:

Zitat:

[Hint] unit1.pas(1326): Value assigned to 'TForm1.keysvalues' never used

Der Quelltext schaut in ungefähr so aus:

So wird die Funktion aufgerufen:
z.B.

Was ist da nicht used?

Die beiden Fehler sind mit etwas unklar...

hallo hat folgendes geschrieben:

markieren Delphi-Quelltext     1: 2: 3: ... if (numlock>=0)AND(numlock<=2)then ... Also numlock ist vom Typ byte! Das wird im Quelltext Global definiert, und ändert such eben nach der zeit. Aber warum ist es dann immer true? Byte geht ja von 0 bis 255. Und bei 5 zB. würde es false ergeben...

Die Warnung bezieht sich nicht auf die Zeile als ganzes sondern nur den ersten Vergleich. Wie du selbst sagst, ein Byte geht von 0..255, ist also immer größer oder gleich 0. Damit ist (numlock>=0) überflüssig. if (numlock<=2)then genügt.

Zitat:

Und nochwas: Zitat: [Hint] unit1.pas(1326): Value assigned to 'TForm1.keysvalues' never used Der Quelltext schaut in ungefähr so aus: markieren Quelltext     1: 2: 3: 4: 5: ... result:=TStringList; ... result:=kv; ...

Das sollte doch klar sein. Du weist Result einen Wert zu (TStringList... was meinst du eigentlich damit?), der im Weiteren nicht benutzt wird. Dann überschreibst du Result mit einem neuen Wert (kv). Die erste Zuweisung kannst du dir also genausogut sparen.

[quote="hallo"]

Guck dir mal den Kompilerschalte {$B} an.




Die erste Zuweisung ist überflüssig, da die Funktion wohl nie mit dem Wert 5 verlassen wird, da du zum Schluss immer 10 zu weist.

Oh, da hab ich das falsch abgetippt: es ´Muss TStringList.create; heißen...
Aber ohne create gibt es eine Access Violation!

Das erste wurde mir aber klar! DANKE!