Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 3 odgovora
  • 2.749 pregleda

Najnovija ↓

Kako da uradim... 12.03.2006. u 10:24 · pre 251 mesec
izmenjeno 1 put, poslednji put MASSK 12.03.2006. u 10:31
  1. MASSK12.03.2006. u 10:31zapis iz teksta poruke
#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.
Potpis
massk
Re: Kako da uradim... 12.03.2006. u 10:53 · pre 251 mesec #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 11:14 · pre 251 mesec #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