Функция pos() - где ошибка? (((

[koko]

Здравствуйте!

Подскажите чайнику пожалуйста в чём ошибка при использовании функции pos.

Программа (для примера):
program project2;
uses
CRT;
var
temp_string, find_string: string; {}

begin
find_string:='***';
temp_string:='*=========';
pos(find_string, temp_string)
end.

При компиляции и при работе не ругается, однако когда пытаюсь считать значение функции pos в окне "список наблюдений" - там всё время вот такое значение "<Error: No symbol \"pos\" in current context.>" для имени "pos(find_string, temp_string)".

Мне казалось там должно быть значение "False" ...

С уважением,
Константин

[Aleksey Elin]

Отладчик не умеет вызывать функции, поэтому вы не видите ее значения. Для того чтобы посмотреть значение функции присвойте ее результат промежуточной переменной и смотрите в отладчике уже значение переменной:

Код: Выделить всё

{$APPTYPE CONSOLE}
program project2;

{$mode delphi}{$H+}   

function Included(const S, Sub : string) : Boolean;
var
  i         : Integer;
begin
  i:=pos(Sub,S);
  Result:=(i>0);
end;     

begin
  WriteLn( Included('*=========','***') );
end.
 


В приведенном коде можно поставить брекпойнт на сроку Result:=(i>0); и смотреть значение i;

Примечание: Фнкция pos возвращает первую позицию подстроки в строке и 0 если подстрока не найдена, а не Boolean

[koko]

Большое спасибо!!!
Всё получилось.