델마당 양병규님 소스 참고하는중인데요
안된고 있어요
이름 : NAME
전화번호 : TEL
주소 : ADDRESS
참고 : 영어루 된부분 글자색 있어요
다음과 같은 형식으로 변환하려구 해요
이름 : 이름
전화번호 : 전화번호
주소 : 주소
소스
DELPHI 2010
=========
소스 (첨부파일)
-----
var
sFC_File : String;
sFC_Text : String;
cFC_Load : TMemoryStream;
cFC_Edit : TMemoryStream;
begin
sFC_File := '.\Test.rtf';
if FileExists(sFC_File) = True then begin
cFC_Load := TMemoryStream.Create;
cFC_Load.LoadFromFile(sFC_File);
SetLength( sFC_Text, cFC_Load.Size );
cFC_Load.Read( sFC_Text[1], cFC_Load.Size );
sFC_Text := StringReplace( sFC_Text, 'NAME', '이름', [rfReplaceAll] );
sFC_Text := StringReplace( sFC_Text, 'TEL', '전화', [rfReplaceAll] );
sFC_Text := StringReplace( sFC_Text, 'ADDRESS', '주소', [rfReplaceAll] );
cFC_Edit := TMemoryStream.Create;
try
cFC_Edit.Write( sFC_Text[1], Length( sFC_Text ) );
cFC_Edit.Position := 0;
cfc_edit.SaveToFile('sss');
RichEdit1.Lines.LoadFromStream( cFC_Edit );
finally
cFC_Edit.Free;
end;
end else begin
RichEdit1.Clear;
end;
end;