|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#15
|
||||
|
||||
Цитата:
Код:
procedure HexStrToFile(hex_str,out_file: string); var tmp: string; i,cnt: integer; f: file; buf: char; begin tmp := ''; cnt := 0; AssignFile(f, out_file); Rewrite(f, 1); for i:=1 to Length(hex_str) do begin Inc(cnt); tmp := tmp + hex_str[i]; if cnt > 1 then begin buf := Chr(StrToInt('$'+tmp)); BlockWrite(f,buf,1); cnt := 0; tmp := ''; continue; end; end; CloseFile(f); end; сильно не пинать, писалось очень быстро и только для этого случая))) использовать так: Код:
HexStrToFile('a980393b228182fabf8568ae5e2b53fdc19c405939b5e7af','file.txt'); Коли навчався в школі я - в мені росли мозгЫ. КудИж вони поділися? гы-гы гы-гы гы-гы... ICQ: 593977748 Nick: Marvel Последний раз редактировалось Marvel, 21.06.2010 в 00:59. |