답변 정말 감사드립니다.
시키신대로 불러온 파일을 저장하고자 할때는 어떻게 해야 하죠?
Memo1.Lines.SaveFromFile('test1.txt');
이렇게 하면 일반적인 텍스트 파일 되어버리거든요...
원 파일대로 저장을 시킬려고 하는데
제가 부족하다보니 잘 안됩니다.
부탁드리겠습니다.
>이렇게 해보세요.
>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;
>
>>안녕하세요.
>>텍스트 파일 불러오기가 안되네요.
>>
>>일반적인 텍스트 파일은 잘 불러들이는데 이 파일은 오픈이 안되요.
>>첨부한 파일을 불러와서 수정하고 다시 저장을 해야 하거든요.
>>(문제의 텍스트 파일을 첨부하여 질문 드립니다.)
>>
>>파일 내용은
>>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
>> 이렇게만 표시가 됩니다.
>>
>>텍스트 파일 중간에 입력되어 있는 빈칸이 그냥 빈칸이 아닌것 같은데 어떻게 해야 할지 모르겟습니다.
>>
>>윈도 메모장에서 불러들이면 제대로 나타나지만 저장을 하면 일반 텍스트 파일이 되어 버립니다...즉, 빈칸이 그냥 빈칸....
>>
>>에디트 플러스에서는 불러오고 저장하고가 다 제대로 됩니다.
>>
>>도와주세요.~~~~!!!!
Rewrite(F);
Write(F, FDataStr);
CloseFile(F);