Форум: "Начинающим";
Текущий архив: 2005.12.18;
Скачать: [xml.tar.bz2];
Вниз
работа с архивами Найти похожие ветки
← →
DArk_ELf (2005-11-27 20:22) [0]Народ...как объединить несколько файлов в одини по ходу работы проги грузить в оперативку???
← →
Fay © (2005-11-27 20:39) [1]2 DArk_ELf (27.11.05 20:22)
А точно их надо "объединить" перед "грузить в оперативку" ?
← →
DArk_Elf (2005-11-27 20:44) [2]да...просто с файлами ща тренирую работу..перед........а по ходу работы программы доставать нужные и использовать!
← →
Fay © (2005-11-27 20:47) [3]2 DArk_Elf (27.11.05 20:44) [2]
> да...
Это понятное слово
> просто с файлами ща тренирую работу..перед........
Что "перед" ?
> а по ходу работы программы доставать нужные и использовать
ОТКУДА и ЧТО "доставать" ?
← →
Германн © (2005-11-28 02:42) [4]2DArk_Elf (27.11.05 20:44) [2]
>просто с файлами ща тренирую работу..
Тренируйся на..., кошках. © Э.Рязанов, Э.Брагинский. "Операция "Ы" и другие приключения Шурика"
← →
Васяня (2005-11-28 05:55) [5]DArk_ELf, Парадокс природы (Ельф-негр), ты четко скажи что ты пытаешся сделать? Какова задача... а то твой лепет похож на реч Черномырдина, а как извество его понимает только он сам ;)
← →
Думкин © (2005-11-28 06:45) [6]TMemoryStream etc.
← →
palva © (2005-11-28 09:34) [7]> а то твой лепет похож на реч Черномырдина
Васянь, не трогай шурина (почти Высоцкий)
Его речь всем понятна сходу, только вот не поддается парсингу, ибо не контекстно-свободна.
← →
Palladin © (2005-11-28 19:32) [8]
> ...как объединить несколько файлов в одини по ходу работы
> проги
Procedure JoinFiles(Const p_strBigFileName:String;Const p_astrFilesNames:Array of String);
Var
i:Integer;
theBigFile,
theCurrentFile:TFileStream;
Begin
theBigFile:=TFileStream.Create(p_strBigFileName,fmCreate+fmShareDenyRead);
Try
For i:=0 to High(p_astrFilesNames) Do
If FileExists(p_astrFilesNames[i]) Then
Begin
theCurrentFile:=TFileStream.Create(p_astrFilesNames[i],fmOpenRead+fmShareDenyWrite);
Try
theBigFile.CopyFrom(theCurrentFile,0);
Finally
theCurrentFile.Free;
End;
End;
Finally
theBigFile.Free;
End;
End;
> по ходу работы проги грузить в оперативку
Function LoadBigFile(Const p_strBigFileName:String):TMemoryStream;
Begin
If FileExists(p_strBigFileName) Then
Begin
Result:=TMemoryStream.Create;
Result.CopyFrom(TFileStream.Create(p_strBigFileName,fmOpenRead+fmShareDenyWrite),0);
End;
End;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.12.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c
