Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Окт

Рассылка. Выпуск 82

Posted by Chas under Рассылка

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
Тема на форуме

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

Немного юмора.

***
Сидит психиатр (П) у себя в кабинете – скучает… пациенты не идут.
Тут тихонько так приоткрывается дверь и к нему на карачках заползает человек (Ч) сжимая что-то в зубах, руках и т. д. плюс что-то еще волочится сзади.

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

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

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

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

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

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

Читать этот номер в клубе.

Случайные статьи

Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru

Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas

Наши форумы по программированию: