Импорт данных из типизированного файла

@Dreiser · Регистрация: 14.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Писал как-то программку на консоли, теперь понадобилось сделать то же самое, только в ООП.
В консоли использовал такую логику:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure ImportData (var head,cur:plist; var num:integer);
Var FileDat: file of stud; I: integer; st: stud;
begin
  assign(FileDat, 'Export.dat');
  if fileexists('Export.dat') = false then begin writeln('No data');
   delay(3000); ClrScr; end
   else
     begin
     I:=1;
     reset(FileDat);
     while not eof(FileDat) do
     begin
     read(FileDat,st);
     if i=1 then
     begin
      Head:=Createlist(st); Cur:=Head;
     end
     else
     begin
     InsCur(cur,st);
     end; i:=i+1;
     end;
     close(FileDat);
  end; Num:=i;
end;

В ООП я вот так просто добавляю студента в БД (когда с клавиатуры):

Delphi
1
2
3
4
5
6
7
begin
   p:=TPlayer.create;
   P.Name:=Edit1.text;
   P.Fam:=Edit2.text;
   P.No:=SpinEdit1.Value;
   MyList.Add(p);
end;

А как преобразовать это все в импорте - не знаю.

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

@mss · 28.03.2013, 22:19

Вот как даже ?

Ну тогда с учетом

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

Я прекрасно пойму, что происходит

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

@Dreiser · 28.03.2013, 22:20 **[ТС]**

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

Без разницы: консоль, GUI - указанное применимо в обоих случаях. Главное в другом, твой пример не показывает как читался файл.

Ну если указанное выше перебор, то только читать учебники.

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

@mss · 28.03.2013, 22:23

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

явный перебор в замудренности. И я не вижу

Это не "перебор", а демонстрация на реальной задаче одной из неотъемлемых ООП-парадигм - инкапсуляции

Добавлено через 1 минуту

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

у меня всего второй семестр программирования

За семестр вполне можно было проштудировать учебник. И не один.

@Dreiser · 28.03.2013, 22:24 **[ТС]**

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

Это не "перебор", а демонстрация на реальной задаче одной из неотъемлемых ООП-парадигм - инкапсуляции

Добавлено через 1 минуту

За семестр вполне можно было проштудировать учебник. И не один.

Нету у нас. Библию Делфи мне всю проштудировать? Ради маленького абзаца?

@mss · 28.03.2013, 22:28

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

Библию Делфи мне всю проштудировать?

Если ты действительно хочешь получить знания, то не одну. И не единожды. Даже ради одного слова.

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

Нету у нас

Я сейчас разрыдаюсь какой ты несчастный - торчишь в сети и ноешь-попрошайничаешь "подайте, у нас нету", а рядом у тебя, буквально перед носом лежит бездонная кладезь литературы и информации.

@Dreiser · 28.03.2013, 22:32 **[ТС]**

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

Если ты действительно хочешь получить знания, то не одну. И не единожды. Даже ради одного слова.

Я сейчас разрыдаюсь какой ты несчастный - торчишь в сети и ноешь-попрошайничаешь "подайте, у нас нету", а рядом у тебя, буквально перед носом лежит бездонная кладезь литературы и информации.

Я уже сказал, что смысла разводить тут философские дискуссии нет. Как бы зачем тогда нужен этот форум? Давайте удалим его нафиг и всех отправим читать учебники.

Не хотите помочь по человечески - не надо. Знаю, что раньше тут помогали. Ну, видимо, не в этот раз. Жаль.

@mss · 28.03.2013, 22:39

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

зачем тогда нужен этот форум?

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

Вот и сиди и изучай этот пример. И не ной про "замудрено" - никаких премудростей здесь нет.
А если такие, на твой взгляд, и есть, то на то и форум, чтобы спросить - мол, мне в этом примере непонятно конкретно вот это.

@Dreiser · 28.03.2013, 22:44 **[ТС]**

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

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

Вот и сиди и изучай этот пример. И не ной про "замудрено" - никаких премудростей здесь нет.
А если такие, на твой взгляд, и есть, то на то и форум, чтобы спросить - мол, мне в этом примере непонятно конкретно вот это.

Этот код вообще никак не похож даже по своему стилю на то, чем мы занимаемся. Где assignfile? reset? close? и прочее? Нету.

@cotseec · 28.03.2013, 22:47

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

Где assignfile? reset? close? и прочее?

этим всем как раз и занимается класс, примр использования которого был продемонстрирован

@Dreiser · 28.03.2013, 22:49 **[ТС]**

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

этим всем как раз и занимается класс, примр использования которого был продемонстрирован

Я не знаю, чем он занимается, но в допустимый формат это не вписывается....

@mss · 28.03.2013, 22:54

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

на то, чем мы занимаемся

Почем мне знать чем вы там занимаетесь ?
Похоже балду гоняете, вместо того чтобы штудировать матчасть Делфи.

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

Где assignfile? reset? close?

Они фактически "инкапсулированы" в объект класса TFileStream.
Не ты ли про классы только что заявлял ?
Не нравится TFileStream - замени его на столь тобой любимые assignfile, reset, close..
Переделка на них займет мизерное время, ключевой момент - это Write(f, data)

@cotseec · 28.03.2013, 22:54

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

в допустимый формат это не вписывается

дык впиши....нужно использовать для записи исключительно

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

assignfile? reset? close? и прочее?

опиши класс (только зачем, если в большинстве случаев это уже описано?), опиши класс, который хранит информацию в нужном для записи виде и используй данные объекта этого класса для записи объектом другого класса.....
если речь о том, что не уверен в правильности записи/чтения - разберись с начала с ними

@Dreiser · 28.03.2013, 23:04 **[ТС]**

Как мне объяснить, что у нас даже лекции по классам не было? Я не могу просто взять и что-то заменить. Я без понятия вообще, что вы тут творите

28.03.2013, 23:14

Не по теме:

Скажи что в качестве личной инициативы, изучил самостоятельно. :)

@Dreiser · 28.03.2013, 23:18 **[ТС]**

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

Не по теме:

Скажи что в качестве личной инициативы, изучил самостоятельно. :)

Не вариант.

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

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Dreiser 8 / 8 / 7 Регистрация: 14.10.2012 Сообщений: 179
	28.03.2013, 23:04 [ТС]
	Как мне объяснить, что у нас даже лекции по классам не было? Я не могу просто взять и что-то заменить. Я без понятия вообще, что вы тут творите 0

angstrom
	28.03.2013, 23:14
	Не по теме: Скажи что в качестве личной инициативы, изучил самостоятельно. :)