Tipp: Mache nach deinem If-Then ein begin-end, dann weisst du in der Regel wo das else auch zugehört. Ist aber auch ein wenig Geschmackssache aber ich finde das erleichtert vieles in der Lesbarkeit.
Delphi-Quellcode:
if a > 0 then
begin
if a = 1 then
begin
ShowMessage('a ist 1');
end else
begin
ShowMessage('a ist 2');
end;
end;
Tipp2: Bei deinem Beispiel würde sich eine Case-Anweisung aus meiner Sicht besser eignen:
Delphi-Quellcode:
Case a of
1 : ShowMessage('a ist 1');
2 : ShowMessage('a ist 2');
//else //optional
// ShowMessage('a ist ' + inttostr(a)); //optional
end;
Oder wenn es dir wirklich nur um die Ausgabe des Wertes geht:
Delphi-Quellcode:
if a > 0 then
begin
ShowMessage('a ist ' + inttostr(a));
end;