Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:

Error. Page cannot be displayed. Please contact your service provider for more details. (19)


Файл --> массив

Поиск:
Код

procedure FileToPas(FileName,PasFileName:String);
var
  BF:File of Byte;
  F:TextFile;
  P,N,S:String;
  BFSize:integer;
  BBB:Byte;
begin
   AssignFile(BF,FileName);
   Reset(BF);
   BFSize:=FileSize(BF);
   P:=ExtractFilePath(FileName);
   N:=ExtractFileName(FileName);
   AssignFile(F,PasFileName);
   ReWrite(F);
   Writeln(F,'unit '+PasFileName+';');
   Writeln(F);
   Writeln(F,'interface');
   Writeln(F);
   Writeln(F,'const FileSize:integer='+IntToStr(BFSize)+';');
   Writeln(F,'FileData:array[0..'+IntToStr(BFSize-1)+'] of Byte=');
   Writeln(F,'(');
   while not Eof(BF) do
   begin
      S:='';
      while (not Eof(BF)) and (Length(S)<80) do
      begin
         Read(BF,BBB);
         S:=S+IntToStr(BBB)+',';
      end;
      if Eof(BF) then Delete(S,Length(S),1);
      Writeln(F,S);
   end;
   CloseFile(BF);
   Writeln(F,');');
   Writeln(F);
   Writeln(F,'procedure SaveToFile(FileName:String);');
   Writeln(F);
   Writeln(F,'implementation');
   Writeln(F);
   Writeln(F,'procedure SaveToFile(FileName:String);');
   Writeln(F,'var F:File of Byte;');
   Writeln(F,' i:integer;');
   Writeln(F,'begin');
   Writeln(F,'AssignFile(F,FileName);');
   Writeln(F,'ReWrite(F);');
   Writeln(F,'for i:=0 to FileSize-1 do Write(F,FileData[i]);');
   Writeln(F,'CloseFile(F);');
   Writeln(F,'end;');
   Writeln(F);
   Writeln(F,'end.');
   CloseFile(F);
end;

на выходе получаешь pas с массивом  :wink






Просмотров: 2218

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную