Подскажите как сделать так чтобы...

← →
Тень (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]

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

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