application.Messagebox Problem

[DeddyH]

BTW:

Zitat:

Delphi-Quellcode:

if application.MessageBox('Wollen Sie die Änderungen speichern ?','Hinweis', MB_YESNO Or MB_ICONEXCLAMATION) = IDYes then begin
  Clientdataset1.post;
  form1.show;
  image10.BringToFront;
  form2.Close;
  Leerefelder(true);
end
else begin
  Clientdataset1.cancel;
  form1.show;
  image10.BringToFront;
  form2.Close;
  Leerefelder(true);
end;

-->

Delphi-Quellcode:

if application.MessageBox('Wollen Sie die Änderungen speichern ?','Hinweis', MB_YESNO Or MB_ICONEXCLAMATION) = IDYes then begin
  Clientdataset1.post;  
end
else begin
  Clientdataset1.cancel;  
end;
form1.show;
image10.BringToFront;
form2.Close;
Leerefelder(true);

Wer ganz faul ist (so wie ich), der kann dann auch begin und end weglassen, sofern er ordentlich einrückt.

[Sir Rufo]

Meine Einrückungen (per Code-Formatter) sehen so aus

Delphi-Quellcode:

if application.MessageBox('Wollen Sie die Änderungen speichern ?','Hinweis', MB_YESNO Or MB_ICONEXCLAMATION) = IDYes 
then 
  begin
    Clientdataset1.post;
    form1.show;
    image10.BringToFront;
    form2.Close;
    Leerefelder(true);
  end
else 
  begin
    Clientdataset1.cancel;
    form1.show;
    image10.BringToFront;
    form2.Close;
    Leerefelder(true);
  end;

oder die andere Variante

Delphi-Quellcode:

if application.MessageBox('Wollen Sie die Änderungen speichern ?','Hinweis', MB_YESNO Or MB_ICONEXCLAMATION) = IDYes 
then 
  begin
    Clientdataset1.post; 
  end
else 
  begin
    Clientdataset1.cancel; 
  end;
form1.show;
image10.BringToFront;
form2.Close;
Leerefelder(true);

oder eben ohne die (jetzt nicht mehr benötigten begin end Blöcke)

Delphi-Quellcode:

if application.MessageBox('Wollen Sie die Änderungen speichern ?','Hinweis', MB_YESNO Or MB_ICONEXCLAMATION) = IDYes 
then 
 Clientdataset1.post
else 
  Clientdataset1.cancel; 
form1.show;
image10.BringToFront;
form2.Close;
Leerefelder(true);

Der Orginal-Code hätte mit der Formatierung so ausgesehen:

Delphi-Quellcode:

begin
  if application.MessageBox( 'Wollen Sie die Änderungen speichern ?', 'Hinweis', MB_YESNO or MB_ICONEXCLAMATION ) = IDYes
  then
    begin
      Clientdataset1.post;
      form1.show;
      image10.BringToFront;
      form2.Close;
      Leerefelder( true );
    end
  else
    Clientdataset1.cancel;
  form1.show;
  image10.BringToFront;
  form2.Close;
  Leerefelder( true );
end;

In Kombination mit dem CnPack schreien einen solche Fehler direkt an