Текущий архив: 2003.03.27;
Скачать: CL | DM;

Вниз

Преобразование Integer в PChar   Найти похожие ветки 

← →
maker ©   (2003-03-17 13:15) [0]

Недавно написал функцию преобразования Integer в PChar. Теоретически всё верно, но вот на практике абракодабра получается :(
Подскажите что не так?

//Подсчёт количества цифр в числе
function MLen(i:integer):byte;
begin
Result:=0;
if i<0 then
i:=i-(i*2);
if i=0 then
Result:=1;
while i > 0 do
begin
i:=i div 10;
Result:=Result+1;
end;
end;

//Перевод из Integer в PChar
function IntType(i:integer):PChar;
var
a,b,c:integer;
begin
result:="";
for a:=MLen(i) downto 1 do
begin
b:=1; for c:=1 to a-1 do b:=b*10;
c:=i div b; b:=b*c; i:=i-b;
result:=PAnsiChar(PChar(result)+chr(48+c));
//result:=result+chr(48+pp);
end;
end;

При входном значении 100, РЕЗУЛЬТАТ ПОЛУЧАЕТСЯ 10!?..

---

← →
Diamond Cat ©   (2003-03-17 13:18) [1]

pchar(inttostr(48+c));

---

← →
maker ©   (2003-03-18 05:23) [2]

Мне не надо подключать SysUtils...

---

← →
MBo ©   (2003-03-18 06:41) [3]

Str

---

← →
Sash!   (2003-03-18 09:13) [4]

Правильно, Str из модуля System!

---

← →
icWasya ©   (2003-03-18 09:27) [5]

а кто память под Result выделять будет???

---

Страницы: 1 вся ветка

Текущий архив: 2003.03.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c