Имя пользователя:
Пароль:
 

Показать сообщение отдельно
gh6 gh6 вне форума Автор темы

Новый участник


Сообщения: 28
Благодарности: 0

Профиль | Отправить PM | Цитировать


вот в этой процедурке нашел еще ошибку:

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

Отправлено: 12:21, 11-12-2006 | #15