nesco писал(а):
Нет, не правильно, имена могут начинаться с цифры, вот тогда бардак и начнетсяGalkov,я бы ещё поменял местами строки
procedure THIFileSearch._work_doSearch;
var Dr:String;
begin
Dr := ReadString(_Data,_data_Dir,_prop_Dir);
FWorkExt := LowerCase(ReadString(_Data,_data_Ext,_prop_Ext));
if Dr = ' then exit;
..................
procedure THIFileSearch._work_doSearch;
var Dr:String;
begin
Dr := ReadString(_Data,_data_Dir,_prop_Dir);
if Dr = ' then exit;
FWorkExt := LowerCase(ReadString(_Data,_data_Ext,_prop_Ext));
..................
Поиск
Друзья
Администрация