Hirdetés

Hozzászólok Aktív témák

  • 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

    Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??

Hozzászólok Aktív témák

Hirdetés