Форум «Всё о Паскале» > Помогите с модулем

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

~OzzY~

3.11.2005 18:16

вообщем вот код модуля
немогу просто скомпилирывать его....

Исходный код

unit alex;

interface
uses crt,objects,app,drivers,menus,views,dos,dialogs,graph;
const
     cmwork=100;
     cmfon=101;
     cmfile_create=201;
     cmtabl=202;
     cmread_spisok=203;
     cmsort=204;
type
    spisok=record
                 naim:string[25];
                 opisanie:string[25];
                 cena:string[5];
    end;
type
    tnotebook=object(tapplication)
    procedure initmenubar;virtual;
    procedure HandleEvent(var Event: TEvent); virtual;
    procedure InitStatusLine;virtual;
   end;

implementation
{*********************************************************}
{                         ЊҐ­о                            }
{*********************************************************}
procedure Tnotebook.initmenubar;
var
   r:trect;
begin
     getExtent®;
     r.b.y:=succ(r.a.y);
     menubar:=new(pmenubar,init(r,
     newmenu(
       newsubmenu('~F~/" ©"',hcnocontext,
        newmenu(
             {/////////////////////////////////////////////////////////////////}
             newitem('~1~/'®§¤ вм д ©"','F2',kbF3,cmfile_create,hcnocontext,
             newline(
             {/////////////////////////////////////////////////////////////////}
             newitem('~2~/‚ўҐбвЁ ¤ ­­лҐ ў д ©"','F3',kbF2,cmtabl,hcnocontext,
             newline(
             {****************************************************************}
             newitem('~3~/'ЇЁб®Є','F4',kbF3,cmread_spisok,hcnocontext,
             {********************************************************************}
             newline(
             newitem('~4~/'®авЁа®ў вм бЇЁб®Є','F5',kbF3,cmsort,hcnocontext,
             {**************************************************************}
             newline(
             {******************************************************************}

             {///////////////////////////////////////////////////////////////}
             newitem('~5~/‚ле®¤','Alt+X',kbF9,cmquit,hcnocontext,nil)))))))))),
             {**************************************************************}
              newsubmenu('~E~/‚ле®¤',hcnocontext,
              newmenu(
              newitem('~1~/Ќ...'','',0,cmwork,hcnocontext,
              newitem('~2~/"Ђ','',0,cmquit,hcnocontext,nil))),
             {**************************************************************}
                                                             nil)))));
end;
{*********************************************************}
{            ‚Є"озҐ­ЁҐ/®вЄ"озҐ­ЁҐ Єгаб®а                  }
{*********************************************************}
PROCEDURE CURSOROFF;
   ASSEMBLER;
   ASM
    MOV   AH,1
    MOV   CX,2020H   {‚›Љ‹ћ-...Ќ?... Љ"ђ'ЋђЂ}
    INT   10H
   END;
  {ЏђЋ-...""ђЂ ‚›‚..."...Ќ?џ Љ"ђ'ЋђЂ}

  PROCEDURE CURSORON;
   ASSEMBLER;
   ASM
    MOV   AH,1
    MOV   CX,0607H   {‚Љ‹ћ-...Ќ?... Љ"ђ'ЋђЂ}
    INT   10H
  END;

{*********************************************************}
{                 ‡ Єа иЁў ­ЁҐ д®­                        }
{*********************************************************}
procedure fon;
var
   ir,jr:byte;
begin
     textbackground(white);
     textcolor(blue);
     for ir:=2 to 24 do
          begin
          gotoxy (1,ir);
          write(& #39;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
°°°°');
          end;
end;
{*********************************************************}
{                  '®§¤ ­ЁҐ д ©"                          }
{*********************************************************}
procedure file_create;
var
   f:file of spisok;
begin
assign(f,'C:\spisok.spk');
rewrite(f);
    textbackground(1);
    textcolor(white);
    gotoxy(20,12);
    write('ЙНННННННННННННННННННННННННННННННННННН"');
    gotoxy(20,13);
    write('є           " ©" б®§¤ ­ !            є');
    gotoxy(20,14);
    write('ИННННННННННННННННННННННННННННННННННННј');
    textbackground(white);
    gotoxy(20,15);
    write('       Ќ ¦¬ЁвҐ ­  "оЎго Є" ўЁиг       ');
    readkey;
    fon;
end;
procedure podsvetca(xpt,ypt,zpt:byte);
var
   ipt:byte;
begin
     textbackground(green);
     for ipt:=1 to zpt do
         begin
         gotoxy(xpt+ipt,ypt);
         write(' ');
         end;
     textbackground(1);
end;
procedure soob_tabl_1;
begin
     textbackground(white);
     gotoxy(9,9);
     textcolor(red);
     write('Enter ');
     gotoxy(14,9);
     textcolor(white);
     write(' - ЏҐаҐе®¤ ­  б"Ґ¤гойго бва®Єг                        ');
     gotoxy(9,10);
     write('‚ў®¤ ­  агббЄ®¬ п§лЄҐ                                      ');
end;
{******************************************************************}
procedure soob_tabl_2;
begin
     textbackground(white);
     gotoxy(9,9);
     textcolor(red);
     write('Enter ');
     gotoxy(14,9);
     textcolor(white);
     write(' - Ќ з вм § Ї®"­Ґ­ЁҐ        ');
     textcolor(red);
     gotoxy(38,9);
     write('Esc ');
     textcolor(white);
     gotoxy(42,9);
     write('- ЋвЄ § вмбп ®в § Ї®"­Ґ­Ёп');
end;
procedure tabl;
var
    c:char;
    a:spisok;
    f:file of spisok;
begin
textbackground(blue);
     textcolor(white);
     gotoxy(9,2);
     write('ЙННННННННННННННННННННННН['®ў а]ННННННННННННННННННННННННННН"');
     gotoxy(9,3);
     write('єЌ Ё¬Ґ­®ў ­ЁҐ в®ў а :                                     є');
     gotoxy(9,4);
     write('є                                                         є');
     gotoxy(9,5);
     write('єЋЇЁб ­ЁҐ:                                                є');
     gotoxy(9,6);
     write('є                                                         є');
     gotoxy(9,7);
     write('є-Ґ­ :                                                    є');
     gotoxy(9,8);
     write('ИНННННННННННННННННННННННННННННННННННННННННННННННННННННННННј');
     soob_tabl_2;
     c:=readkey;
     if c=#13 then
                    begin
                    podsvetca(30,3,25); podsvetca(19,5,25);podsvetca(15,7,5);
                    soob_tabl_1;
                    cursoron;
                    textbackground(green);
                    gotoxy(31,3);
                    readln(a.naim);
                    gotoxy(20,5);
                    readln(a.opisanie);
                    gotoxy(16,7);
                    readln(a.cena);
                    cursoroff;
                    assign(f,'C:\spisok.spk');
                    reset(f);
                    seek(f,filesize(f));
                    write(f,a);
                    close(f);

                    end;
                        {else
                        begin
                        textbackground(white);
                        gotoxy(9,9);
                        write('                 Ќ ¦¬ЁвҐ "оЎго Є" ўЁиг                     ');
                        end;}

fon;
end;
procedure spisok_tab;
begin
     textbackground(1);
     textcolor(white);
     gotoxy(10,3);
     write('ЙНННННННННННННННННННННННННННННННННННННННННННННННННННННННН"');
     gotoxy(10,4);
     write('є                       '®ў а                            є');
     gotoxy(10,5);
     write('МНННННННННННННННННННЛНННННННННННННННННННННННННННЛНННННННН№');
     gotoxy(10,6);
     write('єЌ Ё¬Ґ­®ў ­ЁҐ в®ў а є       ЋЇЁб ­ЁҐ            є  -Ґ­   є');
     gotoxy(10,7);
     write('МНННННННННННННННННННОНННННННННННННННННННННННННННОНННННННН№');

end;

procedure read_spisok;
var f:file of spisok;
a:spisok;i,k,j:integer;
begin
     spisok_tab;
     i:=0;
     assign(f,'C:\spisok.spk');
     reset(f);
     while not eof(f) do
           begin
           read(f,a);
           gotoxy(10,8+i);
           write('є                   є                           є        є');
           gotoxy(11,8+i);
           write(a.naim);
           gotoxy(31,8+i);
           write(a.opisanie);
           gotoxy(59,8+i);
           write(a.cena);
           i:=i+1;
           k:=k+1;
           if i=15 then
                      begin
                      textcolor(white);
                      gotoxy(10,8+i);
                      write('ИНННННННННННННННННННКНННННННННННННННННННННННННННКННННННННј');
                      readkey;
                      i:=0
                      end
                      else
                         if k>15 then
                             for j:=i to 14 do
                                  begin
                                  textcolor(white);
                                  gotoxy(10,8+j);
                                  write('є                   є                           є        є');
                                  end
                                 else;


     if k<16 then
        begin
        textcolor(white);
        gotoxy(10,8+i);
        write('ИНННННННННННННННННННКНННННННННННННННННННННННННННКННННННННј');
        end
               else;

           end;

readkey;
fon;
end;
{*********************************************************}
{                      '®авЁа®ўЄ                          }
{*********************************************************}
procedure sort;
var
   i,j:integer;
   a:array[1..100]of string[25];
   s:string[25];
   f,f1:file of spisok;
   b:spisok;
function prov:boolean;
var k:integer;
z:boolean;
begin
k:=1;
z:=true;
while (z<>false)and(k<=j)do
    begin
    if a[k]=b.naim then
       z:=false
                    else
                    z:=true;
    k:=k+1;
    end;
if z then
   prov:=true
   else
   prov:=false;
end;
begin
assign(f,'C:\spisok.spk');
reset(f);
read(f,b);
a[1]:=b.naim;
s:=b.naim;
j:=1;
while not eof(f)do
      begin
      read(f,b);
      for i:=1 to j do
          if prov then
             begin
             a[j+1]:=b.naim;
             j:=j+1;
             s:=b.naim;
             end
                        else;
      end;
close(f);
assign(f1,'C:\spisok1.spk');
rewrite(f1);
for i:=1 to j do
    begin
    reset(f);
    while not eof(f)do
          begin
          read(f,b);
          if a[i]=b.naim then
             begin
             seek(f1,filesize(f1));
             write(f1,b);
             end;
          end;
    end;
close(f1);
erase(f);
rename(f1,'C:\spisok.spk');

textbackground(1);
    textcolor(white);
    gotoxy(20,12);
    write('ЙНННННННННННННННННННННННННННННННННННН"');
    gotoxy(20,13);
    write('є       'ЇЁб®Є ®вб авЁа®ў ­ !        є');
    gotoxy(20,14);
    write('ИННННННННННННННННННННННННННННННННННННј');
    textbackground(white);
    gotoxy(20,15);
    write('       Ќ ¦¬ЁвҐ ­  "оЎго Є" ўЁиг       ');
    readkey;
    fon;
end;

{*********************************************************}
{                      ЋЎа Ў®взЁЄ                         }
{*********************************************************}

procedure tnotebook.HandleEvent(var Event: TEvent);
begin
  inherited HandleEvent(Event);
  case Event.What of
    evCommand:
      case Event.Command of
      cmfon:fon;
      cmfile_create:file_create;
      cmtabl:tabl;
      cmread_spisok:read_spisok;
      cmsort:sort
      else
        Exit;
      end;
  else
    Exit;
  end;
  ClearEvent(Event);
end;
{*********************************************************}
{                   'ва®Є  б®бв®п­Ёп                      }
{*********************************************************}
procedure tnotebook.InitStatusLine;
var
   r:trect;
begin
     GetExtent®;
     R.A.Y:=pred(R.B.Y);
     StatusLine:=new(PStatusline,init(r,
     NewStatusDef(0,0,
     NewStatusKey('~F2~ '®§¤ вм д Ё"',kbF2,cmfile_create,
     NewStatusKey('~F3~ ‚ўҐбвЁ ¤ ­­лҐ',kbF3,cmtabl,
     NewStatusKey('~F4~ 'ЇЁб®Є',kbF4,cmread_spisok,
     NewStatusKey('~F5~ '®авЁа®ў вм',kbF5,cmsort,
     NewStatusKey('~F10~ ЊҐ­о',kbF10,cmMenu,
     NewStatusKey('~Alt-X~ ‚ле®¤',kbAltx,cmquit,nil)))))),
                                                     nil)));
end;

begin
end.

помогите плиз

volvo

3.11.2005 18:21

To: ~OzzY~
Нужно было апострофы в строках привести в порядок (модуль компилируется, работоспособность НЕ проверял):

~OzzY~

3.11.2005 18:28

Спасибо

~OzzY~

3.11.2005 19:30

еще хотел сказать что это первы мой модуль.....
как его скомпилирывать в .tpu файл??
подскажите пожалуйста

volvo

3.11.2005 19:39

Просто нажми F9, и Паскаль сам разберется, что это модуль (по слову Unit), и создаст TPU файл...

~OzzY~

3.11.2005 19:45

Цитата(volvo @ 3.11.2005 19:39)

Просто нажми F9, и Паскаль сам разберется, что это модуль (по слову Unit), и создаст TPU файл...

Нажимаю.... пишит что скомпилировалось удачно....
а где теперь сам файл tpu искать???
все папки общарил а его нет....

volvo

3.11.2005 19:51

Во-первых проверь, что у тебя в меню Compile->Destination стоит "Disk", вполне может быть, что у тебя компилируется в память... Если же стоит "Disk", то ищи в текущей папке, или ..\Tp70\UNITS или в тех папках, которые указаны в Option -> Directories как "EXE & TPU directory"

~OzzY~

3.11.2005 19:56

Стот disk
дериктория указана c:\bp\units\

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

murphy

3.11.2005 20:13

Зайди в поиск и напиши alex.tpu

или

попробуй еще build

~OzzY~

3.11.2005 20:22

Цитата(murphy @ 3.11.2005 20:13)

Зайди в поиск и напиши alex.tpu

или

попробуй еще build

попробывал нет результатов......

volvo

3.11.2005 20:31

To: ~OzzY~
Так у тебя Borland Pascal? Тогда проверь, какой Target установлен... BP так компилит Unit-ы:

Цитата

Real mode Application - TPU
Protected mode Application - TPP
Windows Application - TPW

Так что убедись, что у тебя Target = Real mode Application, и заодно сделай Compile -> Clear Primary File (на всякий случай, может ты не то компилируешь вообще)

~OzzY~

3.11.2005 20:37

Цитата(volvo @ 3.11.2005 20:31)

To: ~OzzY~
Так у тебя Borland Pascal? Тогда проверь, какой Target установлен... BP так компилит Unit-ы:
Так что убедись, что у тебя Target = Real mode Application, и заодно сделай Compile -> Clear Primary File (на всякий случай, может ты не то компилируешь вообще)

Спасибо сделал, работает

а не мог бы ты мне строчки указать где апострофы неправильно разместил?

volvo

3.11.2005 20:47

Практически везде, где были апострофы, они стояли неверно... Маленький пример:

...
newline(
newitem('~4~/'®авЁа®ў вм бЇЁб®Є','F5',kbF3,cmsort,hcnocontext,
{**************************************************************}
newline(
...

видишь, какая подсветка? Это - неправильно. Смотри, как правильно:

newline(
newitem('~4~/®авЁа®ў вм бЇЁб®Є','F5',kbF3,cmsort,hcnocontext,
{**************************************************************}
newline(

(строка выделяется зеленым цветом)... Если ты еще не настроил Options -> Environment -> Colors, то сделай это как можно быстрее (чтобы Syntax -> Strings выделялись другим цветом), это предотвратит огромное количество головной боли

~OzzY~

3.11.2005 20:50

клес!

спасибо!

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.