Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Aspi © (2004-09-25 20:18:00)
Подкажите функцию поиска текста в текстовом файле?

Palladin (2004-09-26 11:21:00) [1]

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

В 2 раза

Yuri-7 (2004-09-26 10:33:00) [2]
> Palladin © (26.09.04 10:25) [7]

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

Anatoly Podgoretsky (2004-09-26 10:33:00) [3]
GanibalLector © (26.09.04 00:22) [2]
В Паскале есть

Palladin (2004-09-26 10:25:00) [4]

> Yuri-7 (26.09.04 10:19)

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

Yuri-7 (2004-09-26 10:19:00) [5]
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;

Defunct (2004-09-26 08:12:00) [6]
GanibalLector © (26.09.04 00:22) [2]
> В ОС нет такого.
Докажите!

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

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

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

Pavel_Pavel (2004-09-26 07:45:00) [7]
Орешник :)

Aspi (2004-09-26 07:09:00) [8]
>GanibalLector © (26.09.04 00:22) [2]

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

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

GanibalLector (2004-09-26 00:22:00) [9]
Что значит текстовый???В ОС нет такого.

Palladin (2004-09-25 20:30:00) [10]
ReadLn
Pos

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »