Последние записи
- Удаление папки с файлами
- Распечатка файла
- Преобразовать массив байт в вещественное число (single)
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
20th
Май
Рассылка. Выпуск 59
От ведущего рассылки.
Приветствую Вас в Клубе ПРОграммистов!! Сегодня выходит очередной 59 выпуск рассылки от клуба.
Сегодня, как обычно, у нас интересные темы на форуме. Плюс вышел очередной выпуск журнала ПРОграммист. Поэтому будут интересные факты с журнала и одна статья, которая лично мне очень пригляделась.
У журнала ПРОграммист появился личный веб сайт. Советую посетить http://procoder.info/
20th
Выгрузка вычисляемых полей Table в Excel
procedure TForm1.InExel1Click(Sender: TObject);
Var
a1:string;
XLApp,Sheet,Colum:Variant;
n2:integer;
begin
XLApp:=CreateOleobject('Excel.Application');
XLApp.Visible:=true;
XLApp.workbooks.Add(-4167);
XLApp.Workbooks[1].WorkSheets[1].Name:='Товар';
Colum:=XLApp.Workbooks[1].WorkSheets['Товар'].Columns;
N2:=1;
Colum.Columns[1].ColumnWidth:=5;
Colum.Columns[2].ColumnWidth:=30;
Colum.Columns[3].ColumnWidth:=15;
Colum.Columns[4].ColumnWidth:=20;
Colum:=XLApp.Workbooks[1].WorkSheets['Товар'].Rows;
Colum.Rows[2].Font.Bold:=true;
Colum.Rows[1].Font.Bold:=true;
Colum.Rows[1].Font.Color:=clBlue;
Colum.Rows[1].Font.Size:=9;
Sheet:=XLApp.Workbooks[1].WorkSheets['Товар'];
Sheet.Cells[n2,1]:=' ';
Sheet.Cells[n2,2]:=' ';
Sheet.Cells[n2,3]:=' ';
Sheet.Cells[n2,4]:=' ';
Table1.First; //ВЫВОД В ТАБЛИЦУ
end;
20th
Макрос на VBA для переворота текста
Private Sub Document_New()
Dim a As Single
a = InputBox(”Введите текст”, “Enter”)
Selection.TypeText Text:=”Вы ввели текст” + Str(a) + Chr(13) + Chr(10)
Selection.TypeText Text:=”Перевернутый вариант” + StrReverse(a)
End Sub
20th
Телефон читающий по губам
Телефон, читающий по губам продемонстрировала на выставке CeBIT 2010 группа исследователей из технологического института города Карлсруэ (Германия). Технология позволит владельцам сотовых телефонов обмениваться информацией по телефону, не издавая ни единого звука.
Устройство использует методику электромиографии (применяется для диагностики некоторых нервных заболеваний), то есть измеряет электрическую активность движений мышц лица во время разговора. Крошечные электрические сигналы, производимые лицевыми мышцами, оно записывает даже тогда, когда человек вообще беззвучно воспроизводит слова. В настоящее время для снятия показаний используется 9 электродов, закрепляемых на коже, но в будущем ученые надеются избавиться от проводов и эти электроды будут встроены в мобильные устройства. Технолог
17th
Май
Обращение к свойству компонента не зная его имени
Примерно такая ситуация – есть n компонентов TImage.Статических.Хочу обратиться к свойству tag рандомно выбранного компонента.Возможно такое?(можно хранить их в массиве конечно и создавать динамически но мне желательно без этого)…
...
var
RaspMatF: TRaspMatF;
cbet : array of integer;
.....
for i := 0 to RaspMatF.ComponentCount - 1 do // перебираем на форме все компоненты
begin
if (RaspMatF.Components is TCheckBox) and TCheckBox(RaspMatF.Components).Checked then // и если выбранный компонент является чекбоксом, и он выбра(стоит галочка)
begin
SetLength(cbet, (length(cbet)+1)); // то мы увеличиваем размер массива на 1
cbet[High(cbet)] := TCheckBox(RaspMatF.Components).Tag; // добавляем значение в массив
end;
end;
таким образом я записывал в массив значения Tag выбранных компонентов CheckBox
17th
Гауссовское распределение
К примеру, нормальное (Гауссово) строится используя математическую хитрость о том, что сумма равномерно-распределенных случ. величин – есть нормальная случ. величина.
{ Моделирование нормального распределения }
function Norm: Real;
var
s: Real;
i: Integer;
begin
s := 0;
for i := 1 to Nmax do s := s + Random;
norm := s-Nmax/2;
end;
{ Моделирование распределения скоростей Максвелла }
procedure Maxwell(disp,norm:real;var vx,vy:array of Real);
var
i: integer;
begin
for i := 1 to Nmax do begin
vx := norm*disp;
vy := norm*disp;
end;
end;
Максвеловское (на самом деле это очень похожее на него) приведено для примера. Как управлять дисперсией.
С нормальным немного почесать затылок и можно будет сместить и среднее значение и среднее отклонение.
ЗЫ: Random – встроенный генератор случайных чисел, выдает случайную величину с равномерной плотностью распределения. если что ))
17th
Фреймы HTML
Хоть от фреймов и желательно отказаться, но появляются в сети вопросы, о работе с ними.
Пример страницы с четырьмя фреймами.
<!--- содержимое файла index.html ---!>
<frameset rows="100,*,20">
<frame src="head.html">
<frameset cols="200,*">
<frame src="menu.html">
<frame src="content.html">
</frameset>
<frame src="footer.html">
</frameset>
<!--- содержимое файла head.html ---!>
шляпго
<!--- содержимое файла menu.html ---!>
<a href="http://url">гиперссылка(любая)</a>
<!--- содержимое файла content.html ---!>
текст(любой)
<!--- содержимое файла footer.html ---!>
<center>О_о</center>
PS: в данном примере все файлы должны лежать в одной папке.
17th
Движение бильярдного шара
Простенькая наработка для имитации движения бильярдного шара.
uses crt,graph;
var gd,gm:integer;
dx,dy:integer;
x1,y1,radius:integer;
begin
gd:=detect;
initgraph(gd,gm,' ');
setcolor(green);
rectangle(10,10,610,460);
x1:=50;y1:=200;
radius:=10;
dx:=3;dy:=2;
setcolor(yellow);
circle(x1,y1,radius);
repeat
setcolor(0);
circle(x1,y1,radius);
if x1>610 then dx:=-dx;
if x1<10 then dx:=-dx;
if y1>470 then dy:=-dy;
if y1<10 then dy:=-dy;
x1:=x1+dx;y1:=y1+dy;
setcolor(yellow);
circle(x1,y1,radius);
delay(10000);
until (x1-10<=10) and (y1+10>=47) or
(x1-10<=10) and (y1-10<=10) or
(x1+10>=610) and (y1-10<=10) or
(x1+10>=610) and (y1+10>=470);
readln;
closegraph;
end.
16th
Май
Lazarus: Полная кроссплатформенность?
Доброе время суток.
На этот раз, меня интересует среда программирования Lazarus. А именно: компиляция при ее помощи проектов Delphi под Mac OS X и Linux. Насколько я слышал, Лазарус не всегда их корректно компилирует. Это вроде бы связано с некоторыми библиотеками (так во всяком случае я читал). Меня интересует так ли это и насколько вообще среда Lasarus пригодна для переноса программ на Delphi под другие ОС?
15th
Май
Как программно отправить CTRL+V?
raxp:
а нескольких кнопок послать нажатие можно так:
var msg: TMessage;
…
msg.LParamLo:= MOD_CONTROL;
msg.LParamHi:= VK_CONTROL or ord(’V’);
PostMessage(handle_window, WM_HOTKEY, 0, Msg.LParam);
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)