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

• #1771 ^^|CC|^^ tag ^^|CC|^^ #1770

  Új Válasz 2009-12-09 18:09:40 #1771

  Ú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 ^^|CC|^^ #1770 üzenetére

  idővel rájöttem...

• #1766 Gyuri16 senior tag ^^|CC|^^ #1765

  Új Válasz 2009-11-04 21:21:09 #1766

  Ú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|^^ #1765 üzenetére

  szivesen, sok sikert tovabb

• #1765 ^^|CC|^^ tag ^^|CC|^^ #1764

  Új Válasz 2009-11-04 21:08:34 #1765

  Ú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 ^^|CC|^^ #1764 üzenetére

  múúúkoodiik.....

  KÖSZÖNÖM... Gyuri16...
  (nélküled soha a büdösbe nem jött volna létre...)

  

• #1763 Gyuri16 senior tag ^^|CC|^^ #1762

  Új Válasz 2009-11-04 20:36:26 #1763

  Ú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|^^ #1762 üzenetére

  ok, lehet egyesevel is atdobalni. fogod az eredeti szamokat, es egyesevel elkezded atdobalni a masikba, ha a ciklusvaltozo 4-gyel oszthato (tehat egy negyes csoport vegere ertel) akkor beszursz egy ' '-t
  ezt most kiprobalas nelkul irom, csak hogy lasd hogyan gondolom:

  str - mostani string
  str2 - uj string, ebben lesz az eredmeny
  for i:=1 to length(str) do
  begin
  str2:=str2+str[i];
  if i mod 4 = 0 then str2:=str2+' ';
  end;

  ezzel van annyi gond meg, hogy a string legvegere is tesz egy ' '-t, de ezt mar ki tudod szurni egyszeruen.

• #1760 Gyuri16 senior tag ^^|CC|^^ #1759

  Új Válasz 2009-11-04 20:02:33 #1760

  Ú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|^^ #1759 üzenetére

  ezt most probald elkezdeni te
  nullazol egy uj stringet, amibe, majd megkapod a vegen a tagolt szamsort
  kell egy ciklus ami megy vegig az eredeti stringeden, negy darabot atdob az uj stringbe, majd odarak egy ' '-t azutan megint negyet odatesz es igy tovabb

• #1758 Gyuri16 senior tag ^^|CC|^^ #1756

  Új Válasz 2009-11-04 19:46:45 #1758

  Ú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|^^ #1756 üzenetére

  TMemo. csak kiprobaltam, es ez bennt maradt, neked nem kell

  mod: #1757: ok

• #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