Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Вниз

Люди добрые, спасите!   Найти похожие ветки 

← →
JibSkeart   (2002-03-17 16:17) [1]

помню что то ParamStr(0)

тобишь
пример (может где в снтаксисе ошибся но суть думаю понятна)
Var
F:File;
p:Pointer;
s:Integer;
begin
AssignFile(F,ParamStr(0));
s:=FileSize(f);
GetMem(p,s)
Reset(f);
BlockRead(f,p,s);
FileClose(f);
end;

А потом ишешь что надобно ...

причем сегмент смешение будут идентичны как и в файле
если будет необходимость туды чтонить вставить
хотяя ....

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.028 c