Delphi заготовки

... Читать дальше »

... Читать дальше »

Пример функции расчета чисел Фибаначи
Чи́сла Фибона́ччи — элементы числовой последовательности 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377, 610, 987, 1597, 2584, 4181, 6765, 10946, … (последовательность A000045 в OEIS) в которой каждое последующее число равно сумме двух предыдущих чисел. Название по имени средневекового математика Леонардо Пизанского (известного как Фибоначчи)[1]. Иногда число 0 не рассматривается как член последовательности. Более формально, последовательность чисел Фибоначчи задается линейным рекуррентным соотношением: Иногда числа Фибоначчи рассматривают и для отрицательных номеров n как двусторонне бесконечную последовательность, удовлетворяющую тому же рекуррентному соотношению. При этом члены с отрицательными индексами легко получить с помощью эквивалентной формулы «назад»:

пример кода  на Pascal/Delphi для расчета числа  Фибаначи.

    Function GetFibo(g:integer):integer;
     var ... Читать дальше »

Функция провеки текста на русские / латинские буквы. возвращает процентное соотношение кирилицы и латиницы

возвращает тип значения  

 TntStr=record
    Fl:real;
    Text:string;
    TextComment:string;
  end;
Fl:real; - процентное соотношение
Text:string; - краткий комментарий
TextComment:string; более подробный

Function GetRusEngText(s:string):TntStr; сам заголовок функции

пример  вывода

Англиских букв 342
Русских букв 64
Знаков 165
Цифр и (мат знаков 0-9,%,/,+,-,*,\)  134
Всего пробелов 193
Всего длина текста 898
Процентное соотношение RUS/ENG = 16%


исходник доступен по ссылки
/download/RusENG.rar

procedure TForm1.Button2Click(Sender: TObject);
   var a,y,dx,Xn,Xk,x:Extended;
   trow:integer;
begin
dx:=00;
    if trystrtofloat(edit1.text,xn) and trystrtofloat(edit2.text,xk) and trystrtofloat(edit3.text,dx) and (dx>0) and trystrtofloat(edit4.text,a)  then begin // проверяем условие
    x:=xn;
    form1.StringGrid1.Cells[0,0]:='Значения X';
    form1.StringGrid1.Cells[1,0]:='Значения Y';
    form1.StringGrid1.RowCount:=round((xk-xn)/dx)+1;
    form1.Series1.Clear;
    form1.Series2.Clear;
    trow:=1;
      ... Читать дальше »

Программа рисования линий как в вконтакте
эффект Alpha наложения  пример реализации
Alpha Pascal Delphi

на основе формул

Приём.Blue=alpha* Источн.Blue+(1-alpha)* Приём.Blue
Приём.Green=alpha* Источн.Green+(1-alpha)* Приём.Green
Приём.Red=alpha* Источн.Red+(1-alpha)* Приём.Red
Приём.alpha=alpha* Источн.alpha+(1-alpha)* Приём.alpha




рисование линий на основе исходника http://delphidevelop.ru/publ/1-1-0-190

Программа для публикации исходников создана для вывода содержимого всех файлов исходного кода в один и подсветка синтаксиса языка. может быть модифицирована под ваши нужды.



порядок действий.

1 Необходимо выбрать директорию где находиться нужный нам исходник
2 Собрать все Pas файлы в один файл
3 Сохранить все в один rtf файл

Скриншот


файл проекта можно скачать скачать файл

Загружены примеры работ на Delphi & Pascal
курсовая работа по программированию баз данных Delphi и Access
 
Базы данных 

Приложение баз данных предназначено для взаимодействия с некоторым источником данных — базой данных (БД). Взаимодействие подразумевает получение данных, их представление в определенном формате для просмотра пользователем, редактирование в соответствии с реализованными в программе бизнес- алгоритмами и возврат обработанных данных обратно в базу данных.

В качестве источника данных могут выступать как собственно базы данных, так и обычные файлы — текстовые, электронные таблицы и т. д. Но здесь мы будем рассматривать приложения, работающие с базам ... Читать дальше »

... Читать дальше »