Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

Поиск текста в текстовом файле...   Найти похожие ветки 

 
Aspi   (2004-09-25 20:18) [0]

Подкажите функцию поиска текста в текстовом файле?


 
Palladin ©   (2004-09-25 20:30) [1]

ReadLn
Pos


 
GanibalLector ©   (2004-09-26 00:22) [2]

Что значит текстовый???В ОС нет такого.


 
Aspi   (2004-09-26 07:09) [3]

>GanibalLector ©   (26.09.04 00:22) [2]

>Что значит текстовый???В ОС нет такого.

Файл с расширением .txt


 
Pavel_Pavel ©   (2004-09-26 07:45) [4]

Орешник :)


 
Defunct ©   (2004-09-26 08:12) [5]

GanibalLector ©   (26.09.04 00:22) [2]
> В ОС нет такого.
Докажите!

есть в ОС такой:

HKEY_CLASSES_ROOT\.txt
CONTENT TYPE = plain/text
PerceivedType = text

PS: Нехорошо к словам придераться есть такое понятие как текстовый файл, и как правило текстовый файл с расширением txt.


 
Yuri-7   (2004-09-26 10:19) [6]

var
 ms: TMemoryStream;
 p: Pchar;
...
//*******************************************
function SearchStr(s: string): Boolean;
var i: integer;
begin
 for i:=0 to ms.Size-Length(s)-1 do
 begin
   if CompareMem(@p[i],@s[1],Length(s)) then
   begin
     Result:=True;
     exit;
   end;
 end;
 Result:=False;
end;
//*********************************************
procedure TForm1.Button1Click(Sender: TObject);
begin
 ms:=TMemoryStream.Create;
 ms.LoadFromFile(Edit1.text);
 p:=ms.Memory;
 if SearchStr(Edit2.Text) then ShowMessage("Found")
 else ShowMessage("Not Found");
 ms.Free;
end;


 
Palladin ©   (2004-09-26 10:25) [7]


>  Yuri-7   (26.09.04 10:19)

а функция Pos для кого придумана? и работает побыстрей чем это убожество...


 
Yuri-7   (2004-09-26 10:33) [8]

> Palladin ©   (26.09.04 10:25) [7]

А ты уже проверил, что быстрее? Проверь!


 
Anatoly Podgoretsky ©   (2004-09-26 10:33) [9]

GanibalLector ©   (26.09.04 00:22) [2]
В Паскале есть


 
Palladin ©   (2004-09-26 11:21) [10]


> [8] Yuri-7   (26.09.04 10:33)

В 2 раза



Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
1-1095303974
Kair()
2004-09-16 07:06
2004.10.10


14-1095664307
Рамиль
2004-09-20 11:11
2004.10.10
Ищу работу в Москве (ERP).


1-1096135368
Charly22
2004-09-25 22:02
2004.10.10
MDI-интерфейс: проблемы с закрытием дочерних форм.


3-1094676696
PSN
2004-09-09 00:51
2004.10.10
UPPER и COLLATE


14-1095501470
Максим
2004-09-18 13:57
2004.10.10
Есть ли русскоязычный HELP на Delphi 7.0?