IT NEWS PC REVUE PC FORUM FreeBSDInternet time: @241
Obsah fóra
Pravidlá  •  Kontakt  •  Prihlásenie  •  Registrácia

Ekonomický softvér KROS

Programy na vedenie komplexnej agendy JÚ a PÚ. Vyskúšajte demo zadarmo! www.kros.sk

Chcete darček pre svoje dieťa

Odpovedzte na otázky a vyhrajte! LEGO duplo 2 krát deňne do konca mesiaca www.duplo.lego.com

Dali sme si poradiť

Naše peniaze sa zhodnocujú. A vám? www.partnersgroup.sk

Sprostredkovávajte hypotéky

Začnite sprostredkovávať hypotéky s úspešným hypotekárnym centrom! www.SprostredkovanieUverov.sk

Liek na hokejovú horúčku

Zahraj si online hokejovú manažérsku hru a bojuj so svojim tímom o víťazstvá www.hrajhokej.sk

delphi odseknutie...

Zaslať odpoveď
AutorSpráva
BBUlet
Užívateľ
Užívateľ

Založený: 30.06.2007
Príspevky: 530
Bydlisko: košice

PríspevokZaslal: St 04.03.09 0:30Odpovedať s citátomNávrat hore

cawte
potreboval by som niejako odseknúť napr posledne 3 miesta,
čiže ked mam číslo 100 000 tak to vrati len 100, a ešte by sa mi zišiel niejaký spôsob ako zistiť dlžku čísla...chapeme sa?
Zobraziť informácie o autoroviOdoslať súkromnú správuOdoslať e-mailICQ
Fico
Skúsený užívateľ
Skúsený užívateľ

Založený: 11.01.2009
Príspevky: 1049

PríspevokZaslal: St 04.03.09 14:55Odpovedať s citátomNávrat hore

To číslo preveď na string. Potom pomocou funkcie Delete upravíš dĺžku reťazca. Dĺžku reťazca vracia funkcia length.
Príklad:

kód:

var
    s: string;
    i: integer = 100000;
    odseknut: integer;

...

odseknut:= 3;

s:= IntToStr(i);
Delete(s, length(s) - odseknut, odseknut);
i:= StrToInt(s);

// i = '100'
Zobraziť informácie o autoroviOdoslať súkromnú správuICQ
BBUlet
Užívateľ
Užívateľ

Založený: 30.06.2007
Príspevky: 530
Bydlisko: košice

PríspevokZaslal: St 04.03.09 20:29Odpovedať s citátomNávrat hore

diik pomohlo

_________________
PC1: Core2Duo E4300 @2.6GHZ, 4COREDUAL-SATA2, RAM Kingston 2GB 667mhz, ATI R3650 512MB DDR2, WD 320GB SATAII, Asus VW192S [19" LCD]
PC2: AMD Duron 2ghz, Asus A7s8x-mx, 768MB DDR, FX5200, 80GB IDE
Zobraziť informácie o autoroviOdoslať súkromnú správuOdoslať e-mailICQ
Zobraziť príspevky z predchádzajúcich:    
Zaslať odpoveď
Nemôžete pridávať nové témy do tohto fóra.
Nemôžete odpovedať na témy v tomto fóre.
Nemôžete upravovať svoje príspevky v tomto fóre.
Nemôžete mazať svoje príspevky v tomto fóre.
Nemôžete hlasovať v tomto fóre.

Powered by phpBB 2.x.x © 2005 - 2012 PCforum, webhosting by WebSupport, edited by JanoF

SEO - optimalizácia pre vyhľadávače

Freebsd