Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Декабрь 2003   →
 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
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 30.12.03 11:46

Вышел очередной дайджест форумов. Скачать можно здесь

От души Поздравляем всех с праздником

Кое-что из нашей кладовки   |x|
  • Cool Editor 3.0 BlackLord2003 cooleditor@nm.ru   (28.12.03 15:29)
    Мой текстовый редактор. Зацените!
    »»» Скачать: исходные тексты (890кб)
  • b.Сейф. Администратор   (29.12.03 13:28)
    Очень хорошая программа для хранения файлов в одном файле. Компресс, шифровка. Связь с файлами. Очень качественная программа. Без излишеств.
    »»» Скачать: исходные тексты
Лучшее из нашего FAQ   |x|
Как найти далее при помощи pos? (аналог найти далее в блокноте windows-а) 

function SearchString(const FindStr, SourceString: String;Num: Integer):Integer;
var
 FirstP: PChar;
function MyPos(const FindStr, SourceString: PChar;Num: Integer): PChar;
begin
 Result := AnsiStrPos(SourceString,FindStr);
 if (Result=nil) then Exit;
 Inc(Result);
 if Num=1 then Exit;
 if num>1 then Result := MyPos(FindStr,Result,num-1);
end;
begin  Result := 0;
 FirstP := PChar(SourceString);
 Result := MyPos(PChar(FindStr),PChar(SourceString),Num) - FirstP;
 if Result<0 then Result := 0;
end;
 
function NextSubStr(Const SubStr,Str : String; PrevIdx : Integer):Integer;
begin
if (PrevIdx<=Length(Str)) and (PrevIdx>0)
 then
  Result := pos(SubStr,PChar(@Str[PrevIdx]))+PrevIdx-1

else
  Result := 0;
end;
Var k : Integer;
begin
k :=NextSubStr('a','abcabcabc',1);
Label1.Caption:=IntToStr(k); // Выводим позицию первого вхождения строки 'a'
k :=NextSubStr('a','abcabcabc',k+1);
Label2.Caption:=IntToStr(k); // Выводим позицию следующего вхождения строки 'a'
end;
 
function fStrPos(const Line, Sample: string; FromPos, ToPos: integer): integer;
var
 stLen, samLen: integer;
 StopIndex: integer;
 StopChar, ch: char;
 SuffixStr, RevertSample: string;
 SuffixLen: integer;
 i, incr: integer;
begin
 Result := 0;
 //checks
 SamLen := length(Sample);
 if SamLen = 0 then exit;
 if FromPos <= 0 then FromPos := 1;
 stLen := length(Line);
 if (ToPos < stLen) and (toPos >= FromPos) then

  stLen := toPos;
 //Переворачиваем Sample - удобно для Pos
 SetLength(RevertSample, SamLen);
 for i := 1 to SamLen do
   RevertSample[SamLen - i + 1] := Sample[i];
 //Пока не дошли до конца участка минус длина образца...
 while FromPos <= (stLen - samLen + 1) do
 begin
   //сравниваем образец СПРАВА НАЛЕВО
   StopIndex := 0;
   for i := samLen downTo 1 do
     if Sample[i] <> Line[i + FromPos - 1] then
     begin
       //На чем запнулись
       StopIndex := i;
       StopChar := Line[i + FromPos - 1];
       SuffixStr := copy(Sample, i+1, samLen - i);
       SuffixLen := length(SuffixStr);
       Break;

    end;
    //Проверка совпадения
    if StopIndex = 0 then
    begin
      Result := FromPos;
      Exit;
    end;
    //Переворачиваем суффикс
    for i := 1 to (SuffixLen div 2) do
    begin
      ch := suffixstr[SuffixLen - i + 1];
      suffixstr[SuffixLen - i + 1] := suffixStr[i];
      suffixstr[i] := ch;
    end;
    //Приращение по суффиксу - следующее вхождение
    incr := Pos(SuffixStr, copy(RevertSample,SuffixLen + 1,SamLen));
    //Приращение по стоп-символу:
    for i := StopIndex - 1 downTo 1 do
      if
Sample[i] = StopChar then
      begin
        if incr < (SamLen - i) then
          incr := SamLen - i;
        break;
      end;
    if incr = 0 then incr := samLen;
    inc(FromPos, incr);
 end;
end;

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Эволюция средств разработки Web приложений в Delphi. Часть 2. WebSnap
Технология WebSnap является дальнейшим развитием технологии WebBroker, еще более упрощающей разработку приложений для Web. Поддержка нескольких Web модулей делает возможной разделить труд по разработке приложения между несколькими разработчиками, возможность доступа к объектам модуля из скрипта, выполняемого на стороне сервера дает возможность «оживить» HTML страницы...
Новинки книжного рынка   |x|
Программирование баз данных в Delphi 6. Учебный курс (+дискета)
В книге описываются многочисленные визуальные и невизуальные компоненты, а также технологии, использующиеся для создания приложений баз данных. Последовательно рассматриваются три наиболее распространенных архитектуры баз данных — файл-серверная, клиент-серверная и трехзвенная. Многие описываемые технологии могут быть применены и в более ранних версиях пакета Delphi. Книга содержит также значительный объем тщательно отобранной и хорошо организованной справочной информации.
Автор: Фаронов В. В.
Другие сайты о DELPHI   |x|
EMS HitechsCompany
На нашем сайте Вы всегда можете найти самую последнюю версию EMS QuickDesk -- одного из лучших средств администрирования Interbase,
а также различные высококачественные компоненты для Borland ...
» Оценка сайта: 2
Опрос населения :)
Образование программиста?
»»» Высшее
»»» Незаконченное высшее
»»» Среднее специальное
»»» Среднее
Для души

Хокку дня
Намазал на хлеб
Запах листвы молодой,
И уплетаю...

Афоризмы
Люди находят утешение в бедах, обрушившихся на других....

Фраза дня
Я парень хоть куда, но девушки туда не соглашаются.

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Меса в Аризоне (США) запрещается курить в переделах 5-ти метров от общественных учреждений. Исключение- если у вас есть особая лицензия.
В Монтане (США) считается незаконным заниматься сексом в какой либо позиции, кроме "миссионерской".

И на закуску коротенький анекдот
Прибегает молодой сын-юрист к старому отцу-юристу и кричит:
- Отец, поздравь меня! Я выиграл дело, которое ты не мог выиграть всю свою жизнь!
А тот ему в ответ:
- Дурак, я с него кормился всю свою жизнь!

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=78484

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (merlin@delphimaster.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное