Процедуры дельфи !

[Heng]

Почему процедура DelCom не работает ?

procedure TForm1.DelCom(s: string);
var
  i:integer;
  v:boolean;
  w,w1:Integer;

begin
  delete(s,pos('//',s),Length(s)-1);
   for i:=1 to Length(s) do  begin

   if s[i] = '{' then begin w:=w+1; v:=true;
   delete(s,pos('{',s),length(s)-1);
   end;

   if s[i] = '}' then begin w1:=w1+1; v:=false;
   Delete(s,1,pos('}',s));
   end;

  end;
   if (w=0) and (w1=0) and (v=true) then
   Delete(s,1,Length(s));
       w:=0;w1:=0;
end;
//////////////////////////////////////////////////////////////////////////////

 w:=0; w1:=0; v:=false; v1:=false;
while x < memo1.Lines.Count do begin

  s1:='';
 1:s:=Memo1.Lines[x];           
  sg1.Cells[0,y+1]:=inttostr(x+1);  
  s:=s+' ';

  DelCom; //процедура которая должна удалить комментарии из строки
end;

[Stilet]

Потому что она у тебя описана с параметром:

DelCom(s: string);

А вызываешь ты ее без:

s:=s+' ';

DelCom; //процедура которая должна удалить комментарии из строки
end;

[Mad_Cat]

DelCom;

строку в нее передавать не пробовали с комментариями?

[Heng]

исправил, всеравно s после DelCom идет с коментариями, а если вместо процедуры тупо код вставлю то все пашет !

я вообще все правильно описал? мб нетак написал что ???

Процедура понимает что ей надо менять переменные v,w,w1 ?? которые имеются за пределами процедуры

Больше идей нет ?

я проверил, внутри процедуры действие выполняется, а за пределы не выходит, как это исправить ????

[Mad_Cat]

procedure TForm1.DelCom( var s: string);