Следующая статья: Управление дисководом.
В версии Borland Delphi 3 Client/Server обнаружено, что при загрузке текста формата RTF методом LoadFromStream в компонент TRichEdit он не интерпретируется как RTF, а отображается полностью (со всеми управляющими символами). Ниже приведен исправленный текст реализации метода TRichEditStrings.LoadFromStream (измененные строки отмечены комментарием {!}):
procedure TRichEditStrings.LoadFromStream(Stream: TStream); var EditStream: TEditStream; position:Longint; TextType: Longint; StreamInfo: TRichEditStreamInfo; Converter: TConversion; begin StreamInfo.Stream:=Stream; if FConverter<>nil then Converter:=FConverter else Converter:=RichEdit.DefaultConverter.Create; StreamInfo.Converter:=Converter; try with EditStream do begin dwCookie:=LongInt(Pointer(@StreamInfo)); pfnCallBack:=@StreamLoad; dwError:=0; end; Position:=Stream.Position; if PlainText then TextType:=SF_TEXT else TextType:=SF_RTF; SendMessage(RichEdit.Handle, EM_STREAMIN, TextType, Longint(@EditStream)); if (TextType=SF_RTF) and (EditStream.dwError<>0) then begin Stream.Position:=Position; {!} if PlainText then TextType:=SF_TEXT {!} else TextType:=SF_RTF; SendMessage(RichEdit.Handle, EM_STREAMIN, TextType, Longint(@EditStream)); if EditStream.dwError<>0