delphi odseknutie...

BBUlet · Napísal **BBUlet**: 03.03.2009 23:30

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? :lol:

Fico · Napísal **Fico**: 04.03.2009 13:55

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'

BBUlet · Napísal autor témy **BBUlet**: 04.03.2009 19:29

diik pomohlo

delphi odseknutie...

Podobné témy