Ну теперь топик два! обясните плиз что такое типизированные файлы... и как с ними работать

Типизированные файлы - это файлы в которых данные хранятся в бинарном формате,

наппример:

Код

type cost=record  cena:real;  naimenovanie:string; end; // описание файла будет таким: var f:file of cost; peremennaya:cost; begin assignfile(f,'file_name'); rewrite(f); peremennaya.cena:=10; peremennaya.naimenovanie:='something'; wirte(f,peremennaya); //Добавляется одна запись из 2х полей в файл end;

Точно также можно использовать файлы типа f:file of integer и т.п.

Скажи как из 4-х текстовых полей записать данные в файл
И как их стчитать оттуда...

Satana Милый друг, будь так любезен проверять свой код перед публикацией в среде разработки.

И если не уверен в ответе то не отвечать. Тот пример, что ты дал НИКОГДА не будет работать т.к. в типизированный файл НЕЛЬЗЯ записывать длинные строки (String).
Добавлено @ 12:10
REVOLT и Satana Настоятельно советую прочитать статью http://forum.vingrad.ru/index.php?showtopic=1924

А я и не писал что это рабочий код, а для прмера я считаю самое оно...

Цитата(Alex @ 20.11.2004, 15:07)

И если не уверен в ответе то не отвечать. Тот пример, что ты дал НИКОГДА не будет работать т.к. в типизированный файл НЕЛЬЗЯ записывать длинные строки (String).

Можно записывать строки типа ShortString.

Код

type cost=record  cena:real;  naimenovanie:string[255]; //--------- fixed end; // описание файла будет таким: var f:file of cost; peremennaya:cost; begin assignfile(f,'file_name'); rewrite(f); peremennaya.cena:=10; peremennaya.naimenovanie:='something'; write(f,peremennaya); CloseFile(f); //--------- fixed thanks Alex end;

Вот так работать должно.

А вообще правильно такие вещи оформлять в таком виде. Вот пример из моего проекта который я делал совместно с младшим братом, это игра в танчики:

Код

unit uSetting; interface uses uGlobal,Windows; type  TSettingRecord = packed record //структура настроек игры    BitCount: word; //количество цветов;    ScrWidth: word; //ширина экрана    ScrHeight: word; //высота экрана    MapSize: word; //размер игрового поля в пикселях    Square:word;//размер квадрата    Space:word;// отступ игрового поля с лева и с верху  end;  TSettingGame = class //Настройки игры  private    FSetting: TSettingRecord;  public    property Setting: TSettingRecord read FSetting write FSetting;    function LoadSetting(): word;    function SaveSetting(ASetting: TSettingRecord; ARefresh: boolean): word;  end; implementation function TSettingGame.LoadSetting(): word; var  vSettingFile: File of TSettingRecord;  vSetting: TSettingRecord; begin  result := 0;//все ок  AssignFile(vSettingFile,cFileSetting);  try    try    {$I-}    Reset(vSettingFile);    {$I+}    if IOResult <> 0 then    begin      MessageBox(0,PChar('Файл "'+cFileSetting+'" не найден!'),'Ошибка',MB_OK+MB_ICONERROR);      result := 2; //неполучается открыть файл      exit;    end;    read(vSettingFile, vSetting);    Setting := vSetting;    except      MessageBox(0,'Ошибка при загрузке настроек!','Ошибка',MB_OK+MB_ICONERROR);      result := 1; //неизвестная ошибка      exit;    end;  finally    CloseFile(vSettingFile);  end; end; function TSettingGame.SaveSetting(ASetting: TSettingRecord; ARefresh: boolean): word; var  vSettingFile: File of TSettingRecord; begin  result := 0;//все ок  AssignFile(vSettingFile,cFileSetting);  try    try    {$I-}    Rewrite(vSettingFile);    {$I+}    if IOResult <> 0 then    begin      MessageBox(0,PChar('Файл "'+cFileSetting+'" не найден!'),'Ошибка',MB_OK+MB_ICONERROR);      result := 2; //неполучается открыть файл      exit;    end;    write(vSettingFile, ASetting);    if ARefresh then    begin      Setting := ASetting;    end;    except      MessageBox(0,'Ошибка сохранения настроек!','Ошибка',MB_OK+MB_ICONERROR);      result := 1; //неизвестная ошибка      exit;    end;  finally    CloseFile(vSettingFile);  end; end; end.

REVOLT, я тоже не люблю когда меня, отправляют что-нибудь читать, но в данном случае я бы посоветовал прочитать про них литератупу, там не много. Я тоже первый раз подумал что раз звучит слово файл, то это что-то сверх естественное, но а в течении 2-ух часов понял, что работа с файлами это самая лёгкая тема...

Цитата(Zero @ 20.11.2004, 19:27)

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

С такой нелюбовью Вы мало чему научитесь. ИМХО я не встречал еще ни одного профессионала, который бы позволил себе высказывание, подобного рода.

Извини Pegas, возможно я не так выразился...я просто имелл ввиду, что когда задаёш вопрос по какой-нибудь сложной теме в которую нужно долго вникать чтобы понять, а вопрос к примеру важный, и если начинают предлогать что-нибудь прочитать к примеру ─ то чтобы понять которое нужно знать ресурс 2, а сам при этом незнаеш ресурс 1, ну и в этом роде, а не про то что можно выучить за 1 час, про которое ты подумал...

Цитата(Zero @ 20.11.2004, 17:11)

Извини Pegas, возможно я не так выразился...я просто имелл ввиду, что когда задаёш вопрос по какой-нибудь сложной теме в которую нужно долго вникать чтобы понять, а вопрос к примеру важный, и если начинают предлогать что-нибудь прочитать к примеру ─ то чтобы понять которое нужно знать ресурс 2, а сам при этом незнаеш ресурс 1, ну и в этом роде, а не про то что можно выучить за 1 час, про которое ты подумал...

Что же ты будешь делать в ситуации, когда на твой вопрос народ ответа знать не будет?
Если не привыкнешь читать документацию и лазить по чужим кодам на маленьких задачах, то не сможешь понять, как решить серьезный вопрос.

Alex, я же говорю, что не имел ввиду, что вообще не люблю, читать документации...
А в определённых случаях они быват неуместными...
А к примеру, какие-либо вещи чтобы узнать я и сам всегда читаю это либо в книге по Delphi про определённый компонент, либо ещё где-нибудь.
Но раз уж вы заговорили про это, то вот вам пример:
представь, вот ты читаешь, какую-нибудь статью, или что-нибудь, в чём тебе нужно разобратся, и не можеш сам понять как это должно работать, потом пишеш вопрос в форум, а тебе пишут ответ читай литературу, да ещё укажут на ту же которую сам только прочитал, как тогда тебе понравится это или нет... Только не говори что если ты найдёш литературу, которая написана в тему, то ты всегда её разберёш, я по своему опыту знаю что это не так...

Цитата(Zero @ 20.11.2004, 20:35)

представь, вот ты читаешь, какую-нибудь статью, или что-нибудь, в чём тебе нужно разобратся, и не можеш сам понять как это должно работать, потом пишеш вопрос в форум, а тебе пишут ответ читай литературу, да ещё укажут на ту же которую сам только прочитал, как тогда тебе понравится это или нет...  Только не говори что если ты найдёш литературу, которая написана в тему, то ты всегда её разберёш, я по своему опыту знаю что это не так...

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

Цитата

Вопрос должен быть задан нормально, что бы тебя не отсылали к тому материалу, который у тебя вызвал затруднение

Alex, именно этого ответа, я от тебя и добивался, чтобы ты сам подтвердил, что не всегда любишь, когда тебя отсылают что-нибудь читать... Я надеюсь теперь то вы с Пегасом поняли про что я имелл ввиду???

Цитата(Zero @ 20.11.2004, 21:34)

Alex, именно этого ответа, я от тебя и добивался, чтобы ты сам подтвердил, что не всегда любишь, когда тебя отсылают что-нибудь читать... Я надеюсь теперь то вы с Пегасом поняли про что я имелл ввиду???

Я говорю о том, что если вопрос задать правильно, то тебя и не отправят ничего читать.