Delphi заготовки

{

Цель работы: Используя процедуры и функции обработки строк, произвести необходимые операции над строками
Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.
}
const
  WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово
 
var
   s:string;



   Function GetTextToUslovie(s:string):string;
 var start,y,x:integer;
     s2:string;
     ch:char;
begin
  y:=0;
  s2:='';
  start:=x;
  for X:=1 to length(s) do begin
    if  (s[x] in WordChars) then begin
    if s2='' then start:=x;
       s2:=s2+s[x];
    end
     else begin
       y:=y+1;
    &nb ... Читать дальше »

const
  WordChars:set of Char =['А'..'Я','а'..'я','A'..'Z','a'..'z','0'..'9','-']; // символы из которыйх состоит слово



Function GetWordCount(s:string):integer;
 var y,x:integer;
     s2:string;
begin
  y:=0;
  s2:='';
  for X:=1 to length(s) do begin
    if  (s[x] in WordChars) then begin
       s2:=s2+s[x];
    end
     else begin
       y:=y+1;
      s2:='';
    end
  end;
  if s2<>'' then Y:=y+1;
  GetWordCount:=y;
end;

Function GetWordCountFromFile(Filename:string):integer;
var  f:Text;
     xlength:integer;
     s:string;
begin
   assign(f,Filename); { assignfile to Delphi}
   reset(f);
   xlen ... Читать дальше »

{задать целочисленный массив из отрезка (-5,5).подсчитать число ненулевых элементов}
uses crt;
const ncount=15;
var
a:array [1..ncount] of integer;
   x:integer;
   sumI:integer;
begin
ClrScr;
sumI:=0;
 for x:=1 to ncount do begin
   a[x]:=-5+random(11);
   Write(a[x]:3,' ');
   if a[x]>=0 then sumI:=sumI+1;
 end;
 Writeln('');
 Writeln('Число ненулевых элементов ',sumI);
end.

опубликую не большой исходник для создания меню в Паскаль думаю тут все понятно

протестирован на Pascal ABC
http://netsoftware.ucoz.ru/load/gde_skachat_pascal_abc/1-1-0-10

uses crt;



Var count_k:integer;
Var
  Menu: array[1..100] of string[50];



procedure Show_Menu(SelectElement:byte);
var i: byte;
begin
   for i:=1 to count_k do
   begin
      textcolor (white);
      Window (25,i*2,70,i*2+2);  { Рисуем окна с разными координатами (кнопки)}
      if (i = SelectElement) then
      TextBackground (red)
      else
      TextBackground (blue);
      write (menu[i]);
   end;
   TextBackground (blue); ... Читать дальше »

Процедура проверки числа. является ли число числом
теория

Самовлюблённое число, или совершенный цифровой инвариант (англ. pluperfect digital invariant, PPDI) или число Армстронга — натуральное число, которое в данной системе счисления равно сумме своих цифр, возведённых в степень, равную количеству его цифр. Иногда чтобы считать число таковым, достаточно, чтобы степени, в которые возводятся цифры, были равны m — тогда чис ... Читать дальше »

Добрый день. достаточно интересная тема решил посветить ей один из постов на моем блоге.

реализация данного алгоритма полностью описаны в учебники а вернее в самоучителе по программированию  Занимательное программирование (Мозговой М.В.) в сети достаточно много ссылок на его книгу
приведу обложку

    Задача автоматизация конвертации изображения из BMP в JPG одним кликом и интеграция с контекстным меню.

на основании статьи

http://www.itword.net/page/delphi-punkt-v-kontekstnoe
http://articles.org.ru/cfaq/index.php?qid=2954

\Program Files\Borland\Delphi7\Demos\ActiveX\ShellExt - пример из демо Delphi
 
разделим программу по конвертации  appname.exe  и dll для инициализации

в Dll вносим следующие изменения 

1.  Class_ContextMenu: TGUID = '{3ff174ae-e8bd-4d3d-95b9-9bb9cc6d4a91}';

что такое TGUID
http://ru.wikipedia.org/wiki/GUID
значение берем
http://www.guidgenerator.com/online-guid-generator.aspx

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

System.StrUtils.ReplaceStr

Delphi

function ReplaceStr(const AText, AFromText, AToText: string): string;

C++

extern PACKAGE System::UnicodeString __fastcall ReplaceStr(const System::UnicodeString AText, const System::UnicodeString AFromText, const System::UnicodeString AToText)/* overload */;

Описание
Заменяет все вхождения подстроки в строку, используя поиск с учетом регистра.
Используйте ReplaceStr чтобы заменить все вхождения подстроки
AFromText со строкой AToText, в строке AText.
ReplaceStr возвращает строку, полученные после замены.
Используйте ReplaceText сделать без учета регистра замены.

    Примечание: Рекурсивные замена подстрок не поддерживается. Это означает, что если замена AToText результаты в новом матче за AFromText, что матч не будет заменен.


для  Delphi 7 код

function ReplaceStr(const AText, AFromText, AToText: string): string;
{замена подстроки в строке}
var
&nb ... Читать дальше »

    Выбираем в массиве некоторый элемент, который будем называть опорным элементом. С точки зрения корректности алгоритма выбор опорного элемента безразличен. С точки зрения повышения эффективности алгоритма выбираться должна медиана, но без дополнительных сведений о сортируемых данных её обычно невозможно получить. Известные стратегии: выбирать постоянно один и тот же элемент, например, средний или последний по положению; выбирать элемент со случайно выбранным индексом.
    Операция разделения массива: реорганизуем массив таким образом, чтобы все элементы, меньшие или равные опорному элементу, оказались слева от него, а все элементы, большие опорного — справа от него. Обычный алгоритм операции:
        Два индекса — l и r, приравниваются к минимальному и максимальному индексу разделяемого массива соответственно.
        Вычисляется индекс опорного элемента m.
   ... Читать дальше »