Nohh
Erfahrenes Mitglied
hallo,
momentan arbeiten wir in der Schule mit case Tag of
Das ist der code um den Zahlen z.B. 1 einen Tag zuzuweißen. das würde ich jetzt allerdings gerne umbauen in ein kleines Wörterbuch statt bei eingabe eins soll z.B. Hallo eingeben werden und Name:= 'hello'; dazu. mir fällt dazu der passende Befehl, habt ihr einen Lösungsansatz?
Vielen Dank fürs lesen
Gruß
Pascal
momentan arbeiten wir in der Schule mit case Tag of
Code:
procedure TForm1.Button1Click(Sender: TObject);
var Tag : Integer;
Name : String;
begin
Tag:=StrToInt (TagEdit.Text);
case Tag of
1 : Name:= 'Montag';
2 : Name:= 'Dienstag';
3 : Name:= 'Mittwoch';
4 : Name:= 'Donnerstag';
5 : Name:= 'Freitag';
6 : Name:= 'Sonnabend';
7 : Name:= 'Sonntag';
end;
NameEdit.Text :=Name
end;
end.
Vielen Dank fürs lesen
Gruß
Pascal