[Delphinic]

Вот к примеру такой кусок программы.

case pattern^ of '*': if MatchPattern(element, @pattern[1]) then
Result := True
else
Result := MatchPattern(@element[1], pattern);
'?': Result := MatchPattern(@element[1], @pattern[1]);
else
if element^ = pattern^ then
Result := MatchPattern(@element[1], @pattern[1])
else
Result := False;
end;
end;

Дельфи ругается Incompatible types на все строчки где есть @pattern
Ему не нравится @. Почему не пойму. Это уже не в первой.

[zip000]

Я так понял, что pattern это переменная укзательного типа? Если да, то запись @pattern является указателем на указатель, это неправильно в данном случае.

[Delphinic]

Я хотел вот это применить себе.
http://soft32.ru/delphi.shtml?topic=...n g_in_string

Но не получается.

[zip000]

У меня в D6 все компилится и работает без проблем, а ты случаем не 7 юзаешь?

[Delphinic]

Именно 7, может у меня какие правила другие??

[White_Horse]

Сообщение от zip000

У меня в D6 все компилится и работает без проблем, а ты случаем не 7 юзаешь?

В Delphi 7 всё компилится также без проблем

[zip000]

Попробуй перед функцией MatchStrings вставить директиву {$T-}, должно помочь.

[Delphinic]

Спасиб огромное, все заработало!