tümü

ünide öğrendiğinizi özet geçin piçler

  1. 426.
    0
    özetin özeti bu beyler kusura bakmayın
    unit unit1;

    interface

    uses
    windows, messages, sysutils, variants, classes, graphics, controls, forms,
    dialogs;

    type
    tform1 = class(tform)
    procedure formcreate(sender: tobject);
    private
    { private declarations }
    public
    { public declarations }
    end;

    var
    form1: tform1;

    implementation

    {$r *.dfm}

    procedure tform1.formcreate(sender: tobject);
    var
    sayi:double;
    i:integer;

    begin

    i:54321;
    sayi:=i;
    edit1.text:=floattostr(sayi));

    end;

    end.
    ···
    #21469327 şikayet
   tümünü göster