Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
ВнизПодскажите как сделать так чтобы... Найти похожие ветки
← →
Тень (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 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c