| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите как сделать так чтобы... [D6, WinXP]

Тень ©   (2002-09-19 22:26:00) 

Такая функция:
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.
Заранее спасибо.

---

Тень   (2002-09-19 23:11:00) [1]

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

---

MBo   (2002-09-19 22:48:00) [2]

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

---

Наверх