| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

чтение из файла [D2005, XP]

ИльяС ©   (2007-06-22 12:17:00) 

При копировании статического массива из файла проходит все как надо.
Знаю что динамический массив это указатель. Как мне скопировать из файла динамический массив.

---

ИльяС   (2007-06-22 14:54:00) [1]

> Без умножения на SizeOf(<тип элемента>)? packed array of
> Byte (Char) что ли?

Да Byte
Спасибо за помощь

---

Инс   (2007-06-22 14:35:00) [2]

> Работает вариант:


Без умножения на SizeOf(<тип элемента>)? packed array of Byte (Char) что ли?

---

ИльяС   (2007-06-22 14:32:00) [3]

Работает вариант:

File.Read(Pointer(DinamicArray)^,Length(DinamicArray));

---

Anatoly Podgoretsky   (2007-06-22 13:23:00) [4]

> Anatoly Podgoretsky  (22.06.2007 13:21:08)  [8]

Насчет неправильно погорячился

---

Anatoly Podgoretsky   (2007-06-22 13:21:00) [5]

> Инс  (22.06.2007 12:31:05)  [5]

Не нужно, а главное неправильно, потом будет кричать памяти не хватает

---

Gydvin   (2007-06-22 13:01:00) [6]

> File.Read(DinamicArray[0],

Во кстати тоже так читаю. Вопрос. Возможны ли в этом случае, какие либо неожиданости?

---

MBo   (2007-06-22 12:32:00) [7]

File.Read(DinamicArray [0], Length(DinamicArray)*SizeOf(DinamicArray[0]))

---

Инс   (2007-06-22 12:31:00) [8]

При сохранении в файл - сначала записывайте размер. При чтении - сначала читайте размер, потом устанавливайте массиву полученный размер с пом. SetLength, а потом - читайте.
Запись:
var
 S: TFileStream;
 arr: packed array of <тип элемента>;
begin
 S:=TFileStream.Create(FileName,fmCreate);
 try
   S.WriteBuffer(Length(arr),SizeOf(Integer));
   S.WriteBuffer(Pointer(arr)^,Length(arr)*SizeOf(<тип элемента>));
 finally
   S.Free;
 end;
end;

Чиение:
var
 S: TFileStream;
 arr: packed array of <тип элемента>;
 Size: Integer;
begin
 S:=TFileStream.Create(FileName,fmOpenRead);
 try
   S.ReadBuffer(Size,SizeOf(Integer));
   SetLength(arr,Size);
   S.ReadBuffer(Pointer(arr)^,Size*SizeOf(<тип элемента>));
 finally
   S.Free;
 end;
end;

---

Плохиш   (2007-06-22 12:30:00) [9]

> File.Read(DinamicArray[0],Length(DinamicArray));

---

Ильяс   (2007-06-22 12:27:00) [10]

1 вариант проходит
File.Read(StatArray,Length(StatArray));

2. вариант не прохрдит
SetLength(DinamicArray,LengthDinamicArray)
File.Read(DinamicArray,Length(DinamicArray));

---

Сергей М.   (2007-06-22 12:22:00) [11]

> мне скопировать из файла динамический массив


Смотря как он туда попал

---

Плохиш   (2007-06-22 12:19:00) [12]

1. Распределить память и так же как и статический массив
2. В цикле.

---

Наверх