|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Перевод проекта в DLL
Здравствуйте! В Дельфи не особо разбираюсь, и мне надо перевести программу Delphi (с исходным кодом, естественно) в DLL.
Сам код: Код:
program converter; {$APPTYPE CONSOLE} uses SysUtils; const a: string[8] = 'ABCDEFGO'; {задаём строку для поиска в ней символов} Var I : byte; f1:file of byte; f2:textfile; {функция для перевода целой части числа из 10-й в любую сс} function Cel(d: real; c: integer): string; var s: string; n2: integer; begin n2 := round(int(d)); {берём целую часть от числа} s := ''; repeat s := ((a[n2 mod c + 1]) + s); {повторяем пока число не будет равно нулю берём целую часть при делении числа на основание и берём остаток + 1 от деления целой части на 16, записываем результат посимвольно в строку s} n2 := n2 div c; until (n2 = 0); if length(s)<3 then for i:=length(s)+1 to 3 do s:='A'+s; Cel := s; end; begin if ParamCount < 2 then begin writeln('Not enough parameters!'); exit; end else begin if fileexists(paramstr(1)) then begin assignfile(f1,paramstr(1)); assignfile(f2,paramstr(2)); reset(f1); rewrite(f2); while not eof(f1) do begin read(f1,i); write(f2,cel(i,8)); end; closefile(f1); closefile(f2); end else begin writeln('File not exist!'); exit; end; end; { TODO -oUser -cConsole Main : Insert code here } end. Ещё пример: wctrun(1, "AAABBBCCCDDDEEEFFFGGGOOO", com). Спасибо, очень срочно надо! За лучший ответ поставлю "Спасибо"! |