안녕하세요...
저는 델초보입니다.. 고수님 도와주세요...
procedure
text_input : textfile ;
s_card : string ;
begin
assignfile(text_input,InFile.text);
reset(text_input);
while not eof(text_input) do
begin
readln(text_input, s_card); <- 여기서 에러가 납니다.
end;
사이즈가 큰 텍스트 화일일 경우 out of memory 에러가 발생합니다.
다른 방법으로 할수 있는지 알려주세요...
end.
var
F1 : TextFile;
S : string;
begin
AssignFile(F1, 'c:test.txt');
Reset(F1);
While not eof(F1) do begin // 파일의 끝일 때 까지 한라인씩 읽음
ReadLn(F1, S)
여기.... 필요한것 구현..
end;
CloseFile(F1)
end;
즐푸하세용...