Forum: Software-Projekte der Mitglieder
by Phantom1,
12. Jan 2008
Wenn man alles in einer einzigen function haben will, müsste es in etwa so hier aussehen:
function BaseToBase(Value: string; StartBase, EndBase: byte): string;
const Digits = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
var i: Integer; dez, j: Int64;
begin
Result:='';
if (StartBase<2) or (StartBase>36) or
(EndBase<2) or (EndBase>36) then Exit;
for i:=1 to Length(Value) do begin
...
Forum: Software-Projekte der Mitglieder
by Phantom1,
4. Jan 2008
In Code-Library gibt es bereits ein beispiel wie man sowas macht: http://www.delphipraxis.net/internal_redirect.php?p=292282#292282