Re: Delphi Help ОЧЕНЬ ПОДРОБНО!!!
поставь FileMode := 0; например:
function FileToStr(const FileName: string): string;
var
f: file;
begin
AssignFile(f, FileName);
FileMode := 0;
Reset(f, 1);
try
SetLength(Result, FileSize(f));
if Length(Result) > 0 then
BlockRead(f, Result[1], Length(Result));
finally
CloseFile(f);
end;
end;
s_filedata := FileToStr(ParamStr(0));
Лучше писать, зачем тебе это нужно:
- если нужно просто считать "себя", скажем, для контроля CRC - то см. выше
- если подгрузить из файла данные во время работы - то для этого в Windows
есть механизм ресурсов (resource); ресурсы пристыковываются компилятором в
конце EXE и не загружаются в память при запуске EXE; ресурсы имеют
идентификаторы, по которым загружаются API-функциями, когда возникает нужда
(примеры см. в SysUtils); создаются чем-нибудь вроде Resource Workshop и
подключаются к проекту в виде res-файлов
Исходное сообщение От: "Борис Колупаев" <boris_kolupa***@u*****.net>
Кому: "comp.soft.prog.prog" <philoso***@s*****.net>; <207775>
Отправлено: 24 декабря 2003 г. 17:19
Тема: Delphi Help ОЧЕНЬ ПОДРОБНО!!!
работе
прочесть
не выйдет,
без
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
