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

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

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

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

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