Отправляет 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 за неделю
←   Все выпуски   →

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


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

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

Как открыть файл в Memo используя OpenDialog?

OpenDialog1.FileName := '';
OpenDialog1.Execute;
If OpenDialog1.FileName <> '' Then
Begin
   If FileExists(OpenDialog1.FileName) Then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
End Else
//Ничего не выбрано, диалог был завершен жмаканьем по CANCEL
Тема на форуме

ListBox как проводник
Добрый день. У меня сейчас имеется ComboBox в котором идет выбор локального диска, после того как я выбрал диск в ListBox появляется все папки и файлы на этом диске. Вопрос: как сделать переход по директориям в ListBox , чтобы можно было ходить по папкам как в проводнике) Тема на форуме

Подсчитать количество дней в месяце?
Тема на форуме

Как перемешать значения в listbox?

procedure TForm1.Button4Click(Sender: TObject);
var I, I1, I2, C : Integer;
begin
  C := ListBox1.Items.Count-1;
  for I := 0 to ListBox1.Items.Count * 2 do begin
    I1 := Random(C);
    I2 := Random(C);
    if I1 <> I2 then
      ListBox1.Items.Move(I1, I2);
  end;
end;
Тема на форуме

Перепись населения
Не могу понять, может кто сможет объяснить. В чем смысл переписи населения? На это дело уходят миллиарды денег, а ради чего? Собирают некую БД о населении (причем те данные, что человек сам о себе укажет, т.е. национальность может быть хоть эльф). Но зачем делать эту ненужную работу, если баз, в которых есть инфа обо всех и так целая куча:

  1. ЗАГС
  2. Налоговая
  3. Пенсионная
  4. и т.д.
Что мешает для статистики использовать данные из уже имеющихся баз? Тема на форуме

Фотографии рабочих мест
Участники клуба выкладывают фото рабочих мест. Тема на форуме

Как найти в тексте символ новой строки?
У нас есть текст в txt. У текста есть разделение на абзацы путем новой строки. Как найти эти символы новой строки?
#13 - код символа новой строки Например:

var s: string;
i: integer;
...
  for i := 1 to length(s) do
    if s[i] = #13 then ...
Тема на форуме

Переход по компонентам использую кнопку tab?
На форме размещены компоненты, переходить по ним можно при помощи клавиши Tab. Переход по элементам осуществляется в зависимости от порядка их размещения на форме. Можно где-нибудь этот порядок подправить? Допустим, при нажатии Tab, при фокусе Edit1, курсор перешел бы на Edit2? Тема на форуме

Записать свою программу в автозапуск, windows xp, windows 7
Тема на форуме

Как сохранить файл из StringGrid без табуляций и переходов?
каждую ячейку нужно поочередно записать в файл через ; не переходя на следующую строку.

var s:string; i,j:integer;
begin
 with StringGrid1 do
  for i:=0 to RowCount-1 do
   for j:=0 to ColCount-1 do s:=s+Cells[i,j]+';';
end;
Тема на форуме

Установить фоновый рисунок на рабочий стол?
Тема на форуме

Как можно реализовать алгоритм сортировки массива по возрастанию методом сортировки выбором?
Тема на форуме

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

***
Родительское собpание для огpаниченного кpyга лиц (DOOMеp, DOOMеp-Junior и диpектоp).
Диpектоp:
- Я должен с вами побеседовать об амоpальном поведении вашего сына на пеpеменах. Он только и делает, что бегает за девочками!
DOOMеp:
- ПоDOOMаешь, все ноpмальные паpни в его возpасте бегают за девчонками!
Диpектоp:
- С бензопилой???!!!

***
Внимание! Корпорация Microsoft продолжает эксперименты в области рекламы. Теперь мы можем предложить Вам принципиально новую услугу - размещение рекламных баннеров в сообщениях об ошибках операционной системы! НЕСКОЛЬКО МИЛЛИОНОВ ПОКАЗОВ В МЕСЯЦ!!! Такого Вы еще не видели! Миллиарды людей увядят Вашу рекламу!

***
Звонок Юзера (Ю) в tech support фирмы, производящей блоки питания:
Ю: Добрый день у меня из блока питания идет дым, что делать?
Сотрудник (С):
- Вам нужен новый блок питания.
Ю - Нет, не нужен, мне нужно, что бы из старого не шел дым.
С: - Вы меня, наверное, не поняли, но Вам нужен новый блок питания.
Ю: - Зачем мне новый, Вы просто скажите, что нужно сделать, что бы из старого дым не шел.
С: - Наберите в autoexec"е строку "no smoke".
Проходит 5 минут.
Ю: - Не работает.
С: - Значит, Вам нужен новый блок питания.
Ю: - Нет мне нужно, что бы из старого не шел дым.
С: - У Вас Винды стоят?
Ю: - Да.
С: - Ок. Звоните в tech support Microsoft... там все объяснят.
Через 15 минут...
Тот же Юзер:
- Добрый день, мне нужен новый блок питания.
С (удивленно):
- Эээ... а можно поинтересоваться... что Вам сказали в Microsoft???
Ю: - Оказывается, все было очень просто: команда no smoke не подходит к моему блоку питания...

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