Форум: "Основная";
Текущий архив: 2003.06.02;
Скачать: [xml.tar.bz2];
Вниз
Подскажите пожалуйста как осуществлять поиск в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.026 c
