• 3 odgovora
  • 2.730 pregleda
Kako da uradim... 12.03.2006. u 09:24 · pre 251 meseci #1
Zdravo decki moze neko ce moze mi pomoci, ja sam nov u programiranje/delphi
Ovako...prije malo sam zavrshio tutorial "hello world" i sada sam poce da gradim novi program u delphi... evo koda programa no sam zaglavio sada i ne znam kako da to koregisahm...

KOD:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
myint : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
myint := 20;
myint := myint + 10;
myint := myint - 5;
myint := myint * 4;
myint := myint div 2;
Edit1.text := myint; // ovde mi ukazuje deka ima greski (pa sto da napravim koga ja ocu kad kliknu TButon da krajni rezultat od myint se pojavi u TEdit-box?!?
end;

end.


[Ovu poruku je menjao MASSK dana 12.03.2006. u 10:31 GMT+1]
Potpis
massk
Re: Kako da uradim... 12.03.2006. u 09:53 · pre 251 meseci #3
Kako mozes broj da upises u tekst??? Moras prvo da ga konvertujes u string:

Code:
Edit1.text := myint;

zameni sa
Code:
Edit1.text := inttostr(myint);
Potpis
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Re: Kako da uradim... 12.03.2006. u 10:14 · pre 251 meseci #4
puno hvala radi...

na ovu temu ce saljiti i novi kodovi ili nesta sta mi nije jasno :) da ne be otvaraoh puno novihm tema...
Potpis
massk
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme