Таблица с полем в виде memo

← →
RUS (2004-02-16 10:23) [0]

Как добавить в поле таблицы типа memo текст из memo или Richedit?

← →
Семен Сорокин © (2004-02-16 10:58) [1]

Memo.Lines.SaveToStream
TMemoField.LoadFromStream

← →
RUS (2004-02-17 09:17) [2]

Можно немного поподробнее?

← →
Семен Сорокин © (2004-02-17 11:04) [3]

RUS (17.02.04 09:17) [2]
Можно немного поподробнее?
Так в Help"е же все есть:

The following example copies the data in the Notes field of Table1 or SQLDataSet1 to the Remarks field of ClientDataSet1.

procedure TForm1.Button1Click(Sender: TObject);

var
Stream1: TBlobStream;
Stream2: TStream;
begin
Stream1 := TBlobStream.Create(Table1Notes, bmRead);
try
ClientDataSet1.Edit;
{ here’s a different way to create a blob stream }
Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName("Remarks"), bmReadWrite);
try
Stream2.CopyFrom(Stream1, Stream1.Size);
ClientDataSet1.Post;
finally
Stream2.Free;
end;

finally
Stream1.Free;
end;
end;

← →
TUser © (2004-02-17 12:02) [4]

Надо встроить Memo в таблицу. Это делается примерно так
var Form1: TForm1; Memo1:Tmemo; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin memo1:=TMemo.Create(Application); with memo1 do begin parent:=StringGrid1; left:=stringgrid1.ColWidths[0]+2; top:=stringgrid1.RowHeights[0]+2; width:=stringgrid1.ColWidths[1]; height:=stringgrid1.RowHeights[1]; end; end; procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin if (Acol=1) and (ARow=1) then with memo1 do begin left:=stringgrid1.ColWidths[0]+2; top:=stringgrid1.RowHeights[0]+2; width:=stringgrid1.ColWidths[1]; height:=stringgrid1.RowHeights[1]; end; end;
Только надо поаккуратнее границы прописать.

← →
RUS (2004-02-18 15:39) [5]

Не получается загрузить RichEdit.lines в поток. Выдается ошибка (abstracterror).

← →
clickmaker © (2004-02-18 15:43) [6]

> RUS (18.02.04 15:39) [5]
> Не получается загрузить RichEdit.lines в поток. Выдается
> ошибка (abstracterror).

Создаешь просто TStream? Это абстрактный класс

← →
RUS (2004-02-18 16:04) [7]

Пробовал создавать как TStream так и TBlobStream. В обоих случаях текст в поток не загружается

← →
clickmaker © (2004-02-18 16:06) [8]

> RUS (18.02.04 16:04) [7]

код покажи

> Пробовал создавать как TStream

Не слабо!!!

Ужас... FieldByName("MyLovelyMemo").asString := memo1.Lines.Text;

← →
RUS (2004-02-18 16:51) [11]

Romkin

Спасибо!!! То что надо!

Таблица с полем в виде memo Найти похожие ветки