[7myt2676]

Написать прогу на делфи которая по введённому вами номеру недели выдаёт на экран его название,это именно надо делать через case n of;
я через if сделал,а вот с кейсом не выходит( по сути в идеале так:2 окна едита, и один буттон,вводим в едит1 цифру допустим '2' нажимаем буттон и в эдите 2 появляется текст 'вторник'

[AND_REY]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Case StrToInt(Edit1.Text) Of
 1: Edit2.Text:= 'Пн';
 2: Edit2.Text:= 'Вт';
 3: Edit2.Text:= 'Ср';
 4: Edit2.Text:= 'Чт';
 5: Edit2.Text:= 'Пт';
 6: Edit2.Text:= 'Сб';
 7: Edit2.Text:= 'Вс';
end;
end;

[chainik]

Код:

const
CDayWeek:array[1..7] of string=('Пн', 'Вт', 'Ср', 'Чт', 'Пт', 'Сб', 'Вс');


function GetNameOfDay(s:string):string;
begin
Result:=CDayWeek[StrToInt(s)];
end;

lmikle: пользуемся тегами!!!

А можно и совсем просто. Есть стандартная функция возвращающая день недели (см модуль DateUtil).......

Ну и неплохо бы защититься от неверного ввода.....