Srodne teme

23.04.2002. Zasto ne radi???
04.02.2003. Exe+Exe u Pascalu ???
11.03.2005. Sortiranje podataka u Pascalu!
13.06.2006. Kako u pascalu napraviti
06.05.2005. Kako napraviti keygen u delphiu
13.08.2005. Tko bi htjeo da postanemo tim?
18.09.2005. Baza podataka u Delphiu - Tutoriali
03.01.2006. Sretna nova 2006 godina :))
25.03.2006. Off line prikaz htm stranice

Navigacija

Brisanje liste

Lista poslednjih: 16, 32, 64, 128 poruka.

Zasto u pascalu radi, a u delphiu ne radi??? :(

[es] :: Pascal / Delphi / Kylix :: Zasto u pascalu radi, a u delphiu ne radi??? :(	[ Pregleda: 950 \| Odgovora: 6 ]	Postavi temu Odgovori

Autor

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Zasto u pascalu radi, a u delphiu ne radi??? :(

^{21.06.2005. u 14:37}

Evo, program koji obican broj pretvori u binarni....prilagodjen pascalu savrseno radi, al u delphi nece (vjerujem da je problem kod:for j:=i downto 1 do Edit4.Text:=binarni[j])...........

Code:

procedure TForm1.Button5Click(Sender: TObject);
var br:integer;
    i,ost,j:byte;
    binarni:string;
begin
br:=StrToInt(Edit3.Text);
i:=0;
ost:=0;
while br>0 do
begin
i:=i+1;
ost:=br mod 2;
if ost=0 then binarni:='0'
         else binarni:='1';
br:=br div 2;
for j:=i downto 1 do
begin
Edit4.Text:=binarni[j];
end;
end;
end;

^{21.06.2005. u 14:37}

bondja

Član broj: 10286
Poruke: 131
*.gw.tehnicom.net.

Profil

Re: Zasto u pascalu radi, a u delphiu ne radi??? :(

^{21.06.2005. u 15:02}

Code:

var br:integer;
    i,ost,j:byte;
    binarni:string;
begin
  br:=StrToInt(Edit3.Text);
  i:=0;
  ost:=0;
  while br>0 do
  begin
    i:=i+1;
    ost:=br mod 2;
    if ost=0 then binarni := '0' + binarni
             else binarni := '1' + binarni;
    br:=br div 2;
  end;

  Edit4.Text := binarni;
end;

Pozdrav!

^{21.06.2005. u 15:02}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Zasto u pascalu radi, a u delphiu ne radi??? :(

^{21.06.2005. u 15:15}

E sad radi

Ajde mi sad jos samo objasni zasto je to trebalo napravit

^{21.06.2005. u 15:15}

Passwd

Član broj: 54624
Poruke: 640
*.adsl.net.t-com.hr.

Profil

Re: Zasto u pascalu radi, a u delphiu ne radi??? :(

^{21.06.2005. u 15:53}

A kako bi izgledao kod za pretvaranje obicnog u heksadekatski.....ali opet ne radi

Code:

procedure TForm1.Button6Click(Sender: TObject);
var broj:longint;
ost,i,j:byte;
heksa:string;
begin
broj:=StrToInt(Edit5.Text);
i:=0;
while broj>0 do
begin
i:=i+1;
ost:=broj mod 16;

if ost=1 then heksa:='1'+heksa;
if ost=2 then heksa:='2'+heksa;
if ost=3 then heksa:='3'+heksa;
if ost=4 then heksa:='4'+heksa;
if ost=5 then heksa:='5'+heksa;
if ost=6 then heksa:='6'+heksa;
if ost=7 then heksa:='7'+heksa;
if ost=8 then heksa:='8'+heksa;
if ost=9 then heksa:='9'+heksa;
if ost=10 then heksa:='A'+heksa;
if ost=11 then heksa:='B'+heksa;
if ost=12 then heksa:='C'+heksa;
if ost=13 then heksa:='D'+heksa;
if ost=14 then heksa:='E'+heksa;
if ost=15 then heksa:='F'+heksa;

end;

broj:=broj div 16;
Edit6.Text:=heksa;
end;

^{21.06.2005. u 15:53}

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.

Profil

Re: Zasto u pascalu radi, a u delphiu ne radi??? :(

^{21.06.2005. u 16:00}

Ubaci broj := broj div 16 u petlju (iznad end;)

^{21.06.2005. u 16:00}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Zasto u pascalu radi, a u delphiu ne radi??? :(

^{21.06.2005. u 16:13}

Zasto ne probas IntToHex funkciju!?

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{21.06.2005. u 16:13}