안녕하세요.
텍스트 파일 불러오기가 안되네요.
일반적인 텍스트 파일은 잘 불러들이는데 이 파일은 오픈이 안되요.
첨부한 파일을 불러와서 수정하고 다시 저장을 해야 하거든요.
(문제의 텍스트 파일을 첨부하여 질문 드립니다.)
파일 내용은
P e a c e
+O p e n
R a i s e
C o n f i g u r t i o n
C h a t
W a i t
이렇습니다.
이 파일을 여러방법으로 불러와서 메모장에 나타내어 줄 때
1. Memo1.Lines.LoadFromFile('test.txt')를 했을 경우엔
P 만 나타나고
2. var
FH : textFile;
Line : String;
begin
try
AssignFile(FH, 'test.txt');
Reset(FH);
while not Eof(FH) do begin
Readln(FH, Line);
Memo1.Lines.Add(Line);
end;
finally
CloseFile(FH);
end; 로 했을 경우엔
P
+O
R
C
W
이렇게만 표시가 됩니다.
텍스트 파일 중간에 입력되어 있는 빈칸이 그냥 빈칸이 아닌것 같은데 어떻게 해야 할지 모르겟습니다.
윈도 메모장에서 불러들이면 제대로 나타나지만 저장을 하면 일반 텍스트 파일이 되어 버립니다...즉, 빈칸이 그냥 빈칸....
에디트 플러스에서는 불러오고 저장하고가 다 제대로 됩니다.
도와주세요.~~~~!!!!
var
FH : textFile;
Ch : Char;
begin
try
AssignFile(FH, 'test.txt');
Reset(FH);
while not Eof(FH) do begin
Read(FH, Ch);
if Ch = #0 then Ch := #32;
Memo1.Lines.Text := Memo1.Lines.Text + Ch;
end;
finally
CloseFile(FH);
end;
end;