[gh6]

Ладно бог с этим архивом я кидаю код программки,посмотрите пожалуйста и скажите что не так,можит кто нить найдет ошибки?

[Diseased Head]

Код:

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;

Дааа...... Начинаю злиться...
gf GrowHix+gf GrowHi Y ---> gfGrowHix+gfGrowHiY
Detructor ---> Destructor
Может так!
Сразу оговорюсь что я не знаток Паскаля, так что не ручаюсь.

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

[Diseased Head]

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]

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

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

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

[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 lo'' then PS^.Insert(NewStr(S))
end;
Location := 0;
end;


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

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

[Diseased Head]

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]

Не ребята это у вас руки кривые скачал РАР по самой первой ссылке и все нормально скачал, разпаковал(WinRar 3.5)

[gh6]

Ну че кто еще нашел ошибочки?

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

[gh6]

Diseased Head, Посмотрел твои исправление и хочу сразу тебе задать некоторые вопросы:

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

[gh6]

Ребята посмотрите пожалуйста прогу! кто читал или читает эту тему!