Несколько вопросов про вывод на экран записей из Tp

@Dr Step · Регистрация: 29.12.2010

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

Всем здавствуйте! Начал заниматься программированием совсем недавно, так что за нубство извиняйте срауз..
Задача вывести на экран из BDGuitars.tp записи отсортированные в алфавитном порядке. Вот что получилось, на экран выводит, а сортировки нет((

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
...
var
  m:array[1..100] of z;
  x,j,i:integer;
  Spisok:file of z;
  Guitar:z;
...
procedure TForm6.GuitarSort;
 var
  bf:z;
  begin
  AssignFile(Spisok, 'BDGuitars.tp');
  reset(spisok);
    for i:=0 to filesize(spisok)-1 do
    for j:=i+1 to filesize(spisok)-1 do
    begin
    if m[j].im>m[j+1].im then
      begin
      bf:=m[j];
      m[j]:=m[j+1];
      m[j+1]:=bf;
       end;
    closefile(spisok);
    writeln;
  reset(Spisok);
  while not eof(Spisok) do
  begin
  inc(x);
  read(Spisok, m[x]);
  writeln(m[x].im);
  writeln(m[x].ks);
  writeLn(m[x].korp);
  writeLn(m[x].g);
  writeLn(m[x].kg);
  writeLn(m[x].n);
  writeLn(m[x].l);
  writeLn(m[x].kol);
  writeLn(m[x].b);
  writeLn(m[x].contr);
  writeLn(m[x].pr);
  writeLn(m[x].cena);
  writeLn(m[x].ris);
  writeLn;
  end;
  closefile(Spisok);
  readln;
end;
end;
...

В чем проблема никак не могу понять
И еще один вопрос, у меня есть программа и мне нужно , чтобы на экран записи выводились не в консоли, а в форме. Например, содержимое текстового файла я вывожу в Memo1, как сделать тоже самое с типизированным файлом?
Заранее всем спасибо

Комментарий модератора

Код следует оформлять с помощью соответствующих тегов. - Это требование правил форума.

@Dr Step · 29.12.2010, 17:10 **[ТС]**

unick12345, Именно, поэтому и хотел создать базу данных, я так понимаю это можно сделать только так http://www.interface.ru/home.asp?artId=1272, да?

@unick12345 · 29.12.2010, 17:13

можно

@Dr Step · 29.12.2010, 17:17 **[ТС]**

unick12345, Ладно, спасибо, я так понимаю, что это самый простой вариант создания БД, так что пошел разбираться...

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок 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. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

@Dr Step 0 / 0 / 0 Регистрация: 29.12.2010 Сообщений: 18
	29.12.2010, 17:10 [ТС]
	unick12345, Именно, поэтому и хотел создать базу данных, я так понимаю это можно сделать только так http://www.interface.ru/home.asp?artId=1272, да? 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	29.12.2010, 17:13
	можно 1

@Dr Step 0 / 0 / 0 Регистрация: 29.12.2010 Сообщений: 18
	29.12.2010, 17:17 [ТС]
	unick12345, Ладно, спасибо, я так понимаю, что это самый простой вариант создания БД, так что пошел разбираться... 0