Форум: "Основная";
Текущий архив: 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.009 c