как соединить функцию с процедурой

[viorel]

как соединить функцию с процедурой

function IntToBin(Value: LongInt;Size: Integer): String; 
var 
i: Integer; 
begin 
  Result:=''; 
  for i:=Size downto 0 do 
  begin 
    if Value and (1 shl i)<>0 then 
      Result:=Result+'1'; 
    else 
      Result:=Result+'0'; 
  end; 
end;

procedure TForm1.Edit1Change(Sender: TObject);

var i: integer;
    alfabet,str : string;

begin
for i:=1 to length(edit1.text) do
str := str + inttostr(Ord(Edit1.Text[i])) ;

Edit2.text:=str;

end;
end.

[Utkin]

Смотря для чего.

[Stilet]

procedure TForm1.Edit1Change(Sender: TObject);

var i: integer;
    alfabet,str : string;
////////////////////////////////////////
function IntToBin(Value: LongInt;Size: Integer): String; 
var 
i: Integer; 
begin 
  Result:=''; 
  for i:=Size downto 0 do 
  begin 
    if Value and (1 shl i)<>0 then 
      Result:=Result+'1'; 
    else 
      Result:=Result+'0'; 
  end; 
end;
/////////////////////////////////////////////////
begin
for i:=1 to length(edit1.text) do
str := str + inttostr(Ord(Edit1.Text[i])) ;

Edit2.text:=str;

end;

Сойдет?

[RUSt88]

а просто вызвать ее не катит?