안녕하세요.
다음과 구분자까지를 잘라서 표현하려고 하는데,
access violation 이라고 나옵니다.
어떻게 바꿔야 하는지 고수님들의 답변을 부탁드립니다.
var
buf: string;
strlist : TStringlist;
txt : textfile;
begin
assignfile(txt,'c:aaa.txt');
reset(txt);
while not eof(txt) do begin
readln(txt,buf);
extractstrings(['|'],[';'],Pchar(buf),strlist);
edit1.text:=strlist.Strings[0];
edit2.text:=strlist.Strings[1];
edit3.text:=strlist.Strings[2];
edit4.text:=strlist.Strings[3];
end;
closefile(txt);
end;
StrList := TStringList.Create;
즐푸하세요..