Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.07.2007, 13:02   #1
malor
Форумчанин
 
Регистрация: 23.05.2007
Сообщений: 151
По умолчанию Access violation на строке вида StrLCopy(PChar(st1),PChar(st2),10);

На строке
[i] StrLCopy(PChar(simlist.nomer),PChar(st),10);
выдает:
Access violation at address 005890C2 in module 'MyProga.exe'. Read of address 40C14E78.


код процедуры такой:
Код:
AssignFile(simF, ExtractFilePath(Application.ExeName)+'sim.txt');
  Reset(simF);
  while not Eof(simF) do
    begin
      Readln(simF,st);
      StrLCopy(PChar(simlist[i].nomer),PChar(st),10);
      ... и т.д. ...
simF объявлен как TextFile, simlist - массив структур, поле nomer объявлено как String. В него хотел закинуть первые десять символов из прочитанной строки.

Delphi 7
malor вне форума Ответить с цитированием
Старый 11.07.2007, 13:39   #2
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Обьяви поле nomer не как string а как array [0..10] of char
Вызов функции будет выглядеть так
StrLCopy(simlist[i].nomer,PChar(st),10);

плюс не ясно с массивом simlist может и там выход за пределы
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mutabor; 11.07.2007 в 13:42.
mutabor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
String to PChar D7_beginner Общие вопросы Delphi 2 21.11.2007 14:05
проблема перевода (PChar и string) Fireleo Общие вопросы Delphi 4 29.07.2007 08:14
PCHAR строка с разделителями #13#10. Как вычленить отдельные "подстроки" EdNovice Общие вопросы Delphi 1 17.04.2007 11:42
Добавление к pchar EdNovice Общие вопросы Delphi 2 15.04.2007 17:00
Как из string получить PChar??? sis Компоненты Delphi 4 11.02.2007 16:58