Problem mit if abfrage

[DeddyH]

Ganz am Ende der Prozedur nützt das ja auch nichts mehr.

Delphi-Quellcode:

procedure TForm1.OnClick(Sender: TObject);
var t, m, j, w, y, c: integer;
begin
  // t = Tag, m = Monat, j = Jahr
  t := StrToInt (Edit1.Text);
  m := StrToInt (Edit2.Text);
  j := StrToInt (Edit3.Text);

  // Zusatzangaben vom Aufgabenblatt
  y := j mod 100;
  c := j div 100;

  // Rechnung
  w := (t+(13*(m+1))div 5 + y + y div 4 + c div 4 - 2*c) mod 7;

  // Problem für Zahlen die Kleiner 0 Werden --> Entsteht im Januer und Februar
  while w < 0 do
    w := w + 7;

{mach das besser mit case
  // Abfragen für w --> Welcher Wochentag ist?
  if (w = 1)
    then Edit4.Text := 'Sonntag';
  if (w = 2)
    then Edit4.Text := 'Montag';
  if (w = 3)
    then Edit4.Text := 'Dienstag';
  if (w = 4)
    then Edit4.Text := 'Mitwoch';
  if (w = 5)
    then Edit4.Text := 'Donnerstag';
  if (w = 6)
    then Edit4.Text := 'Freitag';
  if (w = 0)
    then Edit4.Text := 'Samstag';}
  case w of
    1: Edit4.Text := 'Sonntag';
    2: Edit4.Text := 'Montag';
    //... etc.
  end;

end;