VPF::TString в TMemoField и обратно - Форум программистов

OVT

Дата 29.8.2006, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 29.8.2006

Репутация: нет
Всего: нет

Коллеги! Нужна пара процедур (функций), копирующих TString в TMemoField и обратно. Обратных примеров TMemoField в TString нашел множество, например:

Код


function TfmMain.GetMemo(TheField: TMemoField) : String;
// Копирует TMemoField в строку длиной до 255 символов
var
 BS : TBlobStream;
 BufSize : Integer;
begin
  if TheField.IsNull then
    Result := ''
  else begin
    BS := TBlobStream.Create(TheField, bmRead);
    BufSize := BS.Size;
    if BufSize > 255 then
      BufSize := 255;
    try
      if BufSize > 0 then begin
        SetLength(Result, BufSize);
        BS.Read(Result[1], BufSize);
      end
      else
        Result := '';
    finally
      BS.Free;
    end;
{    while Pos(#10, Result) >  0 do
      Result[Pos(#10, Result)] := ' ';
    while Pos(#13, Result) >  0 do
      Result[Pos(#13, Result)] := ' ';}
  end;
end;

, а вот прямого не обнаружил. Пытаюсь делать так:

Код


procedure TfmMain.PutMemo(TheField: TMemoField; TheString: String);
var
  BS : TBlobStream;
  BufSize : Integer;
  Buffer : PChar;
begin
  if Not TheField.IsNull then begin
    BS := TBlobStream.Create(TheField, bmWrite);
    BufSize := Length(TheString);
    Buffer := AllocMem(BufSize);
    StrPCopy(Buffer, TheString);
    try
      BS.Write(Buffer, BufSize);
    finally
      BS.Free;
      FreeMem(Buffer);
    end;
  end;
end;

но при строке нулевой длины - ошибки аллокации. Если дополнять Buffer нулем (#0) в стиле PChar, то последний попадает в TMemoField и в последствии будет (?) читаться в строку.
Если поправите мой код, или предложите свой - буду премного благодарен!
Спасибо!

P.S. D6, BDE, MS-SQL 2000

SergeBS

Дата 30.8.2006, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

OVT,

Цитата

но при строке нулевой длины - ошибки аллокации.

Писать строку нулевой длины - значит ничего не писать. А для очистки есть метод clear.

OVT

Дата 30.8.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 29.8.2006

Репутация: нет
Всего: нет

Я бы сказал так: писать строку нулевой длины - значит очистить поле. Я заметил, что если TMemoField в записи БД пусто, то TheField.IsNull истинно. Правильно ли я понимаю, что очистить поле примечания в БД можно так: TheField.Clear?

SergeBS

Дата 30.8.2006, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

OVT,

Цитата

Правильно ли я понимаю, что очистить поле примечания в БД можно так: TheField.Clear?

Да.

OVT

Дата 30.8.2006, 17:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 29.8.2006

Репутация: нет
Всего: нет

SergeBS,

Спасибо!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »