Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c