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

[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;

[Muetze1]

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;

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.

Aber deine Lösung wird wohl etwas passender sein.

[Bastler]

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


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;