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

• #507 WN31RD addikt Protezis #505

  Új Válasz 2004-11-09 12:27:34 #507

  Ú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

  

  WN31RD

  addikt

  válasz Protezis #505 üzenetére

  Megnéztem a programot, és megvan a hiba: a kicsi2nagy függvény a problémás: inicializálatlan stringbe (a visszatérési érték) írogatsz karakterenként... nem kellene.
  Figyelmedbe ajánlom a System unit Upcase nevű függvényét, ami ugyanezt csinálja, csak jól. Hacsak nem követelmény, hogy saját rutinnal oldd meg ezt is, akkor ajánlom, hogy használd inkább azt.
  Ha saját rutinnal kell megoldani, akkor úgy csináld, hogy a kicsi2nagy-ban felveszel egy lokális változót, ami az eredményt fogja tárolni. Inicializálod egy üres string-gel, és ehhez adod hozzá egyenként a karaktereket, végül a kicsi2nagy visszatérési értékének ezt a stringet adod meg. Tehát valahogy így:
  ...
  Result: String;
  ...
  Result := '';
  ...
  Result := Result + Chr( ... );
  ...
  kicsi2nagy := Result;

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