Клуб на програмистите материали за Delphi и C

Често начинаещите имат проблеми при работа с дати. По молба на един от членовете на форума,Alex2009 любезно се съгласи да помогне с някои типични задачи.

Използвайки обектно-ориентираната среда на Delphi, напишете програма за дефиниране:

А) вчерашна дата;

B) датата, която е била m дни преди определената дата;

B) брой дни, изминали от дата t до t 2

Добавено към прегледа на публикацията. Дата 10 май 2010 г

9-ти май

Преобразуване на число във всяка бройна система в C++

\\здравейте, добавих 100% работеща версия за конвертиране на число във всеки SS, съжалявам, само в C++, добре, мисля, че не е трудно да се преработи))#include#include#include#include

intmain() setlocale(LC_ALL, “руски”);

// пример за организация на входа с ограничениеintn;doprintf(”Въведете положително число: “); scanf_s(”%d”, &n); fflush(stdin);// изхвърляне на неразпознат боклук>докато( n 0);

// отпечатване на резултата само в краяprintf(”\nЗапис в %d-базирана бройна система: %s\n”, радикс, буфер);

Добавено към прегледа на публикацията. Дата 9 май 2010 г

7 май

Преоразмеряване на PNG без загуба на прозрачност

Здравейте всички! Попадна в такава ситуация: има 2 временни TPNGImage; единият се зарежда от файл, вторият е празен, предназначен да показва първия разтегнат/компресиран.

При копиране на първия във втория и последващото му преоразмеряване, алфа каналът се губи.

Как може да се преизчисли маската за прозрачност (или как се прави) при новите размери?

Добавено към прегледа на публикацията. Дата 7 май 2010 г

7-ми

какда се отървете от трептенето при преначертаване на картината?

процедура TForm1.FormCreate(Подател: TObject);begin form1.DoubleBuffered:=true;край;

Добавено към прегледа на публикацията. Дата 7 май 2010 г

7-ми

Упълномощаване "Vkontakte"

Добавено към прегледа на публикацията. Дата 7 май 2010 г

7-ми

Как да изтегля файл?

функцияDownloadFile(SourceFile, DestFile:string): Boolean;започнетеопитайтеРезултат := UrlDownloadToFile(нил, PChar(SourceFile), PChar(DestFile), 0, нула) = 0;освенРезултат := Невярно;край;край;

процедураTForm1.Button1Click(Подател: TObject); const SourceFile = 'http://rap-zt.at.ua/style/photo/cover2/mafon.jpg'; DestFile = 'c:\temp\mafon.jpg';beginifDownloadFile(SourceFile, DestFile)thenbeginShowMessage('Файлът е изтеглен!'); ShellExecute(Application.Handle, PChar('open'), PChar(DestFile), PChar("), nil, SW_NORMAL)endelseShowMessage('Upload error' + SourceFile)end;

Добавено към прегледа на публикацията. Дата 7 май 2010 г

7-ми

Как да направя връзка в етикет?

ShellExecute(handle, 'open', 'http://www.programmersforum.ru', нула, нула, SW_SHOW);

Добавено към прегледа на темата. Дата 7 май 2010 г

7-ми

Защитени с парола връзки с база данни на Access

За свързване на защитена с парола база данни се използва низ за връзка, подобен на следния:

AdoConnection1.ConnectionString:= 'Prov > 'Data Source=base_name.mdb;Persist Security Info=False;'+ 'Jet OLEDB:Database Password=PASSWORD';

Добавено към прегледа на публикацията. Дата 7 май 2010 г

6-ти май

От телевизионния оператор.

Добре дошли в клуба на програмистите!! Днес излиза поредният 57 брой на пощата от клуба. Този брой ще съдържа най-интересните теми и статии от клуба, форума, както и статии от списанието PROgrammist, което се поддържа от нашите членове, и малко хумор.

4 май

Delphi 7 или RAD 2010?

Човешки_борш:

Интересувам се от въпроса .. какви са разликите между Borland Delphi 7 и Embracode RAD 2010?

Добавено към прегледа на темата. Дата 4 май 2010 г

---