Помогите с Delphi

Ошибка вот сдесь
if pos('photo',webbrowser1.LocationURL) > 0 then begin

 

текст ошибки скопируй.

 

[DCC Warning] Unit1.pas(43): W1058 Implicit string cast with potential data loss from 'WideString' to 'ShortString'

 

LocationURL - это widestring.
В pos должен быть string

 

попробуй так

edit.text:=webbrowser1.LocationURL;
if pos('photo',edit.text) > 0 then begin

 

не работает

 

Ужас, это же извращение.

ТС, у тебя не ошибка, а предупреждение. Программа должна компилироваться, если нету ошибок. Чтобы избавиться от этого предупреждения, используй явное приведение типа переменной:

Code:

if pos('photo', string(webbrowser1.LocationURL)) > 0 then begin