Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Вниз

Таблица с полем в виде 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]

код покажи

---

← →
Amoeba   (2004-02-18 16:08) [9]

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

Не слабо!!!

---

← →
Romkin   (2004-02-18 16:09) [10]

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

---

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

Romkin

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.02.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.011 c