StrLCopy(PChar(simlist[i].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);
... и т.д. ...
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