Új hozzászólás Aktív témák

• #1759 ^^|CC|^^ tag Gyuri16 #1758

  Új Válasz 2009-11-04 19:53:47 #1759

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ^^|CC|^^

  tag

  válasz Gyuri16 #1758 üzenetére

  nah megcsináltam eddig nekem így néz ki:

  var a,i: integer;
  s,nullak: string;
  m: byte;
  begin
  try
  a:=strtoint(edit2.text);
  if a<0 then raise exception.create('Ne legyen negatív!');
  if a=0 then s:='0'
  else begin
  s:='';
  while a>0 do begin
  m:= a mod 2;
  s:=inttostr(m)+s;
  a:=a div 2
  end;
  nullak:='';
  for i:=1 to 4-length(s) mod 4 do
  nullak:=nullak+'0';
  if length(nullak)=4 then
  nullak:='';
  s:=nullak+s;
  end;
  showmessage('Számocska:'+#13+#13+s);
  except
  showmessage('Hiba!!!');
  end;
  end;

  a félkövér amit javasoltál... most legalább már tölti őket 0-kal, de még mindig nem tagolja fel 4sével...

Új hozzászólás Aktív témák