Поиск текста в текстовом файле...

← →
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]

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

В 2 раза

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