Hallo zusammen;

Folgendes Problem:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.bersichtWoche1Click(Sender: TObject);
var k:integer;
    tagg,tagh,tagm:string;

begin
tagg:=inttostr(DayofWeek(Yesterday));
tagg:=tagg+' ';

case tagg of
'1 '  : tagg:='Sonntag';
'2 '  : tagg:='Montag';
'3 '  : tagg:='Dienstag';
'4 '  : tagg:='Mittwoch';
'5 '  : tagg:='Donnerstag';
'6 '  : tagg:='Freitag';
'7 '  : tagg:='Samstag';
ens;
Panel2.caption:=tagg;

tagh:=inttostr(DayofWeek(now));
case tagh of
'1 '  : tagg:='Sonntag';
'2 '  : tagg:='Montag';
'3 '  : tagg:='Dienstag';
'4 '  : tagg:='Mittwoch';
'5 '  : tagg:='Donnerstag';
'6 '  : tagg:='Freitag';
'7 '  : tagg:='Samstag';
ens;
Panel3.caption:=tagg;

tagm:=inttostr(DayofWeek(Tomorrow));
case tagm of
'1 '  : tagg:='Sonntag';
'2 '  : tagg:='Montag';
'3 '  : tagg:='Dienstag';
'4 '  : tagg:='Mittwoch';
'5 '  : tagg:='Donnerstag';
'6 '  : tagg:='Freitag';
'7 '  : tagg:='Samstag';
ens;
Panel4.caption:=tagg;

Dann sagt mir der Compiler:

Zitat:

[Fehler] Unit1.pas(273): Ordinaltyp erforderlich

In der zeile wo das Case-Of steht, aber warum? ich bnutze Case-Ofs doch immer so...?
Bitte um Hilfe

Du kannst nur Zahlen und Enumerationen in Case-Blöcken benutzen. Für Strings steht glaub ich irgendwas in der Codelib..

Wie wärs mit:

markieren

Delphi-Quellcode:

case StrToInt(tagg) of
1 : tagg:='Sonntag';
2 : tagg:='Montag';
3 : tagg:='Dienstag';
4 : tagg:='Mittwoch';
5 : tagg:='Donnerstag';
6 : tagg:='Freitag';
7 : tagg:='Samstag';
ens;

Zitat von Balu der Bär:

Wie wärs mit:

markieren

Delphi-Quellcode:

case StrToInt(tagg) of
1 : tagg:='Sonntag';
2 : tagg:='Montag';
3 : tagg:='Dienstag';
4 : tagg:='Mittwoch';
5 : tagg:='Donnerstag';
6 : tagg:='Freitag';
7 : tagg:='Samstag';
ens;

Würde nicht klappen, da er vor dem Case noch ein Leerzeichen nach der Zahl anhängt. Aber warum überhaupt von einem Ordinaltyp zu einem String und dann wieder zurück?

markieren

Delphi-Quellcode:

case DayofWeek(Yesterday) of
1 : tagg:='Sonntag';
2 : tagg:='Montag';
3 : tagg:='Dienstag';
4 : tagg:='Mittwoch';
5 : tagg:='Donnerstag';
6 : tagg:='Freitag';
7 : tagg:='Samstag';
end;

Zitat:

Würde nicht klappen, da er vor dem Case noch ein Leerzeichen nach der Zahl anhängt.

Nagut, dass eine Leerzeichen könnte man auch per Delete löschen.

Aber deine Lösung wird wohl etwas passender sein.

Danke Muetze1 - scheint so als hätte ichn Blackout gehabt...


Naja danke euch allen...

wie gefällt Dir:

markieren

Delphi-Quellcode:

tagm:=inttostr(DayofWeek(Tomorrow));
case tagm [1] of
  '1'  : tagg:='Sonntag';
  '2'  : tagg:='Montag';
  '3'  : tagg:='Dienstag';
  '4'  : tagg:='Mittwoch';
  '5'  : tagg:='Donnerstag';
  '6'  : tagg:='Freitag';
  '7'  : tagg:='Samstag';
end;

Na sicher nicht besser als Mützes Lösung.

Delphi hat doch ein Array mit den Wochentagsnamen in SysUtils.pas, also ist's so wohl am einfachsten:

markieren

Delphi-Quellcode:

procedure TForm1.bersichtWoche1Click(Sender: TObject);
begin
  Panel2.caption := LongDayNames[DayOfWeek(Yesterday)];
  Panel3.caption := LongDayNames[DayOfWeek(Now)];
  Panel4.caption := LongDayNames[DayOfWeek(Tomorrow)];
end;