21

Re: Занесення даних в базу даних (Delphi)

var
  TempStream : TMemoryStream;
...
begin
  TempStream := TMemoryStream.Create;
  try:
    RichText1->Lines->SaveToStream(TempStream);
    {тут витягаєте з TempStream за допомогою Seek та Read ваш рядок і зберігаєте куди треба}
  finally:
    TempStream.Free;
end;

SaveToFile/SaveToStream/LoadFromFile/LoadFromStream зберігають текст в форматі RTF або іншому, там можна писати власні конвертери (якщо властивість PlainText виставлена в true).

І дуже прошу, не давайте змінним такі особливі назви ("особливі" я тут вживаю у тому ж сенсі, що й "особливі діти").

Подякували: Romanvolja1

22

Re: Занесення даних в базу даних (Delphi)

koala написав:
var
  TempStream : TMemoryStream;
...
begin
  TempStream := TMemoryStream.Create;
  try:
    RichText1->Lines->SaveToStream(TempStream);
    {тут витягаєте з TempStream за допомогою Seek та Read ваш рядок і зберігаєте куди треба}
  finally:
    TempStream.Free;
end;

SaveToFile/SaveToStream/LoadFromFile/LoadFromStream зберігають текст в форматі RTF або іншому, там можна писати власні конвертери (якщо властивість PlainText виставлена в true).

Я правильно зрозумів? Дані потрібно занести в текстовийй файл потім їх витягнути та занести в базу даних??

koala написав:

І дуже прошу, не давайте змінним такі особливі назви ("особливі" я тут вживаю у тому ж сенсі, що й "особливі діти").

Добре

23

Re: Занесення даних в базу даних (Delphi)

Це не обов'язково має бути файл, і точно не текстовий, а RTF.

24

Re: Занесення даних в базу даних (Delphi)

Я погоджуюсь з koala, але я б замінив TMemoryStream на TStringStream, бо з нього набагато легше витягнути текст.

Подякували: koala, Romanvolja2

25

Re: Занесення даних в базу даних (Delphi)

Також можу додати, що в більшості баз даних є поля типу BLOB, куди можна зберігати будь-які бінарні дані.

Подякували: 0xDADA11C7, Romanvolja2