Показать сообщение отдельно
  #2  
Старый 15.08.2010, 16:05
Аватар для pesi
pesi pesi вне форума
Активный
 
Регистрация: 12.09.2008
Сообщения: 275
Репутация: 43
По умолчанию

Код:
function PosSrc(S: String): String;
var
	B, E: Integer;
begin
	B:= Pos('SRC="', S)+5;
	E:= PosEx('"', S, B);
	Result:= Copy(S, B, E-B);
end;
Ответить с цитированием