Синтаксис процедуры

[bestlover]

А Вы не когда не думали, что будет, если последним символом окажется '<', ну или что будет если в цикле дойдете до последнего символа и будите сравнивать [i+1]='/'

такого не будет! предусмотрел

[bestlover]

Помогите плиз! очень надо сделать из

for i:=t to length(str) do
begin
inc(x);
if (str[i]='<') and (str[i+1]='/') and (str[i+2]='m') then exit;

процедуру! неужели так тяжело???

[Proof]

Помогите плиз! очень надо сделать из
Цитата:
for i:=t to length(str) do
begin
inc(x);
if (str[i]='<') and (str[i+1]='/') and (str[i+2]='m') then exit;
процедуру! неужели так тяжело???

procedure fr(i,y,x:integer;str:string);
begin
  for i:=y to length(str) do
  begin
    inc(x);
    if (str[i]='<') and (str[i+1]='/') and (str[i+2]='m') then exit;
  end;
end;

При вставке программного кода используйте тег CODE.

[bestlover]

Спасибо Proof!

[evg_m]

x:=posex('</m',str,y);