Case...of und Ordinal-Typ-Fehler?

[Bastler]

Hallo zusammen;

Folgendes Problem:

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

[Dax]

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

[Balu der Bär]

Wie wärs mit:

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;

:gruebel:

[Muetze1]

Zitat:

Zitat von Balu der Bär

Wie wärs mit:

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;

:gruebel:

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?

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;

[Balu der Bär]

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. :stupid:

Aber deine Lösung wird wohl etwas passender sein. ;)

[Bastler]

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

Naja danke euch allen...

[RavenIV]

wie gefällt Dir:

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;

[Khabarakh]

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

[Flocke]

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

Delphi-Quellcode:

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