Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
6-94076
Yaro
2003-12-23 04:54
2004.02.29
Сетевые девайсы и их адреса...


1-93910
Yurasikombo
2004-02-15 17:58
2004.02.29
Как программно отключить и включить отображение рисунков IE


3-93775
kiril-
2004-02-04 10:31
2004.02.29
UPPER в Interbase


14-94140
Ru
2004-02-04 09:34
2004.02.29
Опрос общественного мнения ;)


14-94131
Думкин
2004-02-07 06:28
2004.02.29
С днем рождения! 7 февраля.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский