problem mit else nach end

[Captnemo]

Das ist natürlich was anderes. Deswegen ist es hilfreich, wenn man weiß welche Version jemand benutzt.
Ich hab mal bei CNPack nachgelesen. Tatsächlich wird das nur bei D567 unterstützt. Warum wird dort aber nicht erwähnt. Vielleicht arbeiten die noch dran, und das kommt in einem späteren Release.

Bis dahin hilft dann wohl nur übersichtliches Coden, Kommentare und Augen auf

Nutz doch mal Kommentare:

Delphi-Quellcode:

begin // 1. 
 if x=y then begin // 2.
   blabla
   balbal
   Case x of //3.
    1: begin //4. 
         Edit1.Text:='1';
       end; //4.
    2: Edit1.Text:='2'; 
   end; //3. 
 end; //2. 
end; //1.

Ggf. auch nur für die Fehlersuche. Dann fällt dir schnell auf, wo dir ein end fehlt bzw. wo eines zuviel ist.
Ansonste gilt natürlich lesen. Denn nur wenn man die Grundlagen solcher Dinge verstanden hat, ist man auch in der Lage seine Fehler zu finden und zu verstehen.