AssignFile(simF, ExtractFilePath(Application.ExeName)+'sim.txt');
Reset(simF);
while not Eof(simF) do
begin
Readln(simF,st);
StrLCopy(PChar(simlist.nomer),PChar(st),10);
... и т.д. ...
Access violation на строке вида StrLCopy(PChar(st1),PChar(st2),10);
На строке
StrLCopy(PChar(simlist.nomer),PChar(st),10);
выдает:
Access violation at address 005890C2 in module 'MyProga.exe'. Read of address 40C14E78.
код процедуры такой:
simF объявлен как TextFile, simlist - массив структур, поле nomer объявлено как String. В него хотел закинуть первые десять символов из прочитанной строки.
Delphi 7
StrLCopy(PChar(simlist.nomer),PChar(st),10);
выдает:
Access violation at address 005890C2 in module 'MyProga.exe'. Read of address 40C14E78.
код процедуры такой:
Код:
simF объявлен как TextFile, simlist - массив структур, поле nomer объявлено как String. В него хотел закинуть первые десять символов из прочитанной строки.
Delphi 7
А не проще написать так:
А то уж как-то странновато это выглядит.
Код:
simlist.nomer:=copy(st,1,10)
А то уж как-то странновато это выглядит.
видимо потому, что память для Ноумер невыделенна ещё... обращайся к нему как к стрингу.