Скачать: CL | DM;

Подскажите как сделать так чтобы...   Найти похожие ветки 

← →
Тень   (2002-09-19 22:26) [0]

Такая функция:
function UniConvert(L, Base : Integer; Chars : PChar) : string;
begin
Result := "";
if StrLen(Chars) >= Base then begin
repeat
Result := (Chars + (L mod Base))^ + Result;
L := L div Base
until L = 0
end
end;

Edit1.Text:= (UniConvert(1, 2, "01"));

Подскажите как сделать так чтобы число вводимое в Edit1 конвертилось и записывалось в Memo1.
Заранее спасибо.

---

← →
MBo ©   (2002-09-19 22:48) [1]

Try
L:=StrToInt(Edit1.Text);
except
end;
Memo1.Lines.Add(UniConvert(L, 2, "01"));

---

← →
Тень   (2002-09-19 23:11) [2]

СПАСИБО!!!!!!!!!

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c