Массив из строк

← →
Gringoire © (2007-05-08 02:06) [0]

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

← →
Джо © (2007-05-08 02:10) [1]

array [n..m] of string
array of string

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

← →
Германн © (2007-05-08 02:19) [2]

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

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

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

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

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

← →
Gringoire © (2007-05-08 02:33) [3]

> > В 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) [4]

Вот, как мне этот код под Dalphi 7 переделать???

← →
Германн © (2007-05-08 02:48) [5]

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

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

← →
Gringoire © (2007-05-08 03:21) [6]

Ты меня за кого принимаешь? Я, конечно, не профессионал, но хоть чего-то я понимаю, да, конечно, у меня книжек горка рядом... но, если ты такой умный, чего я отрицать не стану (может и правда так), так ты лучше помоги! ((( Я сюда не ругаться и спорить прешел, а помощи искать!

← →
Германн © (2007-05-08 03:43) [7]

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

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

← →
Wind © (2007-05-08 04:00) [8]

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) [9]

Приношу извинения за кодировку. Но думаю вы разберетесь :)

← →
Wind © (2007-05-08 04:08) [10]

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:18) [11]

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

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

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

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

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

Wind СПАСИБО!

> [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] врет с днем недели :)

> месяцеми

*месяцАми

Массив из строк Найти похожие ветки