Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Get number digits
12. Dez 2013, 18:24
Delphi-Quellcode:
function DecDigitFromNumber(number:integer;digpos:byte);
var
dummy : string;
begin
dummy:=inttostr(digpos);
result:=dummy[i];
end;
Just typed in and not tested.
greetings
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|