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

RFpro.ru: Программирование на Delphi и Lazarus

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.312 RSS
←   Август 2010   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

3.312 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Delphi и Lazarus


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Boriss
Статус: Академик
Рейтинг: 2460
∙ повысить рейтинг » 		star9491
Статус: Профессионал
Рейтинг: 2267
∙ повысить рейтинг » 		Евгений/Genia007/
Статус: Профессионал
Рейтинг: 1078
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Delphi и Lazarus

Номер выпуска:1548
Дата выхода:14.08.2010, 23:30
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:291 / 187
Вопросов / ответов:1 / 1

Вопрос № 179695: Здраствуйте, уважаемые эксперты. Помогите, пожалуйста, реализовать поиск в файле с помощью компонента ATStreamSearch. Для отображения файла использовать компонент TMemo или TRichEdit. Заранее благодарен!...

Вопрос № 179695:

Здраствуйте, уважаемые эксперты. Помогите, пожалуйста, реализовать поиск в файле с помощью компонента ATStreamSearch. Для отображения файла использовать компонент TMemo или TRichEdit. Заранее благодарен!

Отправлен: 09.08.2010, 23:01
Вопрос задал: Vlad, Посетитель
Всего ответов: 1
Страница вопроса »

Отвечает Евгений/Genia007/, Профессионал :
Здравствуйте, Vlad.
Предлагаю такой вариант поиска в текстовом при помощи компонентов ATStreamSearch и TRichEdit.
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ATStreamSearch;

type
  TForm1 = class(TForm)
    ATStreamSearch1: TATStreamSearch;
    RichEdit1: TRichEdit;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    OpenDialog1: TOpenDialog;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Pri
 vate declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ATxCodepages;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.Execute then  //  Если открылся диалог
    Richedit1.Lines.LoadFromFile(opendialog1.FileName);  //  Загружаем текстовый файл
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ok: boolean;
  Encoding: TATEncoding;
  Options:
TATStreamSearchOptions;
begin
  ATStreamSearch1.FileName:= opendialog1.FileName;  //  Присваиваем компоненту путь к файлу
  Encoding := vencANSI;  //  Кодировка ANSI
  Include(Options, asoWholeWords);  //  Поиск целых слов
  ok:= ATStreamSearch1.FindFirst(edit1.Text, 0, Encoding, Options);  //  Ищем первое слово
  if not ok then
    begin  //  Не нашли
      showmessage('Не найдено');
      exit;
    end;
  Richedit1.SelStart:=
  ATStreamSearch1.FoundStart;  //  Позиция начала найденого слова
  Richedit1.SelLength:= ATStreamSearch1.FoundLength;  //  Длина найденого слова
  Richedit1.Perform(EM_SCROLLCARET, 0, 0);  //  Скролинг
  Richedit1.SetFocus;  //  Фокус на компонент
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  ok: boolean;
  Encoding: TATEncoding;
  Options: TATStreamSearchOptions;
begin
  Encoding := vencANSI;  //  Кодировка ANSI
  Include(Options, asoWholeWords);  //  Поиск
целых слов
  ok:= ATStreamSearch1.FindNext;  //  Ищем следующее слово
  if not ok then
    begin  //  Не нашли
      showmessage('Не найдено');
      exit;
    end;
  Richedit1.SelStart:= ATStreamSearch1.FoundStart;  //  Позиция начала найденого слова
  Richedit1.SelLength:= ATStreamSearch1.FoundLength;  //  Длина найденого слова
  Richedit1.Perform(EM_SCROLLCARET, 0, 0);  //  Скролинг
  Richedit1.SetFocus;  //  Фокус на компонент<
 br>end;

end.
Прикрепленный файл: загрузить »

-----
Помогли тебе, помоги и ты.

Ответ отправил: Евгений/Genia007/, Профессионал
Ответ отправлен: 12.08.2010, 13:40
Номер ответа: 262793

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 262793 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.16 от 26.05.2010
    В избранное