Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   Turbo Pascal | Неверный идентификатор (http://forum.oszone.net/showthread.php?t=75748)

gh6 06-12-2006 07:08 521412
Turbo Pascal | Неверный идентификатор
 
Вложений: 1
Добрый День!
Ребята написал программку в турбо паскале,при запуске она ругается какой то индефикатор не нравится (Bounds)хотя индификатор верен. Вообще еслив кто можит посмотрите программку можит кто найдет ошибку?
Файл приклеплен!

BlackEric 06-12-2006 11:35 521504
Архив битый. Не распаковывается.

gh6 07-12-2006 10:59 521885
Вложений: 1
Я вот сейчас попробЫвал у себя он нормально распокавался!
Ну ладно еще запокавал.

Diseased Head 07-12-2006 18:42 522050
gh6 Этот, тоже битый...

Какая версия архиваторов? Может лучше просто файлы скинуть (не архивируя).

gh6 08-12-2006 04:57 522220
Вложений: 1
Гы.... дык типа файлы с расширением .pas неподдерживаются,тоесть их нельзя прикреплять.
Че ваще нераспаковывается? версия рара 3.40


вот еще кидаю архивчик!

Diseased Head 08-12-2006 18:05 522445
Да чё за голяк... Ты случаем не прикалываешся? Или вирус закинуть хочеш? Или архиваторами пользоваться не умееш?
Жму на ссылку скачивается файл attachment.php (?), раскрываю через RAR (3.11) - опять ошибки. Файл в архиве видит но не извлекает его. Ты чё, твориш вобще?

Запакуй, как нибуть, в режиме совместимости со старыми версиями (обычно не максимальное сжатие).

Или, проще, измени расширение файла: RABOTA.pas --> RABOTA.rar

gh6 08-12-2006 18:53 522462
Слушай дружок! некакого вирья я заслать нехочу,и пользоваться архиваторами я умею. Ты обзоведись лучше версией рара 3.40 . я давлю на ссылку и у меня все скачивается и распаковывается, мой тебе совет разбирись у себя в системе!

DillerInc 09-12-2006 00:25 522565
Подтверждаю -- файлы все битые.WinRAR 3.40.

ivank 09-12-2006 00:54 522570
Файлы нормальные. Чем вы их скачиваете? По теме - достал TP (тоже сдавал курсовой по ТОП), так что даже смотреть не хочется.

DedAlex 09-12-2006 13:23 522705
Вложений: 1
Нормально открывается.
Перезалил, просто смените расширение на .pas

gh6 09-12-2006 19:29 522814
Вложений: 2
Ладно бог с этим архивом я кидаю код программки,посмотрите пожалуйста и скажите что не так,можит кто нить найдет ошибки?

Diseased Head 10-12-2006 00:09 522879
Код:
TInterior = object (TScroller)
    PS: PStringCollection;
    Location: Word;
    Constructor Init (varBounds: TRect; HS,VS: PScrollBar) ;
    Procedure Draw; Virtual;
    Procedure ReadFile;
    Destructor Done; Virtual;
    Procedure HandleEvent (var Event: TEvent) ; Virtual;
  end;
Забыл поставить пробел. varBounds --> var Bounds :) Ни чё, бывает...
Но у меня там ещё ошибка появилась:
Код:
  Constructor Tinterior.Init;

begin
          TScroller.Init (Bounds, Hs, VS);
          ReadFile;
          GrowMode :=gf GrowHix+gf GrowHi Y ;
          SetLimit (LLine, PS^.Count)
end;
Также ругается на идентефикатор.
Дамаю ошибок будет ещё много. Хорошо бы, чтоб я ошибался.

Код:
begin
          TScroller.Init (Bounds, Hs, VS);
          ReadFile;
          GrowMode :=gf GrowHix+gf GrowHi Y ;
          SetLimit (LLine, PS^.Count)
        end;


        Detructor TInterior.Done;
        begin
          Dispose(PS,Done) ;
          Inherited Done
        end;
Дааа...... Начинаю злиться... :angry:
gf GrowHix+gf GrowHi Y ---> gfGrowHix+gfGrowHiY
Detructor ---> Destructor
Может так!
Сразу оговорюсь что я не знаток Паскаля, так что не ручаюсь.

Далее ещё ошибки...

Diseased Head 10-12-2006 00:30 522897
:angry2: t57rufjнгм6:?*%8gr``;'.,.,.,.,.,.,.,.,.,..
Код:
Procedure Tinterior.ReadFile;
        var
          k:  Integer;
          s:  String;
          Data : DataType;
          f: text;
        begin
          PS :=New(PStriongCollection, Init (100.10));
          seek(DataFile,0);
          while not (EOF(DataFile) or LowMemory) do
          begin
          Read (DataFile,data) ;
          with data do
            begin
              s := Name
              while Length (s) < LName do
                    s : = s+ '' ;
              e : = s+Phone;
              while Length (s) < LName+Phone do
                s: =s+'';
              s : = s+Addr
            end;
          if so'' then PS^.Insert(NewStr(S))
          end;
          Location := 0;
        end;
А эта процеДУРА вся в ошибках.
Это вообще кто писал? Подозреваю что не ты. ;-/ А если ты, то чёт ты нарно перебрал или с недосыпу.
И вобще зачем братся за такие сложные примеры, если элементарные ошибки исправить не можеш?

gh6 10-12-2006 19:51 523096
Ага спасибо некоторые ошибки исправил.
Да есть здесь один автор.

Ага спасибо некоторые ошибки исправил.
Да есть здесь один автор.

Можит кто нить еще ошибочки найдет?

gh6 11-12-2006 12:21 523388
вот в этой процедурке нашел еще ошибку:

Procedure Tinterior.ReadFile;
var
k: Integer;
s: String;
Data : DataType;
f: text;
begin
PS :=New(PStriongCollection, Init (100.10));
seek(DataFile,0);
while not (EOF(DataFile) or LowMemory) do
begin
Read (DataFile,data) ;
with data do
begin
s := Name
while Length (s) < LName do
s : = s+ '' ;
e : = s+Phone;
while Length (s) < LName+Phone do
s: =s+'';
s : = s+Addr
end;
if lo'' then PS^.Insert(NewStr(S))
end;
Location := 0;
end;


Че енто можит быть?

if so'' then PS^.Insert(NewStr(S)) >в место индификатора so поставил lo перестал ругаться, но сейчас ругается на ''(кавычки) и выдает ошибку error 88: "<" expected

Diseased Head 12-12-2006 21:34 523983
gh6 ты, к примеру, можеш сказать что делает данная процедура? Аааа....?
Я в общих чертах представляю. И ошибку эту ты, на глаз видимо нашёл. Ты кого обдурить то вздумал?

Ну что-ж, давай посмотрим ошибки в этой процедуре...
Код:
Procedure Tinterior.ReadFile;
        var
          k:  Integer;
          s:  String;
          Data : DataType;
          f: text;
        begin
          PS :=New(PStriongCollection, Init (100.10));
          seek(DataFile,0);
          while not (EOF(DataFile) or LowMemory) do
          begin
          Read (DataFile,data) ;
          with data do
            begin
              s := Name;
              while Length (s) < LName do
                    s :_= s+ '' ;
              e :_= s+Phone;
              while Length (s) < LName+Phone do
                s:_=s+'';
              s :_= s+Addr;
            end;
          if so'' then PS^.Insert(NewStr(S))
          end;
          Location := 0;
        end;
- PStriongCollection --- здесь лишний символ o.
- Init (100.10) --- чёта типа несоответствия типов, заменил . на , - помогло. Но так как я не знаток Паскаля, и не знаю как работает эта функция. То не знаю, верно ли...
- Name; --- точки с запятыми, которых нет.
- В выражениях типа: s :_= s+''; --- лишние пробелы.
- e :_= s+Phone; --- чё за e здесь? Я исправил на s.
- LName+Phone --- несоответствие типов. Я написал LName+LPhone .
- if so'' then PS^.Insert(NewStr(S)) --- вот то о чём ты говорил. И почему-же ты исправил, это на lo? Чё вобще значит, это lo? Я исправил так s=''.

Процедура пролетела, но верно ли я всё исправил, не знаю точно. Та как опять же говорю, что я не знаток. И ещё меня смущают выражения типа s:=s+'';, если я правильно помню Паскаль, то: '' - значит пустую строку. Тогда в этом выражении нет смысла, и должно быть так: s:=s+' ';.

Далее ещё ошибки...

MPru 13-12-2006 10:12 524185
Не ребята это у вас руки кривые скачал РАР по самой первой ссылке и все нормально скачал, разпаковал(WinRar 3.5)

gh6 14-12-2006 11:36 524582
Ну че кто еще нашел ошибочки?

MPru
Ты случайно несмотрел прогу?

gh6 15-12-2006 04:54 524898
Diseased Head, Посмотрел твои исправление и хочу сразу тебе задать некоторые вопросы:

1. Отвечу на твой вопрос>gh6 ты, к примеру, можеш сказать что делает данная процедура?
Это, только отрывок процедуры от проги и она выполняет следующие действия> Читает содержимое файла данных в массиве LINES.
2. На счет остальных ошибок с тобой согласен!
3. Вот здесь, я тебе хочу задать вопрос а именно по этой строке> if so'' then PS^.Insert(NewStr(S)) --- вот то о чём ты говорил. И почему-же ты исправил, это на lo? Чё вобще значит, это lo? Я исправил так s=''.
У меня тоже изначально стоял индификатор so, но проблемма в том что пр этом индефикаторе прога ругается и выдает, что типа неверный индификатор! Исправил на lo заработала, но стало ругаться на кавычки ('') и выдает ошибку типа>error 88: "<" expected.
Вот что енто можит быть?
У мекня подозрение, что геде то в проге есть ошибочка!

gh6 18-12-2006 04:39 526020
Ребята посмотрите пожалуйста прогу! кто читал или читает эту тему!

MPru 25-12-2006 11:27 528823
Смотрел.....
Ты этот исходник откуда брал...
Слишком много ну просто глупых ошибок.
Если со сканировал тогда просмотри по тексту м сам исправляй ошибки, если же это какоето задание по програмированию тогда буду дальше думать над решением........

Цитата:
Ребята написал программку в турбо паскале
Ну ведь не ты написал признайся честно

MPru 25-12-2006 13:40 528890
gh6
Ладно пока тебя нет а меня роботы нет просмотрел до конца файлик и сделал некоторые исправления(в файле осталось пару строк которые ввели меня в заблуждение они взяты в {}). А именно
  • Строка 228 { MoveChar(p,'',Color,Size.x) ;}
  • Строка 264 {R.Assing(X+k+DX,6,X+k*DX+L,8); }
  • Строка 285 {D := copy(PStr^,1,LName);}
  • Строка 370: { p := p^;}
  • Строка 386: {FillChar (s[1] ,L, '');}
  • И Строка 574: {StatusLine :=New(PStatusLine,Init(R,NewStatusDef (0, $FFFF,NewStatusKey...........
Порограма скомпилироваласть и даж загрузиласть но не полностю работосрособна



Цитата:
Переименуй .rar на .pas

gh6 26-12-2006 04:52 529145
MPru> Привет!

Посмотрел твои исправления и скачал файлик все скомпилироваласть, но почему то не загрузилась!
Просто выходит окно что типа все нормально нажмити любою клавишу.
На счет того что ты спрасил, что я писал эту программу, скажу тебе сразу что некоторое я написал а некоторое брал из изходников.

MPru 26-12-2006 09:56 529207
gh6
Ты проско скомпилировал программу по Alt-F9;
Но после компиляции ее нужно запустить по Ctrl-F9

gh6 26-12-2006 11:25 529230
MPru Да все нормально енто сам прогнал. ну загрузилась она у меня че то нето, вродека минюшек должно быть больше и как то все в краткости

MPru 28-12-2006 15:22 530164
gh6
Менюшек действительно должно быть больше все дело в закоментированой строке 174:
Но у меня пока времени нет чтобы выяснить в чем причина того что она не компилируется.
Будет время напишу решение...м

gh6 29-12-2006 06:00 530312
MPru Привет!
Ага посмотри пожалуйста!

gh6 11-01-2007 05:41 534592
Привет> MPru
Ну че как у тебя со временим?


Время: 00:16.

Время: 00:16.
© OSzone.net 2001-