-Verwende bitte Code-Tags und formatiere den Code richtig (Einrückungen)
-Man kann bei einem
If
auch mehrere Befehle im then oder else-Teil packen, wenn man diese in einen Codeblock packt (
begin
..
end
)
-Hier würde sich aber auch ein
case
anbieten
-Hier machts du 2.mal das selbe, die einzelnen Abfragen sind überflüssig:
Delphi-Quellcode:
if zahl= 1 then Label7.Caption:='1';
if zahl= 2 then label7.Caption:='2';
if zahl= 3 then label7.caption:='3';
if zahl= 4 then label7.caption:='4';
if zahl= 5 then label7.caption:='5';
if zahl= 6 then label7.Caption:='6';
Label7.Caption:= inttostr(zahl);