Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Массив из строк [D7]

Gringoire © (2007-05-08 02:06:00)
Люди, простейшая задача, стыдно, что забыл. В VB помню, а в делфи нет... ((( Короче, делаю себе многофункциональную программку... работа с CD-ROM, открытие Word, IExplorer и прочее... хочу туда часы засунуть, время показывает, дату, прочее... хочу сделать чтобы они мне еще и день недели с месяцем писали. Че делать? Как им массив дать?

{RASkov} (2007-05-09 02:31:00) [1]
> месяцеми

*месяцАми

{RASkov} (2007-05-09 01:55:00) [2]
> [14] Gringoire © (09.05.07 01:18)

ShowMessage('Сегодня '+LongDayNames[DayOfWeek(Now)]);
ShowMessage(FormatDateTime('Сегодня dddd'#13#10'd число'#13#10'месяц: mmmm'#13#10'yyyy год.', Now));
F1 + FormatDateTime + Date-Time Format Strings
+ по теме
const NDay :array [1..7] of string = ('Понедельник', 'Вторник', 'Среда'.....); тоже и с месяцеми...
PS Код из [10] врет с днем недели :)

Gringoire (2007-05-09 01:18:00) [3]
Wind СПАСИБО!

Wind (2007-05-08 06:02:00) [4]

> 2 Wind.
> Вы бы открыли справку на разделе array constants, почитали
> бы, прежде, чем писать.

Согласен с вами, но дело то не в этом, всё работает.
Говоря по секрету я в тот момент не нашел раздел по array constants :) к своему стыду :) вы уж простите.

Джо (2007-05-08 05:06:00) [5]
2 Wind.
Вы бы открыли справку на разделе array constants, почитали бы, прежде, чем писать.

Wind (2007-05-08 04:18:00) [6]

> Иначе. я - пас!

Вы всегда пасс :) )))))))))))))))))))))))

Wind (2007-05-08 04:08:00) [7]
procedure TForm1.Button1Click(Sender: TObject);

var
NDay :array[1..7]of string;
MMonth: array[1..12] of string;
CurrDate: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec, DOW: Word;
begin
NDay[1]:='Понедельник'; NDay[2]:='Вторник'; NDay[3]:='Среда';
NDay[4]:='Четверг'; NDay[5]:='Пятница'; NDay[6]:='Суббота';
NDay[7]:='Воскресенье';

MMonth[1]:='Января'; MMonth[2]:='Февраля'; MMonth[3]:='Марта'; MMonth[4]:='Апреля';
MMonth[5]:='Мая'; MMonth[6]:='Июня'; MMonth[7]:='Июля'; MMonth[8]:='Августа';
MMonth[9]:='Сентября'; MMonth[10]:='Октября'; MMonth[11]:='Ноября'; MMonth[12]:='Декабря';

CurrDate:= Now;
DecodeDateFully(CurrDate, Year, Month, Day, DOW);

Label1.Caption := 'Сегодня ' + NDay[DOW] + ' '+IntToStr(Day)+' '+
MMonth[Month] + ' ' + IntToStr(Year)+' Года.';
end;

Wind (2007-05-08 04:01:00) [8]
Приношу извинения за кодировку. Но думаю вы разберетесь :)

Wind (2007-05-08 04:00:00) [9]
var NDay :array[1..7]of string; MMonth: array[1..12] of string; CurrDate: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec, DOW: Word; begin NDay[1]:='Ïîíåäåëüíèê'; NDay[2]:='Âòîðíèê'; NDay[3]:='Ñðåäà'; NDay[4]:='×åòâåðã'; NDay[5]:='Ïÿòíèöà'; NDay[6]:='Ñóááîòà'; NDay[7]:='Âîñêðåñåíüå'; MMonth[1]:='ßíâàðÿ'; MMonth[2]:='Ôåâðàëÿ'; MMonth[3]:='Ìàðòà'; MMonth[4]:='Àïðåëÿ'; MMonth[5]:='Ìàÿ'; MMonth[6]:='Èþíÿ'; MMonth[7]:='Èþëÿ'; MMonth[8]:='Àâãóñòà'; MMonth[9]:='Ñåíòÿáðÿ'; MMonth[10]:='Îêòÿáðÿ'; MMonth[11]:='Íîÿáðÿ'; MMonth[12]:='Äåêàáðÿ'; CurrDate:= Now; DecodeDateFully(CurrDate, Year, Month, Day, DOW); Label1.Caption := 'Ñåãîäíÿ ' + NDay[DOW] + ' '+IntToStr(Day)+' '+ MMonth[Month] + ' ' + IntToStr(Year)+' Ãîäà.'; end;

Германн (2007-05-08 03:43:00) [10]

> Gringoire © (08.05.07 03:21) [6]
>
> Ты меня за кого принимаешь? Я, конечно, не профессионал,
> но хоть чего-то я понимаю, да, конечно, у меня книжек горка
> рядом... но, если ты такой умный, чего я отрицать не стану
> (может и правда так), так ты лучше помоги! ((( Я сюда не
> ругаться и спорить прешел, а помощи искать!
>

Я тебя ни за кого не принимаю, ты уж извини :(
Я с тобой вообще не знаком. И общих "знакомых" у нас с тобой нет :(
Но.
Функции MonthOfTheYear, DayOfTheMonth ты должен знать! Ну или "должен найтить" в справке. Иначе. я - пас!

Gringoire (2007-05-08 03:21:00) [11]
Ты меня за кого принимаешь? Я, конечно, не профессионал, но хоть чего-то я понимаю, да, конечно, у меня книжек горка рядом... но, если ты такой умный, чего я отрицать не стану (может и правда так), так ты лучше помоги! ((( Я сюда не ругаться и спорить прешел, а помощи искать!

Германн (2007-05-08 02:48:00) [12]

> Gringoire © (08.05.07 02:33) [4]
>
> Вот, как мне этот код под Dalphi 7 переделать???
>

А ты хочешь "в лоб передрать" сей код из VB в Паскаль(Дельфи)? Или хочешь понять смысл? И сделать понимая, что делаешь?

Gringoire (2007-05-08 02:33:00) [13]

> > В VB помню
> Ну и что ты там помнишь. Приведи тут.

Пример из VB:

private sub Form_initialize()

Dim NDay, MMonth

NDay = Array ("Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота", "Воскресенье")
MMonth = Array ("Января", "Февраля","Марта", "Апреля", "Мая", "Июня", "Июля", "Августа", "Сентября", "Октября", "Ноября", "Декабря")

Label1.caption = "Сегодня " + Format$(Day(Date)) + " " + MMonth (Month(date) - 1) + " " + Format$(Year(date)) + "года," + NDay(WeekDay(date) - 1) + "."

Gringoire (2007-05-08 02:33:00) [14]
Вот, как мне этот код под Dalphi 7 переделать???

Германн (2007-05-08 02:19:00) [15]

> Как им массив дать?

Какой массив? Откуда взят?

> В VB помню
Ну и что ты там помнишь. Приведи тут.

> Короче, делаю себе многофункциональную программку...

Свят, свят, свят. Да упаси нас боже от подобных программков! :)

Джо (2007-05-08 02:10:00) [16]
array [n..m] of string
array of string

Выбирай на вкус.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »