Step 16 - with

✅ Dein Danke zählt: Sichern wir gemeinsam Delphi-Lernen.de!

— Marco Hetzel

Seit 2006 biete ich Dir kostenloses Delphi-Wissen. Hat Dir die Seite geholfen?
Wenn Du diesen Schatz bewahren möchtest, freue ich mich riesig über Deine Unterstützung!

🎁 Jetzt Zukunft sichern!
Jetzt Zukunft sichern! 🎁



OOP erstmal einfach: Die with-Klausel


Deine Frage an den Delphi KI-Tutor

Stelle hier deine Frage zu Delphi-Programmierung. Unser KI-Tutor hilft dir gerne, aber bitte beachte, dass du nur eine Frage pro Minute stellen kannst. Hier geht es zur Datenschutzerklärung


Um mehrere Eigenschaften oder Methoden eines Objektes komfortabel zu nutzen oder zu ändern, kann man die anweisung "with" verwenden.
Folgende Beispiele zeigen kurz und knapp die Verwendung von "with":
  with [Objekt] do
  begin
    // Anweisungen
  end;

//Beispiele:

  with MyEdit do
  begin
    Text:='test mit with';
    with Font do
    begin        
      Color:= clRed;
      Name:= 'Verdana';
      Size:= 10;
    end;
    PasswordChar:= '*';
  end;

// Ohne With:

  MyEdit.Text:='test ohne with';
  MyEdit.Font.Color:= clRed;
  MyEdit.Font.Name:= 'Verdana';
  MyEdit.Font.Size:= 10;
  MyEdit.PasswordChar:= '#';


  with MyEdit do
    Text:= IntToStr(StrToInt(Text)+StrToInt(Text));

// Ohne With:

  MyEdit.Text:= IntToStr(StrToInt(MyEdit.Text)+StrToInt(MyEdit.Text));
An diesem kurzen Beispiele kann man schon die Vorteile der With-Klausel erkennen. Es ist weniger zu lesen. Nachteilig kann das werden, wenn "zu viel" Source per with abgedeckt wird und man in diesen großen Methoden nicht mehr weiß, auf was sich "Text" nun bezieht. Aber, für kurze zusammenfassende Bereiche, hilft es schon, die Lesbarkeit und damit die Übersichtlichkeit zu verbessern.