Вверх ↑
Ответов: 9904
Рейтинг: 351
#1: 2020-01-03 00:30:50 ЛС | профиль | цитата
Вообще-то, стиль выравнивания вещь сугубо индивидуальная. Лишь бы система была законченная и непротиворечивая.
Чего здесь главное, спрашивается...
А вот глядишь ты на этот код, и как-то это отражается на твоей мозговой деятельности.
По разному написано, по разному и отражается.
Вот посмотрел я на обероновский код выше, посмотрел, посмотрел -- и подумал себе: а может вот эдак красивше будет ???
function _StrCmp(Str,Msk:PChar):boolean;
begin
while (Str^<>#0)and(Msk^<>#0) do begin
if Msk^ = '*' then begin
Result := _StrCmp(Str,Msk+1);
if Result then exit;
end else begin
if Msk^='#' then Result := Str^in['0'..'9']
else Result := (Msk^='?')or(Msk^=Str^);
if Result then Inc(Msk)
else exit;
end;
Inc(Str);
end;
while Msk^ = '*' do inc(Msk);
Result := (Str^ = #0)and(Msk^ = #0);
end;
Вот у меня так... Не виноватый я
карма: 9

0
Редактировалось 10 раз(а), последний 2020-01-03 02:12:04