Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: with sender

    Delphi
    by Cyf, 9. Jul 2008
  procedure TForm1.Button1Click(Sender: TObject);
  var aBool: Boolean;
  begin
  Showmessage(Inttostr(SizeOf(aBool)));
  end;
  
  Gibt bei mir 1 aus? Sollte das allerdings tatsächlich 4 Byte groß sein und das Programm lügt mich aus irgendwelchen Fragmentierungsgründen an, hab ich wieder einen Grund mehr, Einstellungen lieber in Sets zu speichern.
• Forum: Sonstige Fragen zu Delphi

  Re: with sender

    Delphi
    by Cyf, 9. Jul 2008
  Ja habt ja recht, normal tuh ich das auch nicht, hatte nur grad so schön das Ding einfach aufs erstbeste umgeschreiben, ohne zu denken :wink: (in dem Fall ist die Überprüfung ohnehin hinfällig, weil man niemals auf etwas unsichtbares klicken wird)
  
  
  
  
  Wenn schon dann
  
  with (Sender as TPanel) do Visible := not Visible;
  
  außerdem ist das with dann überflüssig (und zudem soll das Wort...
• Forum: Sonstige Fragen zu Delphi

  Re: with sender

    Delphi
    by Cyf, 9. Jul 2008
  Habs mal kurz umgebaut. (Klar, dass Visible nie false sein wird, ist mir auch klar, aber es geht um die Theorie und das sieht man gut...)
  Nurmal um den Unterschied bei der vorhanden Version klar zu machen, vielleicht hilft es ja jemanden, wenn der das mal liest:
  
  with (Sender as TPanel) do
  begin
  if Visible = true then
  Visible := false
  else
  Visible := true;
  end;