konvertiranje od string u integer ...dal je to moguce uopste...?

[ MASSK @ 13.03.2006. 10:18 ] @

konveriranje od string u intger dal je u opste to moguce
i ako e moguce ko je komandu... ovde cu pokazati moj kod
(ustvari moj program trbea bit ispitavac parnost prirodnih brojeva)

evo koda...

unit Unit1;

interface

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

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

var
Form1: TForm1;
i : integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
label1.clear; // sigurno znate sta zelim da postignem ovuda :)
edit1.text := StrToInt(i); // >>>greska<<< >>>greska<<< >>>greska<<<
While i>0 do i:=i-2;
if i=0
then label1.text := 'Paren broj'
else label1.text := 'Neparen broj';
end;

end.

-dali ovo postoji... StrToInt (za konverziju od String u Integer) zato sto mi je potrjebno da (TEKST) u "Edit1" prefrlim u vrednost na "i" (naravno to ce biti broj)

-isto tako zelim kada kliknem button1 da tekst unutra label1 bude izbrisan abel1.clear; ali ovo nije tacno :)) ispravete me i ovuda :p

-i ako sam negde nesto ispustio molim vas koregirajte moju gresku

ispravite mi gresku molim vas.... (trazio sam niz forumu ali nisam uspeo da pronadjem nesto kako ovo). Inako ovu mi je treti program naprvljen u mog citavog zivota :) (se bavim samo dva dana sa delphi) pa ne okrivuvajte meni sta postavljem tako pocetniki prasanja

P.S.

hey Pozdrav decki
cao

[ ivanho @ 13.03.2006. 10:35 ] @

Umesto:

Code:

label1.clear;

stavi:

Code:

label.Caption:='';

Ono sto ti treba je pretvaranje integera u string, a ne suprotno:
funkcija koju trazis je IntToStr... potrazi u helpu, kad je nadjes obavezno pogledaj
i "See also", verovatno ce ti koristiti...

Takodje pogledaj u helpu Odd funkciju.

I na kraju, kad pises poruke na forumu koristi tagove, mnogo je preglednije i lakse za citanje...

[ badam @ 13.03.2006. 11:23 ] @

ipak mu treba StrToInt i to u obliku:
i:=StrToInt(Edit1.Text)
Treba promeenit i
Label1.text u Label1.Caption

_{[Ovu poruku je menjao badam dana 13.03.2006. u 12:24 GMT+1]}

[ ivanho @ 13.03.2006. 12:06 ] @

Citat:

badam: ipak mu treba StrToInt i to u obliku:
i:=StrToInt(Edit1.Text)

hmmm.... moja greska, gledao sam kod, ne pitanje....

[ MASSK @ 13.03.2006. 18:09 ] @

sve mi je izmjesano ahh ... kako je tesko biti pocetnik ali kad sredu aplikacije pisacu vi.... ipak to radi "StrToInt" isto taka sam isprobao IntToStr i to radi (mislim u odelnih programi)... sada cu probati da sredim moj "Sucky Code" :p

[ MASSK @ 13.03.2006. 19:03 ] @

e sad sam ga sredio do negde us vasa pomoc ...ali nije to to sta ja hocu :p

evo kodu kako izlgleda sada :

var
i : integer;

begin
label1.caption := '';
While i>0 do i:=i-2;
if i=0
then label1.text := 'Paren broj'
else label1.text := 'Neparen broj';
i := StrToInt(edit1.text);
end;

end.

-prva stvar: kada upisem paren broj (primer) "8" i kliknem na "button1" u "label1.caption" ne se menja nisto ali kad klicknem po vtori put na "button1" funkcojoniru i u "label1.caption" se menja ime u "Paren Broj" ,ako je bilo neparen broj isto ce se sluciti prvi put kad ukliknem "button1" ne radi al kad kliknem po vtori put radi. (zasto je to tako i kako se moze isprjavit?).

-drugi stvar: kako da stavim filter u edit1.text da bude nemoguce pisati negativnje brojeve (primjer) -8 ?

[ IvanBeograd @ 13.03.2006. 19:29 ] @

Code:

var
i : integer;

begin
label1.caption := '';
While i>0 do i:=i-2;
if i=0
then label1.Caption := 'Paren broj'
else label1.Caption := 'Neparen broj';
i := StrToInt(edit1.text);
end;

end.

Za labelu se pise Label1.Caption:="neki string";
Za drugu stvar,mozda bi trebalo da umesto Edit stavis komponentu SpinEdit,nalazi ti se na kartici samples,pogledaj sam zasto je bolja.Ovako bi morao da pises neku dodatnu funkciju,ili da stavis Edit1Change event,...Probaj sa SpinEdit.
Ovo te ostalo nisam, najbolje razumeo! :(
A i cini mi se da ti onaj gore kod nije nesto ispravan,nula ti je uvek parna! :)
Neznam sta zelis da odradis ? Da ti ispise da li je broj paran ili ne ?

[ Srki_82 @ 13.03.2006. 19:52 ] @

Da ti to, ipak, probas ovako:

Code:
var
  i : integer;
begin
  I := StrToIntDef(Edit1.Text, 0);
  if Odd(I) then
    Label1.Caption := 'Neparan broj'
  else
    Label1.Caption := 'Paran broj';
end;

_{[Ovu poruku je menjao Srki_82 dana 13.03.2006. u 20:55 GMT+1]}

[ MASSK @ 14.03.2006. 16:05 ] @

jeste zlim da kazu dal je paran ili ne paran broj. :) A da i to,
za 0 pokazuje paran broj nisam smetao na to al to ce srediti nekako kasnije.

A sa komponentu SpinEdit ni sam moga uspeti napisati kod :( ne znam kak da editujem text u SpinEdit Primer : za Edit1.text <<< moguce al za SpinEdit1.text <<<nemoguce isto tako i za SpindEdit1.caption <<<nemoguce. pisi mi kako moze promjeniti text u spin edit.

kod sto je napisao Srki_82 radi odlicno!!!AL probljem sada sto ja ne razumem kako radi :) sta radi:

Code:
I :StrToIntDef(Edit1.text, 0);

Code:
if Odd(I) then
    Label1.Caption := 'Neparan broj'
  else
    Label1.Caption := 'Paran broj';

// nisam upoznan sa ova komanda za sada u medju vreme cu probati da pronadjem nesto na inernetu.I zasto sa tvoj kod ne trbea klikati dva puta kao sto je bilo u prethodni kod(moj kod. Srki_88 please explain me ;)
mislim da ne mi ied dobro za 3 dan kad sam u vodi programerstvo :(( ali trudecu se !!

puno hvala za kod srki_82 samo uste da objasnish kao radi :) hehe :p

pozdrav do svima!!!

_{[Ovu poruku je menjao MASSK dana 14.03.2006. u 17:06 GMT+1]}

[ Srki_82 @ 14.03.2006. 16:16 ] @

Kao prvo, i 0 je paran broj. Svaki broj koji podeljen brojem 2 ne daje ostatak je paran.

Odd funkcija kaze da li je neki broj neparan ili ne. Ako je rezultat ove funkcije True broj je paran, a ako je False broj je neparan.

StrToIntDef funkcija pretvara string u broj. Ako string ne moze da se prevede u broj tada se vraca default vrednost koja se daje kao drugi parametar.

Nadam se da je sad sve jasno.

[ MASSK @ 14.03.2006. 16:30 ] @

sad mi e jasno.

no zasto sa moj kod nije funkcjeniralo kao sto treba :)? us moj kod button1 nije funkcjonirao kao sto treba. trebao sam klikneti DVA puta za da pokazati parnost

[ ivanho @ 14.03.2006. 17:02 ] @

Zapravo, obrnuto... true za neparan, false za paran

[quote]Srki_82:
Odd funkcija kaze da li je neki broj neparan ili ne. Ako je rezultat ove funkcije True broj je paran, a ako je False broj je neparan.
[quote]

_{[Ovu poruku je menjao ivanho dana 14.03.2006. u 18:03 GMT+1]}

[ Srki_82 @ 14.03.2006. 17:04 ] @

@ivanho
Upravu si... tkao je to kad su prsti brzi od pameti

@MASSK
Hint: Gledaj gde ti dodeljujes vrednost promenljivoj I, a gde je ja dodeljujem.

_{[Ovu poruku je menjao Srki_82 dana 14.03.2006. u 18:07 GMT+1]}

[ MASSK @ 15.03.2006. 00:49 ] @

aaa znaci u delphi komanda ide po REDU. znaci ako promjenliva i je prije komanda , kad je izvrsena procedura ClickButton1 tad sve je uredo al ako nije tad se javlja probmel u ovom slucaju zato sto kad kliknes button1 prvo se izvrsava komanda a posle se otcitava promjenlivu sta znaci dur sljedeci put cim kliknes cu biti otcitjena promenljiva i.\.Jel tako?

_{[Ovu poruku je menjao MASSK dana 15.03.2006. u 01:52 GMT+1]}