Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Сохранение потока в INI файле

Автор: Moris
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Сохранение потока в INI файле

Ответ на вопрос Igor__ © на форуме
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1031421953&n=0

Сохраним содержимое RichEdit в ini file c:\temp\demo.ini

Зависимости: IniFiles
Автор:       Kogaev Oleg (Moris), matrix@rbcmail.ru, ICQ:121008919
Copyright:   Kogaev Oleg (Moris)
Дата:        8 сентября 2002 г.
***************************************************** }

// Сохраним RichEdit в ini file c:\temp\demo.ini

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  s: TMemoryStream;
begin
  S := TMemoryStream.Create;
  Ini := TiniFile.Create('c:\temp\demo.ini');
  RichEdit1.Lines.SaveToStream(S);
  s.Seek(0, soFromBeginning);
  ini.WriteBinaryStream('1', '1', S);
  ini.Free;
  s.Free;
end;

//И прочетаем

procedure TForm1.Button2Click(Sender: TObject);
var
  ini: TIniFile;
  s: TMemoryStream;
begin
  S := TMemoryStream.Create;
  Ini := TiniFile.Create('c:\temp\demo.ini');

  ini.ReadBinaryStream('1', '1', S);
  RichEdit1.Lines.LoadFromStream(s);

  ini.Destroy;
  s.Destroy;
end;
Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.