VPF::Чтение чисел из файла! - Форум программистов

Sniper

Дата 23.9.2003, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

Народ ну помогите мне! А!!!!

Простой вопрос....!!!!

--------------------

"Я испытываю отвращение к системе, разработаннной для "пользователя", если в слове "пользователь" закодировано уничижительное значение "тупой и примитивный".
Кен Томпсон, создатель Unix

Vit

Дата 24.9.2003, 03:04 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Структуру файла ты определяешь или нет?

Если ты, то используй типизированные файлы и никаких проблем не будет:

Код


Type TVector=record
                       X, Y, Z:integer;
                      end;

Vertex: array of TVector;

procedure LoadWorld(Filename: String);
  var F:File of TVector;
begin
AssignFile(F, Filename);
Reset(F);
SetLength(Vertex, Size(f));
For i:=0 to Size(f)-1 do Read(Vertex[i]);  
CloseFile(F);
end;

Только код я писал навскидку, могут быть небольшие проблемы.

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

p0s0l

Дата 24.9.2003, 06:53 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата

Народ ну помогите мне! А!!!!

Простой вопрос....!!!!

В чем проблема-то ?

--------------------

С уважением, г-н Посол.

Sniper

Дата 27.9.2003, 09:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 511
Регистрация: 8.5.2002

Репутация: нет
Всего: 2

2 Vit у меня ещё тупой вопрос но всё же...

какой тогда, если пользовать этот код, должен быть формат файла? %-)

Это сообщение отредактировал(а) Sniper - 27.9.2003, 09:05

--------------------

Vit

Дата 27.9.2003, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Тот который получится... Реально он будет по 12 байт в 1 записи, записи будут следовать одна за другой без разделителя, в каждой записи X - первые 4 байта, Y- вторые 4 байта, Z - последние 4 байта

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »