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

Подскажите пожалуйста как осуществлять поиск в TFileStream   Найти похожие ветки 

← →
AlickSnegov ©   (2003-05-21 15:29) [0]

Подскажите пожалуйста как осуществлять поиск в TFileStream

---

← →
Smithson ©   (2003-05-21 16:38) [1]

Поиск чего?

---

← →
pasha_golub ©   (2003-05-21 17:32) [2]

function IsFileContentMatched(const FileName: TFileName; const Phrase: String; LowerCaseMatch: Boolean): Boolean;
var
FileStream: TFileStream;
StringStream: TStringStream;
FileContent: String;
begin
StringStream := TStringStream.Create(FileContent);
try
FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
try
StringStream.CopyFrom(FileStream, 0);
finally
FileStream.Free;
end;
if LowerCaseMatch then
Result := Pos(Phrase, LowerCase(StringStream.DataString)) <> 0
else
Result := Pos(Phrase, StringStream.DataString) <> 0;
finally
StringStream.Free;
end;
end;

---

← →
Palladin ©   (2003-05-21 17:41) [3]

нужны конкретные тех условия
я тоже могу спросить, как достать до луны, и после десятка издевательских постов выдать, что "а как?! вы не знали чтоли? Луна это у меня марка лампы"

---

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

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



Память: 0.45 MB
Время: 0.012 c