Q&A

  • [질문]RichEdit 특정 문자 변경 소스 봐주세요 ㅠㅠ


델마당 양병규님 소스 참고하는중인데요

안된고 있어요

이름 : 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;
0  COMMENTS