Witam!
Próbuje sobie zrobić taki chat zabym sobie z qumplem mógł pogadać:)
Więc mam taką opcję zapisywania tekstu do pliku *.tch
Procedura
if (ZapiszKanal.Execute) then
Kanal.Lines.SaveToFile(ZapiszKanal.FileName);
I wczytywania do nowej formy o nazwie archiwum
Procedura
Archiwum.Show;
if (Open.Execute) then
Archiwum.Memo1.Lines.LoadFromFile(Open.FileName);
Wszystko by było dobrze tylko że gdy zapisze sobie rozmowę i spróbuje ją wczytać to mam coś takiego:
{rtf1ansiansicpg1250deff0deftab720{fonttbl{f0fnil MS Sans Serif;}{f1fromanfcharset2 Symbol;}{f2fswissfcharset238 Verdana;}{f3fswissfcharset238 Verdana;}}
{colortblred0green0blue0;red128green128blue128;red60green194blue109;}
deflang1045pardplainf3fs16 TeCHAT wersja 1.0b
par _________________________________________________________
par [CHAT] Witaj na chacie...
par [CHAT] Je'9cli chcesz wej'9c'e6 do rozmowy zmie'f1 sw'f3j status na dost'eapny...
par
par plainf3fs16cf1 plainf3fs16cf2 htplainf3fs16cf1
par [CHAT] plainf3fs16cf2 ~Chatownik 9plainf3fs16cf1 Jest dost'eapny/na
par plainf3fs16cf2 hhhhhhhhhplainf3fs16
par }
Co zrobić, aby wszytko było czytelne bez tych różnych znaczków ?