Процедура,параметры

[WIDGET1]

ДА!!!!

Сообщение от Аватар

все гораздо хуже - передаваемый параметр ни как с ними не связан.

Посоветуйте как короче и проще, за 2 вечера 490 строк уже наваяла, просто уже ничего не понимаю. Если просто три раза переписать эту функцию под разные эдиты это будет правильно, точнее это не будет убогим кодом?...

[Stilet]

точнее это не будет убогим кодом?...

Будет. По крайней мере при таком содержимом обработчика.

[Sibedir]

Попробуйте это

var
  _EditArray: array of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (_EditArray, 3);
  _EditArray[0] := Edit1;
  _EditArray[1] := Edit2;
  _EditArray[2] := Edit3;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
var
  i, j: Integer;
begin
  j := RadioGroup1.ItemIndex;
  for i := Low(_EditArray) to High(_EditArray) do begin
    if i = j then begin
      _EditArray[i].Text := '';
      _EditArray[i].Enabled := False;
    end
    else
      _EditArray[i].Enabled := True;
  end;
end;

[WIDGET1]

Ребята, вот что я выдумала, общая процедура. И не сильно громоздко, только как-то по-детски, да?

var
  _EditArray: array of TEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength (_EditArray, 3);
  _EditArray[0] := Edit1;
  _EditArray[1] := Edit2;
  _EditArray[2] := Edit3;
end;



procedure Tedit_record.RadioClick(Sender: TObject);
var
  ind: Integer;
  s1:string;
begin
s1:=copy(tRadioGroup(sender).name,length(tRadioGroup(sender).name),1);
ind:=strtoint(s1)-1;
if tRadioGroup(sender).ItemIndex=0 then
begin
_EditArray[ind].Text := '';
_EditArray[ind].Enabled := False;
end
    else
      _EditArray[ind].Enabled := True;
  end;

Вдохновил Sibedir на это))а то спать не могла аж

[Serge_Bliznykov]

ну, в целом нормально. Только учтите, что при таком подходе (я про Copy( Name, Length(Name), 1) вы сможете обработать только девять штук Edit...
и я бы Ваш код записал так:

procedure Tedit_record.RadioClick(Sender: TObject);
var
  ind: Integer;
  s1:string;
begin
  s1:=copy(tRadioGroup(sender).name,length(tRadioGroup(sender).name),1);
  ind:=StrToIntDef(s1, 0) - 1; {если последний символ не цифра - вернётся ноль...}
  if (ind>=0) and ( ind<=High(_EditArray) ) then
     _EditArray[ind].Enabled := tRadioGroup(sender).ItemIndex<>0;

 if tRadioGroup(sender).ItemIndex=0 then 
     _EditArray[ind].Text := '';

end;

а ещё, можно легко написать код, когда массив EditArray из Edit'ов совсем не нужен. Ну тогда привязку Radiogroup к Edit нужно будет осуществлять через имя компонента ( RadioGroup1 - Edit1, RadioGroup2 - Edit2, ..., RadioGroup15 - Edit15 и т.д.) Набросать примерчик?

Хотя, Ваш код из пост #14 вполне себе достойный, ничего особо детского/ужасного/идусского в этом коде нет. если Вас устраивает - можете спокойно пользоваться.

[WIDGET1]

Спасибо за ответы! Но тут еще один вопрос по процедурам. У меня есть процедура в одном юните, можно ли как-то передать значение переменной из этой процедуры в другой юнит?

[Stilet]

Переменная локальна для процедуры?
Если да то опиши во втором юните глобальную переменную, и в первом в нее передавай, указав uses второймодуль после implementation.

[WIDGET1]

Елки-палки...
Переменная stroka объявлена в юните3, используется в юните 1. Вот этой процедурой.

/ЗАПРОС О СТУДЕНТЕ ПО НОМЕРУ ЗАЧЕТКИ
procedure TGlavn.N7Click(Sender: TObject);
var j:integer;
zach_n:string;
begin
zach_n:=inputbox('О студенте','Введите номер зачетки','');
for j := 1 to stringgrid1.rowcount - 1 do

if stringgrid1.cells[0,j]=zach_n then
begin
 stroka:=inttostr(j); zapros.Show; //форма для вывода результата
 end
else
if j=stringgrid1.rowcount-1 then
  begin showmessage('Такой номер отсутствует!');
  end;
end;

Если переменная stoka локальна для процедуры TGlavn.N7Click, то все работает точно(хотя проверки на ввод не написаны-это черновой вариант для понятия верности хода мыслей и главное-без вывода из юнита3 значение переменной stroka). Если переменная в Юнит3, то если номер есть, то открывается форма zapros(юнит3), после этого выводится номер строки, в которой совпадающий номер из инпутбокса:

procedure TZapros.FormShow(Sender: TObject);
begin
showmessage(stroka);
end;

НО!!! После нажатия кнопки ОК на showmessage выскакивает showmessage из юнита1 и говорит,что такой номер отсутствует. Не могу понять почему он на то условие возвращается...

[Stilet]

Ненене... Сделай public переменку в форме zapros. А далее:

begin
 stroka:=inttostr(j); 
 zapros.Переменка:=stroka;
 zapros.Show; //форма для вывода результата
 end

и

procedure TZapros.FormShow(Sender: TObject);
begin
showmessage(Переменка);
end;

[WIDGET1]

procedure TGlavn.N7Click(Sender: TObject);
var j:integer;
zach_n,stroka:string;

begin
stroka:='';
zach_n:=inputbox('О студенте','Введите номер зачетки','');
for j := 1 to stringgrid1.rowcount - 1 do
if stringgrid1.cells[0,j]=zach_n then
begin
 stroka:=inttostr(j);
 zapros.M:=stroka;
 zapros.Show; //форма для вывода результата
 end
else

if  (stroka='') and (j=stringgrid1.rowcount-1) then
  showmessage('Такой номер отсутствует!');

 end;

Вот так заработало.