Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

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

 
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]


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

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


 
Джо ©   (2007-05-08 05:06) [12]

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


 
Wind ©   (2007-05-08 06:02) [13]


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

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


 
Gringoire ©   (2007-05-09 01:18) [14]

Wind СПАСИБО!


 
{RASkov} ©   (2007-05-09 01:55) [15]

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


 
{RASkov} ©   (2007-05-09 02:31) [16]

> месяцеми

*месяцАми



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.51 MB
Время: 0.057 c
2-1178585925
Booka Shade
2007-05-08 04:58
2007.05.27
Поиск в файле, по маске.


15-1177613059
Некроман_тус
2007-04-26 22:44
2007.05.27
Архив...


2-1178633296
Regent
2007-05-08 18:08
2007.05.27
Вопрос по диалогу.


15-1177746092
iXT
2007-04-28 11:41
2007.05.27


6-1164042005
IgneouS
2006-11-20 20:00
2007.05.27
Что лучше?