Thema: Delphi was heißt begin begin ?

Einzelnen Beitrag anzeigen

mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

was heißt begin begin ?

  Alt 17. Sep 2006, 21:52
Hallo,
mir ist heute bei einem projekt von mir ein seltsammer fehler aufgefallen den ich eingebaut hatte und zwar:

Delphi-Quellcode:
case message.msg of
    WM_MOUSEMOVE: begin
      if isMousesel = True then begin
        index:=GetItemIndex;
        if index > -1 then begin begin
          SetItemindex(index,True);
        end
      end; // is_mouseMove
       isMouseSel:=true;
       Draw;
    end; // wm_mouseMouve
    end; // zu viel
...
end;
und als ich die end's nach volziehen wollte war es mir ein rätzel warum da zwei end sind ich konnte es mir nicht erkläeren bis mir aufgefallen ist: da sind zwei begins... was bedeutet sowas ? kann mir das jemmand erklären was das mit begin begin bedeutet ?
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat