구글링을 통해 함수하나를 구했습니다.
function ReadUTF8File(Path: String): String;
var
fStream: TFileStream;
Buffer: TBytes;
begin
Result:='';
if not FileExists(Path) then Exit;
fStream:=TFileStream.Create(Path, fmOpenRead);
try
SetLength(Buffer, fStream.Size);
fStream.ReadBuffer(Pointer(Buffer)^, Length(Buffer));
Result:=TEncoding.UTF8.GetString(Buffer, 0, fStream.Size);
finally
FreeAndNil(fStream);
end;
end;
kylix 님 감사합니다. ^^
에디터 님이 쓰신 글 :
: 저는 왜 이렇게 나올까요?
:
: "CMOS 공정???�용??2 차원 ?��? 광결??구조 ?�작?�도???�노?�?�어 ?��?�??�침 ?�작 �??�성 ?��? DNA �??�원?�로 ?�용??Gold Nano Plate ???�성??관???�구 DNA Junction device �??�한 Cross Contact 구조�??�성??관???�구 LB 방법???�용???�노미터 규격??균일???�리�?배열 �??��? ?�용???�리�?리소그래??구현"
:
: 말하신대로 UTF8Decode 으로 디코딩해서 읽어봤는데요.
:
:
: kylix 님이 쓰신 글 :
: : UTF8로 되어 있는 텍스트문서니까 디코딩해서 읽으세요.
: : 아래 내용이네요.
: :
: : CMOS 공정을 이용한 2 차원 스핀 광결정 구조 제작전도성 나노와이어 현미경 탐침 제작 및 특성 평가 DNA 를 환원제로 이용한 Gold Nano Plate 의 합성에 관한 연구 DNA Junction device 를 위한 Cross Contact 구조물 형성에 관한 연구 LB 방법을 이용한 나노미터 규격의 균일한 폴리머 배열 및 이를 이용한 폴리머 리소그래피 구현
: :
: :
: : 에디터 님이 쓰신 글 :
: : : 아래 텍스트 파일을 델파이에서 어떻게 읽어야 될지 모르겠네요..
: : : 파일 포멧도 모르겠구요..
: : : 제발 도와주세요 ㅜㅜ
|