Új hozzászólás Aktív témák

• #1941 TAZ155 csendes tag

  Új Válasz 2013-03-21 23:29:46 #1941

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  TAZ155

  csendes tag

  sziasztok.

  Nos mind a két variációt megnéztem.

  -------------------------------------------------------------------------------------------------
  procedure TFom_ini.Button2Click(Sender: TObject);
  var
  z1,z2 :Integer;

  begin
  z1:=StrtoInt(Edit1.text);
  z2:=StrtoInt(Edit2.text);
  Edit3.text:=FloatToStr(z1*z2);

  end;
  end.

  // igy hibaüzenetet kapok a delphi-től.
  -------------------------------------------------------------------------------------------------
  Ez igy önmagában münködik.
  Edit3.Text := FloatToStr(126*0.039);

  De hogyan kell átalakitani, hogy Edit.text-esetében jó legyen.

  Több megoldást kipróbáltam, de a hibaüzenet maradt.

  A végén a z1 és z2 értéket szeretném összeszorozni.

  Kipróbáltam ezt a megoldást is.
  Edit3.Text := FloatToStr(ScrollBar1.Position*0.039);

  Majdnem megfelel nekem, és egyszerűbb.
  De a 0,039-helyére nekem az Edit2.text-et kéne beirnom, a részadatod amit a végén beszorzom,
  onnan venném.

  Edit3.Text := FloatToStr(ScrollBar1.Position*0.039); ebben az esetben hogyan hivatkozom az Edit2.text-re??

  Scrollbar1 értékét (Edit1.text) szorzom Edit2.text értékével.
  Az az

  ---------------------------------------------------------------------------------------------

  procedure TFom_ini.Button2Click(Sender: TObject);

  begin
  // Scrollbar értéke szor Edit2 = Edit3.text

  Edit3.Text := FloatToStr(ScrollBar1.Position*Edit2.text);

  end;

  -----------------------------------------------------------------------------------------------------
  Helyesen hogyan kell hivatkozni Edit2.text-re ebben az esetben??

  Hali

Új hozzászólás Aktív témák