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

• #1754 Gyuri16 senior tag ^^|CC|^^ #1753

  Új Válasz 2009-11-04 19:11:17 #1754

  Ú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

  

  Gyuri16

  senior tag

  válasz ^^|CC|^^ #1753 üzenetére

  var
  str, nullak: String;
  mennyi: integer;
  begin
  str:='10010001000';
  nullak:='0000';
  mennyi:=(4-(length(str) mod 4)) mod 4;
  str:=copy(nullak,1,mennyi)+str;
  end;

  egyanaz egyszerubben:

  var
  str, nullak: String;
  i: integer;
  begin
  str:='10010001000';
  nullak:='';
  for i:=1 to 4-length(str) mod 4 do
  nullak:=nullak+'0';
  if length(nullak)=4 then
  nullak:='';
  str:=nullak+str;
  memo1.Lines.Add(str);
  end;

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