Q&A
- DBGrid Memofield로 내용 출력하기..
DBGrid에 Memo필드의 내용 출력하기 예제(아래의 소스)의 DatabaseName은 'DBDEMOS'이고 TableName은 'BIOLIFE.DB' 입니다
여기서DBgrid1drawdatacell 이벤트는 어떤 것이고 Table1Notes: TMemoField에서 TMemoField는 컴포넌트입니까. 아무리 찾아봐도 저한태는 없는것 같고 또한 Memofield로 원하는 데이터를 어떻게 넣는지 궁금합니다.또한 이래의 소스를 실행하면 table1notes:TmemoField가 폼에서 사용되진않은 (혹 선언되지 않은)것이 라고 에러가 뜨는데요?왜인가요?
그리고 프로시저에서 더이상진행이 않되는데 이유가 뭔가여?
//
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids,DBGrids,Db,DBTables, StdCtrls;
type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1Notes: TMemoField;
Button1: TButton;
procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
MAX_CHARSIZE = 50;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
P: array [0..MAX_CHARSIZE] of char;
BS: TBlobStream;
S: String;
begin
if Field is TMemoField then
begin
with (Sender as TDBGrid).Canvas do
begin
{Table1Notes 은 TMemoField 형입니다}
BS := tBlobStream.Create(Table1Notes, bmRead);
FillChar(P,SizeOf(P),#0);
BS.Read(P, MAX_CHARSIZE); {blobStream 에서 MAX_CHARSIZE 바이트만큼 읽는다}
BS.Free;
S := StrPas(P);
while Pos(#13, S) > 0 do {CR 문자 제거}
S[Pos(#13, S)] := ' ';
while Pos(#10, S) > 0 do {LF 문자 제거}
S[Pos(#10, S)] := ' ';
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, S);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
여기서DBgrid1drawdatacell 이벤트는 어떤 것이고 Table1Notes: TMemoField에서 TMemoField는 컴포넌트입니까. 아무리 찾아봐도 저한태는 없는것 같고 또한 Memofield로 원하는 데이터를 어떻게 넣는지 궁금합니다.또한 이래의 소스를 실행하면 table1notes:TmemoField가 폼에서 사용되진않은 (혹 선언되지 않은)것이 라고 에러가 뜨는데요?왜인가요?
그리고 프로시저에서 더이상진행이 않되는데 이유가 뭔가여?
//
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids,DBGrids,Db,DBTables, StdCtrls;
type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1Notes: TMemoField;
Button1: TButton;
procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
MAX_CHARSIZE = 50;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
var
P: array [0..MAX_CHARSIZE] of char;
BS: TBlobStream;
S: String;
begin
if Field is TMemoField then
begin
with (Sender as TDBGrid).Canvas do
begin
{Table1Notes 은 TMemoField 형입니다}
BS := tBlobStream.Create(Table1Notes, bmRead);
FillChar(P,SizeOf(P),#0);
BS.Read(P, MAX_CHARSIZE); {blobStream 에서 MAX_CHARSIZE 바이트만큼 읽는다}
BS.Free;
S := StrPas(P);
while Pos(#13, S) > 0 do {CR 문자 제거}
S[Pos(#13, S)] := ' ';
while Pos(#10, S) > 0 do {LF 문자 제거}
S[Pos(#10, S)] := ' ';
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, S);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이승윤
- •
- 1999.06.07 22:27
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•1999.06.07 23:48이승윤 께서 말씀하시기를... > SQLServer7.0을 처음 사용합니다. > 서버에 설치된 DB를 디스켓으로 받아...
-
- 초보
- •
- 1999.06.07 22:06
- 6 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.06.08 00:46
-
초보•1999.06.09 02:39
-
초보•1999.06.09 02:44
-
안치봉•1999.06.09 03:26
-
초보•1999.06.09 19:14
-
안치봉•1999.06.09 19:24
-
- 권인혁
- 1999.06.07 19:42
- 0 COMMENTS
- /
- 0 LIKES
-
- chobo
- •
- 1999.06.07 19:31
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.06.07 20:06chobo 께서 말씀하시기를... > > 폼에 이미지 컴포넌트를 넣고 > 이미지를 불러 들였습니다만, > >...
-
- 세림
- •
- 1999.06.07 19:28
- 1 COMMENTS
- /
- 0 LIKES
-
안치봉•1999.06.08 00:35세림 께서 말씀하시기를... > 간단한 웹서버 응용을 테스트하고 있는데 > 처음에는 익스플러어에서 실행...
-
- 성관
- •
- 1999.06.07 19:04
- 1 COMMENTS
- /
- 0 LIKES
-
델사랑•1999.06.07 19:45성관 께서 말씀하시기를... > 안녕하세요.. > 날씨가 무척이나 무덥지요,,,,, > 무더운 여름을 잘 보내...
-
- 조진희
- •
- 1999.06.07 18:51
- 2 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.06.11 02:15조진희 께서 말씀하시기를... > 안녕들 하셨어요.. > 저희가 입력된 데이타 수정작업을 하려던 중에 dggr...
-
초보•1999.06.12 20:25박성훈 께서 말씀하시기를... > dbgrid를 선택하신 곳이 현재 레코드의 위치가 됩니다. 그러니까 사원테...
-
- 정성호
- •
- 1999.06.07 18:47
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.06.07 20:01정성호 께서 말씀하시기를... > 안녕하세요.. 많은 도움을 받고 있는 신삥입니당... > 쩝 전 도와드릴 일...
-
- 김재휘
- 1999.06.07 17:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 김재휘
- 1999.06.07 17:34
- 0 COMMENTS
- /
- 0 LIKES
-
- Hans
- 1999.06.07 12:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 조종탁
- 1999.06.07 08:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 이영호
- 1999.06.06 11:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영남
- •
- 1999.06.06 02:01
- 2 COMMENTS
- /
- 0 LIKES
-
류성호•1999.06.07 20:11설치 프로그램을 만들어 주는 인스톨쉴드 프로그램은 여러가지가 있습니다. Windows용 설치프로그램 말고...
-
이정욱•1999.06.06 04:19델파이 헬프에서 'Distributable Files'라는 색인으로 보세요. 이부분이 글씨가 작아서 잘 안보이니 인쇄...
-
- 희
- •
- 1999.06.05 23:45
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•1999.06.07 08:58희 께서 말씀하시기를... > 델파이에서 내장프로시저를 사용할때 한 묶음의 결과값을 얻고자 할때는 어떻...
-
- 황영일
- 1999.06.05 20:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 이현신
- •
- 1999.06.05 19:23
- 3 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.06.05 20:12무슨 말씀이신지...? 다시 정확히 질문 바랍니다. 이현신 께서 말씀하시기를... > 윈도우에서 특정 폴...
-
이현신•1999.06.05 22:30이정욱 께서 말씀하시기를... > 무슨 말씀이신지...? 다시 정확히 질문 바랍니다. 그러니깐 PC '내 컴...
-
김태균•1999.06.07 17:49이현신 께서 말씀하시기를... > 이정욱 께서 말씀하시기를... > > 무슨 말씀이신지...? 다시 정확히 질문...
-
- 한 재
- •
- 1999.06.05 17:33
- 1 COMMENTS
- /
- 0 LIKES
DBGrid에 Memo필드의 내용 출력하기 예제(아래의 소스)의 DatabaseName은 'DBDEMOS'이고 TableName은 'BIOLIFE.DB' 입니다 여기서DBgrid1drawdatacell 이벤트는 어떤 것이고 Table1Notes: TMemoField에서 TMemoField는 컴포넌트입니까. 아...-
전철호•1999.06.07 20:11한 재 께서 말씀하시기를... > DBGrid에 Memo필드의 내용 출력하기 예제(아래의 소스)의 DatabaseName은 '...
-
- 하명훈
- 1999.06.05 10:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 조성윤
- •
- 1999.06.05 08:08
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•1999.06.07 18:01조성윤 께서 말씀하시기를... > DBComboBox에서 item추가를 1개 필드의 전체 레코드값을 집어너어 리스트...
> DBGrid에 Memo필드의 내용 출력하기 예제(아래의 소스)의 DatabaseName은 'DBDEMOS'이고 TableName은 'BIOLIFE.DB' 입니다
> 여기서DBgrid1drawdatacell 이벤트는 어떤 것이고 Table1Notes: TMemoField에서 TMemoField는 컴포넌트입니까. 아무리 찾아봐도 저한태는 없는것 같고 또한 Memofield로 원하는 데이터를 어떻게 넣는지 궁금합니다.또한 이래의 소스를 실행하면 table1notes:TmemoField가 폼에서 사용되진않은 (혹 선언되지 않은)것이 라고 에러가 뜨는데요?왜인가요?
> 그리고 프로시저에서 더이상진행이 않되는데 이유가 뭔가여?
>
> //
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Grids,DBGrids,Db,DBTables, StdCtrls;
>
> type
> TForm1 = class(TForm)
> Table1: TTable;
> DataSource1: TDataSource;
> DBGrid1: TDBGrid;
> Table1Notes: TMemoField;
> Button1: TButton;
> procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
> Field: TField; State: TGridDrawState);
> procedure FormCreate(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
> const
> MAX_CHARSIZE = 50;
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
> procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
> Field: TField; State: TGridDrawState);
> var
> P: array [0..MAX_CHARSIZE] of char;
> BS: TBlobStream;
> S: String;
> begin
> if Field is TMemoField then
> begin
> with (Sender as TDBGrid).Canvas do
> begin
> {Table1Notes 은 TMemoField 형입니다}
> BS := tBlobStream.Create(Table1Notes, bmRead);
> FillChar(P,SizeOf(P),#0);
>
> BS.Read(P, MAX_CHARSIZE); {blobStream 에서 MAX_CHARSIZE 바이트만큼 읽는다}
> BS.Free;
> S := StrPas(P);
> while Pos(#13, S) > 0 do {CR 문자 제거}
> S[Pos(#13, S)] := ' ';
> while Pos(#10, S) > 0 do {LF 문자 제거}
> S[Pos(#10, S)] := ' ';
> FillRect(Rect);
> TextOut(Rect.Left, Rect.Top, S);
> end;
> end;
> end;
>
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>
> end;
>
> end.
>
제 홈페이지에 가서 보시면 메모,그림을 화면에 디스프레이 하는
디비그리드 콤포넌트 소스가 있으니 참고하세요.
홈페이지 주소(http://my.netian.com/~jeon0813)