сохранение текста из мемо

[BESS]

как сохранить текст из memo в ini файл
сохранять каждую строку как отдельный элемент не выход это очень медленно
знаю что есть в ини файле такая фишка как сохранить бинарный поток
как текст из мемо перегнать в поток а затем сохренить его в ini файле?

[KAMENYKA]

Memo1.Lines.SaveToFile();-это тебе не подайдёт???

[Noor]

Сообщение от KAMENYKA

Memo1.Lines.SaveToFile();-это тебе не подайдёт???

для ИНИ скорее всего не подойдет, а вот для текстового (с расширением ini) должно сработать !!!

Memo1.Lines.SaveToFile(путь файла ini);

Пример:

Memo1.Lines.SaveToFile('C:\test.ini');

[KAMENYKA]

Сообщение от Noor

для ИНИ скорее всего не подойдет, а вот для текстового (с расширением ini) должно сработать !!!

В чём принципиальная разница)))????

[Noor]

Все зависит от задачи. Если тебе просто нужно хранить текстовую инф-цию, то проще использовать пример выше. А если тебе нужно хранить определенные настройки там, то работай с ini. Ну и работать с ними нужно про разному.

Описание работы с ini
и тут еще

[BESS]

Сообщение от Noor

Все зависит от задачи. Если тебе просто нужно хранить текстовую инф-цию, то проще использовать пример выше. А если тебе нужно хранить определенные настройки там, то работай с ini. Ну и работать с ними нужно про разному.

Описание работы с ini
и тут еще

вот именно что там настройки а как запихноть текст мемо в поток а поток в ini ?

[BESS]

за гугль спасиго сам бы не догадался))) в лит-ре искал проблема в том ка загнать текст в поток

[Alter]

Давольно просто(так же можно и изображения сохранять):

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  s: TMemoryStream;
begin
  S:=TMemoryStream.Create;
  Ini:=TiniFile.Create(ExtractFilePath(ParamStr(0))+'demo.ini');
  //RichEdit1.Lines.SaveToStream(s);
    Memo1.Lines.SaveToStream(S);
    s.Seek(0, soFromBeginning);
    ini.WriteBinaryStream('Text', 'Record', S);
  ini.Free;
  s.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ini: TIniFile;
  s: TMemoryStream;
begin
  S:=TMemoryStream.Create;
  Ini:=TiniFile.Create(ExtractFilePath(ParamStr(0))+'demo.ini');
    ini.ReadBinaryStream('Text', 'Record', S);
  //RichEdit1.Lines.LoadFromStream(s);
    Memo1.Lines.LoadFromStream(S);
  ini.Destroy;
  s.Destroy;
end;

[BESS]

примного благодарен это то что нужно

Сообщение от Alter

Давольно просто(так же можно и изображения сохранять):

procedure TForm1.Button1Click(Sender: TObject);
var
  ini: TIniFile;
  s: TMemoryStream;
begin
  S:=TMemoryStream.Create;
  Ini:=TiniFile.Create(ExtractFilePath(ParamStr(0))+'demo.ini');
  //RichEdit1.Lines.SaveToStream(s);
    Memo1.Lines.SaveToStream(S);
    s.Seek(0, soFromBeginning);
    ini.WriteBinaryStream('Text', 'Record', S);
  ini.Free;
  s.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  ini: TIniFile;
  s: TMemoryStream;
begin
  S:=TMemoryStream.Create;
  Ini:=TiniFile.Create(ExtractFilePath(ParamStr(0))+'demo.ini');
    ini.ReadBinaryStream('Text', 'Record', S);
  //RichEdit1.Lines.LoadFromStream(s);
    Memo1.Lines.LoadFromStream(S);
  ini.Destroy;
  s.Destroy;
end;

с данныым способом нарисоваласт проблемка
при сохранении большого текста не может сохранить в файл

че делать?

[Alter]

и на сколько большой текст пытаетесь сохранить?