Текущий архив: 2003.06.02;
Скачать: 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 вся ветка
Текущий архив: 2003.06.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.021 c
