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

• #7476 cattus addikt Mr. Erikszon #7474

  Új Válasz 2013-10-29 12:49:17 #7476

  Ú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

  

  cattus

  addikt

  válasz Mr. Erikszon #7474 üzenetére

  Előttem már kb. leírták, nagyjából hogy néz ki, de itt van nyelvhűen:

  szöveg:=IntToStr(szam);
  szöveg:=LeftStr(szöveg,1,2)+LeftStr(szöveg,4,2);
  szam:=StrToInt(szöveg);

  Ehhez viszont a uses-hoz kell a StrUtils, ha jól emlékszem.

• #7475 sztanozs veterán Mr. Erikszon #7474

  Új Válasz 2013-10-29 10:55:11 #7475

  Ú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

  

  sztanozs

  veterán

  válasz Mr. Erikszon #7474 üzenetére

  Őőő, pascalban sosem voltam jó, de itt egy pszeudo megoldás:
  szoveg = int-to-text(szam)
  szoveg = left(szoveg,2) + right(szoveg,2)
  szam = text-to-int(szoveg)

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