Показать полную графическую версию : Turbo Pascal | Неверный идентификатор
Добрый День!
Ребята написал программку в турбо паскале,при запуске она ругается какой то индефикатор не нравится (Bounds)хотя индификатор верен. Вообще еслив кто можит посмотрите программку можит кто найдет ошибку?
Файл приклеплен!
BlackEric
06-12-2006, 11:35
Архив битый. Не распаковывается.
Я вот сейчас попробывал у себя он нормально распокавался!
Ну ладно еще запокавал.
Diseased Head
07-12-2006, 18:42
gh6 Этот, тоже битый...
Какая версия архиваторов? Может лучше просто файлы скинуть (не архивируя).
Гы.... дык типа файлы с расширением .pas неподдерживаются,тоесть их нельзя прикреплять.
Че ваще нераспаковывается? версия рара 3.40
вот еще кидаю архивчик!
Diseased Head
08-12-2006, 18:05
Да чё за голяк... Ты случаем не прикалываешся? Или вирус закинуть хочеш? Или архиваторами пользоваться не умееш?
Жму на ссылку скачивается файл attachment.php (?), раскрываю через RAR (3.11) - опять ошибки. Файл в архиве видит но не извлекает его. Ты чё, твориш вобще?
Запакуй, как нибуть, в режиме совместимости со старыми версиями (обычно не максимальное сжатие).
Или, проще, измени расширение файла: RABOTA.pas --> RABOTA.rar
Слушай дружок! некакого вирья я заслать нехочу,и пользоваться архиваторами я умею. Ты обзоведись лучше версией рара 3.40 . я давлю на ссылку и у меня все скачивается и распаковывается, мой тебе совет разбирись у себя в системе!
DillerInc
09-12-2006, 00:25
Подтверждаю -- файлы все битые.WinRAR 3.40.
Файлы нормальные. Чем вы их скачиваете? По теме - достал TP (тоже сдавал курсовой по ТОП), так что даже смотреть не хочется.
Нормально открывается.
Перезалил, просто смените расширение на .pas
Ладно бог с этим архивом я кидаю код программки,посмотрите пожалуйста и скажите что не так,можит кто нить найдет ошибки?
Diseased Head
10-12-2006, 00:09
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
: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;
А эта процеДУРА вся в ошибках.
Это вообще кто писал? Подозреваю что не ты. ;-/ А если ты, то чёт ты нарно перебрал или с недосыпу.
И вобще зачем братся за такие сложные примеры, если элементарные ошибки исправить не можеш?
Ага спасибо некоторые ошибки исправил.
Да есть здесь один автор.
Ага спасибо некоторые ошибки исправил.
Да есть здесь один автор.
Можит кто нить еще ошибочки найдет?
вот в этой процедурке нашел еще ошибку:
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
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+' ';.
Далее ещё ошибки...
Не ребята это у вас руки кривые скачал РАР по самой первой ссылке и все нормально скачал, разпаковал(WinRar 3.5)
Ну че кто еще нашел ошибочки?
MPru
Ты случайно несмотрел прогу?
Diseased Head, Посмотрел твои исправление и хочу сразу тебе задать некоторые вопросы:
1. Отвечу на твой вопрос>gh6 ты, к примеру, можеш сказать что делает данная процедура?
Это, только отрывок процедуры от проги и она выполняет следующие действия> Читает содержимое файла данных в массиве LINES.
2. На счет остальных ошибок с тобой согласен!
3. Вот здесь, я тебе хочу задать вопрос а именно по этой строке> if so'' then PS^.Insert(NewStr(S)) --- вот то о чём ты говорил. И почему-же ты исправил, это на lo? Чё вобще значит, это lo? Я исправил так s=''.
У меня тоже изначально стоял индификатор so, но проблемма в том что пр этом индефикаторе прога ругается и выдает, что типа неверный индификатор! Исправил на lo заработала, но стало ругаться на кавычки ('') и выдает ошибку типа>error 88: "<" expected.
Вот что енто можит быть?
У мекня подозрение, что геде то в проге есть ошибочка!
Ребята посмотрите пожалуйста прогу! кто читал или читает эту тему!
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.