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: 4042 | Odgovora: 6 ] > FB > Twit

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 - pre 241 meseci}

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;

Odgovor na temu

bondja

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

+3 Profil

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

^{21.06.2005. u 15:02 - pre 241 meseci}

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!

Odgovor na temu

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 - pre 241 meseci}

E sad radi

Ajde mi sad jos samo objasni zasto je to trebalo napravit

Odgovor na temu

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 - pre 241 meseci}

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;

Odgovor na temu

Toyo

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

+1 Profil

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

^{21.06.2005. u 16:00 - pre 241 meseci}

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

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil