rtf kayıt UTF8 sorunu

[brs]

Selam;

Lisbox'daki kayıtları rtf formatında masaüstüme kaydediyorum, kaydedilen Message.rtf açmak istediğimde resimdeki gibi bir ekran geliyor, tamam butonuna bastığımda yazıları görebiliyorum, bu ekranın gelmemesini nasıl engellerim...

Kod: Tümünü seç

procedure TMainForm.SaveClick(Sender: TObject);
begin
  try
    with ListView1 do
    begin
      if Items.Count > 0 then
      begin
        MessageList.Items.SaveToFile(Masa + '\' +  FormatDateTime('ddddd', Date) + ' Message.rtf', TEncoding.UTF8);
        MessageList.Items.Clear;
      end;
    end;
  except
  end;
end;

Not: TEncoding.UTF8 ekledim, kaldırırsam bu seferde Çince ekranı geliyor

[G.Arkas]

Word ile mi açmaya çalışıyorsun acaba?

[brs]

Word ile mi açmaya çalışıyorsun acaba?

evet, .txt kaydedince sorun yok.

[G.Arkas]

Word ile mi açmaya çalışıyorsun acaba?

evet, .txt kaydedince sorun yok.

RichEdit kullanarak denersen büyük ihtimalle sorunun düzelecektir. ListBox .rtf düzeninde doğrudan kaydedemeyebilir. Bunun için RichEdit kullanıyoruz. Doğrudan rtf çıktısı alır. (Zengin Metin)

[brs]

Teşekkür ederim...