конвертер

[Host-2013]

понадобилось сделать конвертер одной величины в другую:
есть 2 Edit-а, сделал для обоих по OnChange изменение в другом Edit-е текста по формуле, но проблема в том, что так как OnChange предполагает не только изменение текста пользователем, но и вообще любое изменение, то при изменении текста во 2 Edit-е меняется текст и в 1 и во 2 (они взаимосвязаны), как от этого избавиться? надо чтобы ввел в Edit1 текст, во 2 изменился текст, но не менялся в 1, в то же время чтобы потом во 2 ввести текст, и изменился в 1, не меняясь во 2

и еще другой вопрос:

...
StringGrid1.RowCount:= StringList1.Count;
...
for i:= 0 to StringGrid1.RowCount-1 do StringGrid1.Cells[2,i]:= StringList1[i];
...
for i:= 0 to StringGrid1.RowCount-1 do StringList1[i]:= StringGrid1.Cells[2, i];
...

все время выдает ошибку List index out of bounds. При чем это точно с этими строками связано...

[raxp]

конвертер одной величины в другую...
ввел в Edit1 текст, во 2 изменился текст, но не менялся в 1, в то же время чтобы потом во 2 ввести текст, и изменился в 1, не меняясь во 2

procedure TForm1.Edit2Change(Sender: TObject);
begin
 with (sender as tedit) do begin
   if tag=0 then edit2.Text:= floattostr(strtofloatdef(edit1.Text, 0)*8)
    else edit1.Text:= floattostr(strtofloatdef(edit2.Text, 1)/8)
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 edit2.Tag:= 1;
 edit1.OnChange:= edit2change
end;

[Host-2013]

Сообщение от raxp

procedure TForm1.Edit2Change(Sender: TObject);
begin
 with (sender as tedit) do begin
   if tag=0 then edit2.Text:= floattostr(strtofloatdef(edit1.Text, 0)*8)
    else edit1.Text:= floattostr(strtofloatdef(edit2.Text, 1)/8)
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 edit2.Tag:= 1;
 edit1.OnChange:= edit2change
end;

можно с комментариями? + к тому же так или иначе наверное получится 2 OnChange, т.к. текст в 1 и 2 Edit меняется по разным формулам

[raxp]

...а вы попробуйте ...в коде выше конвертор гривни в баксы и наоборот.

[Host-2013]

Сообщение от raxp

...а вы попробуйте ...в коде выше конвертор гривни в баксы и наоборот.

ошибку выдает: Error reading Edit1.OnChange: Invalid property value

[raxp]

...а ежели слегка подумать?

[Host-2013]

Сообщение от raxp

...а ежели слегка подумать?

и что же получится в результате сего мыслительного процесса?

[raxp]

...вам должно быть видней

[Stilet]

и что же получится в результате сего мыслительного процесса?

Описание твоего Edit1. Что он, кто он, как ты его используешь.
Имеется ввиду назначение одного и того же события обоим Эдитам. Можно и не писать так, можно просто обоим эдитам назначить такой код:

procedure TForm1.Edit2Change(Sender: TObject);
begin

   if Sender=edit1 then edit2.Text:= floattostr(strtofloatdef(edit1.Text, 0)*8)
    else edit1.Text:= floattostr(strtofloatdef(edit2.Text, 1)/8)

end;

Тогда процедура сама определит какой эдит редактируется и в какой нужно конвертировать.

[Sibedir]

raxp, Stilet - 2 с минусом. Как раз этого ТС и хочет избежать.
1. Зачем нужно обоим эдитам назначать один обработчик, если для каждого из них свой код нужен. Я бы заморочился на эту тему, если бы едитов было штук 5 или >, или если их кол-во было неопределено заранее (может менятся). Если нужно только 2 эдита, то "if Sender=edit1 then" - лишний заморачивающий код.
2. ТС, используй свойство Focused

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if not Edit2.Focused then
    Edit2.Text := FloatToStr (StrToFloatDef (Edit1.Text, 0) * 8)
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  if not Edit1.Focused then
    Edit1.Text := FloatToStr (StrToFloatDef (Edit2.Text, 0) / 8)
end;