Fórum criar procedure usando edit de parametros.. #492683

procedure TFGE012.CheckBox5Click(Sender: TObject);
begin
  if CheckBox36.Checked = true then
    begin
      if pos('2',edTipoAnatomicoEsquerdo.Text) > 0 then
        begin
          edTipoAnatomicoEsquerdo.Text := stringReplace(edTipoAnatomicoEsquerdo.Text, '2,', '', []);
          edTipoAnatomicoEsquerdo.Text := stringReplace(edTipoAnatomicoEsquerdo.Text, '2', '', []);
        end
      else
        begin
          if edTipoAnatomicoEsquerdo.Text = '' then
            edTipoAnatomicoEsquerdo.Text := '2'
          else
            edTipoAnatomicoEsquerdo.Text := edTipoAnatomicoEsquerdo.Text+','+'2';
        end;
    end;

  if CheckBox37.Checked = true then
    begin
      if pos('2',edTipoAnatomicoDireito.Text) > 0 then
        begin
          edTipoAnatomicoDireito.Text := stringReplace(edTipoAnatomicoDireito.Text, '2,', '', []);
          edTipoAnatomicoDireito.Text := stringReplace(edTipoAnatomicoDireito.Text, '2', '', []);
        end
      else
        begin
          if edTipoAnatomicoDireito.Text = '' then
            edTipoAnatomicoDireito.Text := '2'
          else
            edTipoAnatomicoDireito.Text := edTipoAnatomicoDireito.Text+','+'2';
        end;
    end;
end;

procedure TFGE012.PreencheCampo(vCkBoxDir:Boolean; vCkBoxEsq:Boolean; vNum:string; vCampoDir,vCampoEsq:String; vNomeEditDir,vNomeEditEsq : TEdit);
begin
  if vCkBoxEsq = true then
    begin
      if pos(vNum,vCampoEsq) > 0 then
        begin
          showmessage('Se for maior q zero '+vNum+' - '+vCampoEsq);
          vNomeEditEsq.Text := stringReplace(vCampoEsq, vNum+',', '', []);
          vNomeEditEsq.Text := stringReplace(vCampoEsq, vNum, '', []);
        end
      else
        begin
          showmessage('Se for igual a zero '+vNum+' - '+vCampoEsq);
          if vNomeEditEsq = '' then
            vNomeEditEsq.Text := vNum
          else
            vNomeEditEsq.Text := vCampoEsq+','+vNum;
        end;
    end;

  if vCkBoxDir = true then
    begin
      if pos(vNum,vCampoDir) > 0 then
        begin
          vNomeEditDir.Text := stringReplace(vCampoDir, vNum+',', '', []);
          vNomeEditDir.Text := stringReplace(vCampoDir, vNum, '', []);
        end
      else
        begin
          if vCampoDir = '' then
            vNomeEditDir.Text := vNum
          else
            vNomeEditDir.Text := vCampoDir+','+vNum;
        end;
    end;
end;