Оптимизируйте функцию
function MyFunc(Num : Integer) : String;
begin
if Num = 1 then Result := 'понедельник';
if Num = 2 then Result := 'вторник';
if Num = 3 then Result := 'среда';
if Num = 4 then Result := 'четверг';
if Num = 5 then Result := 'пятница';
if Num = 6 then Result := 'суббота';
if Num = 7 then Result := 'воскресенье';
end;
Вариант
function MyFunc(Num : Integer) : String;
begin
case Num of
1 : Result := 'понедельник';
2 : Result := 'вторник';
3 : Result := 'среда';
4 : Result := 'четверг';
5 : Result := 'пятница';
6 : Result := 'суббота';
7 : Result := 'воскресенье';
end;
end;
Исходник