Таблица рекордов, Не пойму что не пашет Опции

[1234]

Вот делаю таблицу рекордов (в типизированном файле). Да не могу найти ошибку в алгоритме.
mas-массив типа string;
st-файл типа string.

rocedure Verif(Var F: st;Name,Ochki: String);
{Процедура предназначена для перепроверки рекордов в связи с новым достижением}
     Var Points,Nick,A,Nick1,Points1: mas;
            S                                                : String;
            I,J,Nom,I1,N,Chp                           : Integer;
   Begin
     N:=0;
     While Not Eof(F) Do  {Perezapis' v massiv}
       Begin
         Read(F,S);
         Inc(N);
         A[N]:=S;
       End;
       For I:=1 To N Do
         Begin
           S:=A[I];
           For I1:=1 To Length(S) Do
           Begin
           Chp:=0;
           While Chp=6 Do              {Schitka odnoy stroki}
             Begin
               If S[I1]=' ' Then
                 Inc(Chp);
               If S[I1]<>' ' Then Nick1[I]:=S[I1]+Nick1[I];{Svedeniya uje imeyuschihsya igrokov}
             End;
           While Chp=5 Do
             Begin
               If S[I1]='  ' Then
                 Inc(Chp);                                                    {eto ya seychas razrabativayu}
               If S[I1]<>' ' Then Points1[I]:=S[I1]+Points1[I];
             End;                {Smeschenie na odnu stroku}
             End;
           If Ochki>=Points1[I] Then
             Nom:=I;
           For J:=1 To N-1 Do
             Begin         {Zapisivaem uchitivaya izmeneniya}
                Nick[J]:=Nick1[J];
                Points[J]:=Points1[J];
                While J=Nom Do
                  Begin
                    Nick[Nom]:=Name;
                    Points[Nom]:=Ochki;
                  End;
               End;
            Rewrite(F);
            Reset(F);
            For J:=1 To N Do
              Begin
                S:='';
                S:=J+ '      '+Nick[J]+'     '+Points(J);
                Write(F,S);
              End;
            Close(F);
   End;

[1234]

Да я уже не успеваю. Поэтому придётся без этих рекордов. Сейчас меня больше интересует интерфейс: насколько я знаю у каждого типа шрифта есть свой код. Как мне вообще можно связать любой из Chr с моей программой. Например, с той что вы мне посоветовали, сказав что её давно выпустили. А что касается прислать, то могу только завтра. После презентации проекта. Хотя, думаю, на кой чёрт она вам нужна. Вы такую за 5 минут наклепаете.

Сообщение отредактировано: 1234 - 9.02.2007 17:08

[TarasBer]

Да я уже не успеваю. Поэтому придётся без этих рекордов. Сейчас меня больше интересует интерфейс: насколько я знаю у каждого типа шрифта есть свой код. Как мне вообще можно связать любой из Chr с моей программой. Например, с той что вы мне посоветовали, сказав что её давно выпустили. А что касается прислать, то могу только завтра. После презентации проекта. Хотя, думаю, на кой чёрт она вам нужна. Вы такую за 5 минут наклепаете.

Готический шрифт задаётся строчкой SetTextStyle(4, 0, 4);
А для замены стандартного готического шрифта на модифицированный надо найти goth.chr в папке *** и заменить файл. *** - это та, которую вы указали при вызове InitGraph (по-моему, так).
Или не готический (чего это я всё о нём?), а любой другой.
К тому же в Паскале можно поступить так:

var
  MyFont: integer;
...
  MyFont := InstallUserFont('abcd');
  if MyFont >= 0 then
    SetTextStyle(MyFont, 0, 4);

Abcd - это имя файла со шрифтом (без расширения). То есть если вы хотите загрузить rgot.chr, то вместо "abcd" пишете "rgot".
P.S. В редакторе замечены баги:
1. Если завести розовую линию за край символа и стереть правой кнопкой все линии, то розовая линия вылезет далеко справа (исправил)
2. Файлы с русскоязычным названием глючат (исправил)
3. Файлы с названием не из 4х букв глючат (не исправил, по-моему не лечится).
4. Точки с координатами < 0 по X отображаются далеко справа (нечего левее границы рисовать).
5. В некоторых символах некоторых шрифтов более 256 векторов. Теперь верхняя граница - 320.
Кстати, в стандартных шрифтах столько артефактов (лишних векторов)! Особенно отвратителен bold.
Новая версия (1.01):

Сообщение отредактировано: TarasBer - 10.02.2007 21:39