Текущий архив: 2005.01.30;
Скачать: CL | DM;

Вниз

Файлы которые хранят несколько значений (используеться record)   Найти похожие ветки 

← →
Drey ©   (2005-01-16 19:06) [0]

Как создать и прочитать файл в который можна записать (прочитать) несколько свойх значений ( string , integer , real)
и причём не одно а несколько. Я слышал что это можно сделать  приблизительно так.....

with Xxxx record
   x1:integer;
   y1:string[15];
end;

потом както присвоить этим переменным значение и записать в файл.
А поточнее может ктото подсказать с примером?

---

← →
begin...end ©   (2005-01-16 19:14) [1]

> with Xxxx record

Сие невозможно.

По сабжу: типизированные файлы.

---

← →
begin...end ©   (2005-01-16 19:57) [2]

> Drey ©   (16.01.05 19:06)

Вот пример.

type
 TInfo = record
   Name: String[10];
   Age: Byte;
   ApparatusLength: Byte
 end;

// Процедура записи в файл
procedure WriteToFile;
var
 Info: TInfo;
 F: file of TInfo;
begin
 // Заполняем поля записи
 with Info do
 begin
   Name := "John Smith";
   Age := 20;
   ApparatusLength := 50
 end;
 // Связываем файловую переменную с маршрутом доступа
 AssignFile(F, "c:\MyFile.bin");
 // Открываем файл для записи
 Rewrite(F);
 // Записываем в файл содержимое переменной Info
 Write(F, Info);
 // Закрываем файл
 CloseFile(F)
end;

// Процедура чтения из файла
procedure ReadFromFile;
var
 Info: TInfo;
 F: file of TInfo;
begin
 // Связываем файловую переменную с маршрутом доступа
 AssignFile(F, "c:\MyFile.bin");
 // Открываем файл для чтения
 Reset(F);
 // Читаем из файла в переменную Info
 Read(F, Info);
 // Закрываем файл
 CloseFile(F);
 // Смотрим, что прочиталось в переменную
 with Info do
   ShowMessageFmt("Имя: %s, возраст: %d лет, длина: %d см.", [Name, Age, ApparatusLength])
end;

begin
 WriteToFile;
 ReadFromFile
end.

Выполните этот код (например, вставьте его в обработчик нажатия какой-нибудь кнопки, запустите программу и нажмите кнопку). Посмотрите на образовавшийся файл (c:\MyFile.bin) в текстовом редакторе (Блокноте), затем - в шестнадцатеричном (например, в FAR"е). Разберитесь. Если что-нибудь будет совсем непонятно - спрашивайте.

---

← →
Fofka123   (2005-01-16 21:39) [3]

Info.SavetoFile("xxx");

---

← →
begin...end ©   (2005-01-16 21:50) [4]

> Fofka123   (16.01.05 21:39) [3]

А теперь смотрим на тип переменной Info и начинаем думать верхней головой.

---

← →
Palladin ©   (2005-01-16 23:48) [5]

:) Это из разряда "А дай-ка я что нибудь отвечу"

---

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

Текущий архив: 2005.01.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.055 c