ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот как отобразить в DBGrid содержимое мемо. Случайно нашел в ФАКе
Цитата:
implementation
{$R *.DFM}
function GrabMemoAsString(TheField: TMemoField): string;
var
Buffer: PChar;
MemSize: Integer;
begin
if TheField.IsNull then
Result := ''
else
with TBlobStream.Create(TheField, bmRead) do
begin
MemSize := Size;
Inc(MemSize); {Make room for the buffer's null terminator.}
Buffer := AllocMem(MemSize); {Allocate the memory.}
Read(Buffer^,MemSize);
Free;
Result:=Buffer;
FreeMem(Buffer, MemSize);
while Pos(#10, Result) > 0 do
Result[Pos(#10, Result)] := ' ';
while Pos(#13, Result) > 0 do
Result[Pos(#13, Result)] := ' ';
end;
end;
procedure TForm1.Table1NotesGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text := GrabMemoAsString(TMemoField(Sender));
end;
|
на С думаю сможешь сам перевести  Правда весь текст в одну строку, но это лучше чем надпись Мемо.
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
). Посмотри у себя начинку используемых баз, там гденить естьмемо?