Чтение из файла(записи) [Delphi]

[kop]

Читаем из файла данные (имя, рост, вес, год). Заносим эти данные в записи (массив записей). При введение одного из имен которое содержится в файле вывести рост (для этого имени).
Помогите пожалуйста
Язык-Делфи

[drknn]

Сообщение от kop

Читаем из файла данные (имя, рост, вес, год). Заносим эти данные в записи (массив записей). При введение одного из имен которое содержится в файле вывести рост (для этого имени).
Помогите пожалуйста
Язык-Делфи

Имя индивида должно быть уникальным. Для одного индивида - одна строка с его параметрами. Организуем цикл в котором проходим по строкам. Отыскиваем строку, с именем индивида. Отыскиваем в строке нужный параметр. Выводем найденное на экран. Данный алгоритм сработает не только в Делфи.
Можно использовать базу данных - сортировка будет идти проще. Смотрите Флёнов "Библия Делфи" - там довольно подробно рассмотрена работа с базами данных

[Serge_Bliznykov]

Сообщение от drknn

Для одного индивида - одна строка с его параметрами.

это неверное утверждение! Вы невнимательно прочитали задание - у TC задание на тип Запись (record)
А вот насчёт алгоритма поиска - всё правильно.

kop, для начала сходите в поиск по форуму. Подобных задач тьма-тьмущая..
а описание Вашего типа данных будет выглядеть примерно так:

const MaxN = 100;
type
  Tstudent = record
    name: string[30];
    height, weight : double;
    year: integer;
  end;
var
  One : Tstudent;
  fStud : file of Tstudent;
  ArrayRec : array[1..MaxN] of Tstudent;
....

___________
Задача явно учебная. Ей в разделе Delphi - не место.
Переношу в раздел "Помощь студентам"

[drknn]

Сообщение от Serge_Bliznykov

это неверное утверждение! Вы невнимательно прочитали задание - у TC задание на тип Запись (record)

Не понял этого замечания. Человек считал куда-то данные из документа. Какая разница куда он их записал? Да хоть на листик бумажки с карандашом. Суть-то от этого не меняется. Или Вы имеете ввиду, что если встретилось имя "Иван", то нужно вывести рост каждого из Иванов, которые есть в списке?

[Serge_Bliznykov]

drknn, возможно, что Вы и правы..

Хотя я считаю, что в данной задаче уместно использовать не текстовый файл, а типизированный файл var f : file of ТипЗапись;
Удобство работы с подобным файлом намного выше, чем с текстовым.
вот, например, как можно прочитать в массив записей содержимое типизированного файла:

var
  fStud : file of Tstudent;
  ArrayRec : array[1..MaxN] of Tstudent;
  i : integer;
begin
   Assign(fStud, 'AllStud.dat');
   Reset(fStud);
   if FileSize(FStud)>MaxN then WriteLn('Записей в файле больше максимально допустимого в программе ', MaxN)
   else begin
     {чтение}
     for i:=1 to FileSize(FStud) do Read(fStud, ArrayRec[i]);
   end;
...

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

[kop]

всем спасибо..=) будемс делать

[drknn]

Сообщение от kop

всем спасибо..=) будемс делать

Отпишись пожалуйста по результатам - любопытно. ОК?