Отправляет email-рассылки с помощью сервиса Sendsay

Клуб программистов

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет, финансы и успех" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Alar

Статистика

3.899 подписчиков
+1 за неделю
←   Все выпуски   →

Клуб программистов рассылка. Выпуск 82


redaktor От ведущего.

Приветствую вас, дорогие подписчики. Рад снова приветствовать вас в очередном еженедельном выпуске нашей рассылки. Спешу сообщить вам, что вышел 7 номер журнала Программист. В нашем сегодняшнем выпуске рассылки вы можете прочитать обзор интересных тем форума за неделю.
logo_grey Новые интересные статьи клуба программистов. Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.
 

Рисование текста на рабочем столе
Доброе утро! Как вывести текст на рабочем столе в том месте, где я указываю мышкой? Например, как это делается в Paint или Paint.NET, когда нужно вывести текст на картинку. Тема на форуме

Как с помощью OpenDialog открыть несколько файлов?

procedure TForm1.Button1Click(Sender: TObject);

var
  I: integer;
  F: TextFile;
  FirstLine: string;
begin
  OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
  OpenDialog1.Filter := 'Text files (*.txt)|*.txt|All files (*.*)|*.*';
  OpenDialog1.FilterIndex := 2; { start the dialog showing all files }
  if OpenDialog1.Execute then
    with OpenDialog1.Files do
      for I := 0 to Count - 1 do
      begin
        AssignFile(F, Strings[I]);  { next file in Files property }
        Reset(F);
        Readln(F, FirstLine);  { Read the first line out of the file }
        Memo1.Lines.Append(FirstLine);  { Add the line to the memo }
        CloseFile(F);
      end;
end;
Тема на форуме

Возможно ли использовать в Delphi шрифты не установленные в системе?

procedure TForm1.FormCreate(Sender: TObject);
begin
  //объявляем свой шрифт
  AddFontResource('IZHITSA.TTF') ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
  //применяем его
  Button1.font.name := 'IZHITSA';
  //Button1.font.size := 10;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  //ликвидируем
  RemoveFontResource('IZHITSA.TTF') ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
Тема на форуме

Как удалить все значения Items в ListBox?

ListBox1.Clear;
Тема на форуме

Сравнение строк методом перебора в StrinGride
Не могу придумать код, перебора строк в StringGrid. Мне нужно найти строку из Edit'а в StringGrid при этом, если она не будет найдена, то применить ее из Edit к String Тема на форуме

Как организовать цикл от 00000 до 55555?
Мне нужно подставить значения в текст именно от 00000 до 55555 (не от 0).
что бы было 00001, 00002, 00003…. Тема на форуме

Заполнение StringGrid из ListBox c извлечением имени
мне надо убрать расширение у файлов и показывать только имя. Тема на форуме

Как изменять контрастность изображения?
Тема на форуме

Как осуществить в Delphi вихрь Мерсенна?
Вот чтоб сутра мозги размять попробовал слизать один пример с Си Тема на форуме

Как втавить Image в ListBox?
Тема на форуме

Как смешать две картинки?
Тема на форуме

Как создать в listbox события OnChange и OnChanging?
Тема на форуме

MaskEdit - как сделать маску ip-адреса?
В некотором роде ожидаемое поведение курсора можно сделать таким образом:

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  I : Integer;
begin
  if Key = VK_RIGHT then begin
    I := MaskEdit1.SelStart;
    if (I-1) mod 4 = 0 then
      MaskEdit1.SelStart := I + 3;
  end;
end;
Тема на форуме

Седьмой выпуск журнала «ПРОграммист»
Здравствуйте, уважаемые читатели журнала «ПРОграммист» от Клуба ПРОграммистов www.programmersforum.ru. Октябрь подарил нашему проекту и читателям новых авторов. Будем надеяться, постоянных, так как материалы и их опыт, представленные в данном номере, будут полезны не только начинающим программистам, но и профессионалам. Напоминаем вам, что на официальном сайте журнала www.procoder.info продолжается формирование анкет авторов и сам автор, по желанию, может скорректировать информацию о себе. Для этого достаточно обратиться письмом к администратору сайта Василию Мединцеву на электронный ящик info(а)procoder.info. По-прежнему мы рады вашим заметкам, предложениям и статьям, которые вы можете прислать на редакторский ящик-копилку maindatacentr(а)gmail.com Тема на форуме

На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.
ev Немного юмора.

***
Сидит психиатр (П) у себя в кабинете - скучает... пациенты не идут.
Тут тихонько так приоткрывается дверь и к нему на карачках заползает человек (Ч) сжимая что-то в зубах, руках и т. д. плюс что-то еще волочится сзади.
П: - Ой кто это к нам тут ползет!!! Это наверное маленькая змейка. Заползай змейка, заползай маленькая, доктор тебе поможет.
Человек отрицательно машет головой.
П: - А-А-А. это наверное черепашка к нам в гости пожаловала. Заползай черепашка в кресло и расскажи дяде доктору что с тобой случилось...
Человек отрицательно машет головой.
П: Так кто же это у нас - наверное маленький червячок??
Ч: ДОКТОР, ИДИТЕ НА ...., Я СИСАДМИН, ВАМ

СЕТЬ ПРОКЛАДЫВАЮ

***
1) Со слов менеджера:
- Hе включается компьютер - зову админа. Админ приходит, воздевает руки к небу, бормочет про себя невнятные слова, поворачивает мой стул 10 раз вокруг своей оси, пинает компьютер - тот начинает работать. Вновь воздевает руки к небу, что-то бормочет, уходит.
2) Со слов сисадмина:
- Прихожу к юзеру - этот дурак так вертелся на стуле, что у него шнур питания на ножку намотался и выскочил из компа. Матерюсь про себя, распутываю, запихиваю комп ногой подальше под стол, включаю, ухожу..

***
Табличка в отделе компьютерной поддержки:
Теория - это когда вы знаете все, но ничего не работает.
Практика - это когда все работает, но никто не знает почему.
В ЭТОМ МЕСТЕ мы совмещаем теорию и практику - ничего не работает и никто не знает почему!

Посетите раздел юмора на форуме, который обновляется постоянно
Читать этот номер в клубе.
В избранное