Q&A
- 동적생성에 관해 다시 질문드립니다. 제발 도와주세요...
델파이4, win98
Table1을 open하고 preview를 했을때 레코드에 따라 QRLabel을
로 동적생성하여 test.dat에 있는 내용을 찍어 주는 프로그램 입니다.
레코드가 이동하면 QLabel을 Free 시키고,
다시 QLabel로 내용을 찍어 주려고 합니다.
QLabel.Free 부분에서 에러가 나는데 제대로 소멸시키고 생성하는
방법이 없을까요? 고수님들의 도움 부탁드립니다.
<< 소스 >>
type
TForm1= class(TForm)
QuickRep1: TQuickRep;
QRBand2: TQRBand;
DetailBand1: TQRBand;
Table1: TTable;
QRL_No1: TQRLabel;
QRL_No2: TQRLabel;
QRL_No3: TQRLabel;
:
:
QRL_No18: TQRLabel;
QRL_No19: TQRLabel;
QRL_No20: TQRLabel;
:
private
{ Private declarations }
T_file : string;
In_File : TextFile;
Str : string;
L_cn : integer;
procedure Title_Sentence(Sentence:String; LineNo:integer);
:
var
Form1 : TForm1;
QLabel : TQRLabel;
QR_number : TQRLabel;
implementation
{$R *.DFM}
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
Sentence : String;
LineNo : integer;
begin
if Assigned(QLabel) then
begin
QLabel.Free;
QLabel := nil;
end;
:
:
T_file := 'test.dat';
if Fileexists(T_file) = True then
Begin
AssignFile(In_File, T_File);
Reset(In_file);
while not Eof(In_File) do
begin
Readln(In_File,Str);
if copy(str,1,1) = Table1.Fields[0].asstring then
Title_Sentence(str, l_cn);
l_cn := l_cn + 1;
end;
CloseFile(In_file);
end;
end;
procedure TForm1.Title_Sentence(Sentence:String; LineNo:integer);
begin
QR_number := TQRLabel(FindComponent('QRL_No' + inttostr(LineNo)));
QLabel := TQRLabel(DetailBand1.FindComponent('QP_' + inttostr(LineNo)));
if not Assigned(QLabel) then
begin
QLabel := TQRLabel.create(DetailBand1);
with QLabel do
begin
enabled := false;
name := 'QP_'+ inttostr(LineNo);
parent := DetailBand1;
caption := Sentence;
left := 15;
top := TQRLabel(QR_number).Top ;
width := 140;
height := 40;
autosize := false;
wordwrap := true;
enabled := true;
end;
end;
end;
Table1을 open하고 preview를 했을때 레코드에 따라 QRLabel을
로 동적생성하여 test.dat에 있는 내용을 찍어 주는 프로그램 입니다.
레코드가 이동하면 QLabel을 Free 시키고,
다시 QLabel로 내용을 찍어 주려고 합니다.
QLabel.Free 부분에서 에러가 나는데 제대로 소멸시키고 생성하는
방법이 없을까요? 고수님들의 도움 부탁드립니다.
<< 소스 >>
type
TForm1= class(TForm)
QuickRep1: TQuickRep;
QRBand2: TQRBand;
DetailBand1: TQRBand;
Table1: TTable;
QRL_No1: TQRLabel;
QRL_No2: TQRLabel;
QRL_No3: TQRLabel;
:
:
QRL_No18: TQRLabel;
QRL_No19: TQRLabel;
QRL_No20: TQRLabel;
:
private
{ Private declarations }
T_file : string;
In_File : TextFile;
Str : string;
L_cn : integer;
procedure Title_Sentence(Sentence:String; LineNo:integer);
:
var
Form1 : TForm1;
QLabel : TQRLabel;
QR_number : TQRLabel;
implementation
{$R *.DFM}
procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var
Sentence : String;
LineNo : integer;
begin
if Assigned(QLabel) then
begin
QLabel.Free;
QLabel := nil;
end;
:
:
T_file := 'test.dat';
if Fileexists(T_file) = True then
Begin
AssignFile(In_File, T_File);
Reset(In_file);
while not Eof(In_File) do
begin
Readln(In_File,Str);
if copy(str,1,1) = Table1.Fields[0].asstring then
Title_Sentence(str, l_cn);
l_cn := l_cn + 1;
end;
CloseFile(In_file);
end;
end;
procedure TForm1.Title_Sentence(Sentence:String; LineNo:integer);
begin
QR_number := TQRLabel(FindComponent('QRL_No' + inttostr(LineNo)));
QLabel := TQRLabel(DetailBand1.FindComponent('QP_' + inttostr(LineNo)));
if not Assigned(QLabel) then
begin
QLabel := TQRLabel.create(DetailBand1);
with QLabel do
begin
enabled := false;
name := 'QP_'+ inttostr(LineNo);
parent := DetailBand1;
caption := Sentence;
left := 15;
top := TQRLabel(QR_number).Top ;
width := 140;
height := 40;
autosize := false;
wordwrap := true;
enabled := true;
end;
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 사가96
- •
- 2001.12.05 03:39
- 1 COMMENTS
- /
- 0 LIKES
-
민주사랑•2001.12.05 23:25메일주소를 아래와 같이 해주시면 outlook으로 나타날것입니다. 메일주소는 그리드에 나타난 string값이...
-
- 초보
- •
- 2001.12.05 03:37
- 1 COMMENTS
- /
- 0 LIKES
-
무니스•2001.12.06 03:49초보 wrote: > 안녕 하십니까 아침부터 종일 얼굴이 벌개졌습니다. > SQL Server 7.0을 ODBC로 연결해서 ...
-
- 초보
- •
- 2001.12.05 03:36
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.12.05 05:53초보 wrote: > 동적으로 Editbox를 10개정도 생성했습니다. > 그런데 문제는 맨 처음 생성한 Editbox로 F...
-
- 어린왕자A
- 2001.12.05 03:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보허접
- 2001.12.05 05:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 똘망울
- 2001.12.05 02:28
- 0 COMMENTS
- /
- 0 LIKES
-
- Alfred
- •
- 2001.12.05 02:18
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.05 02:44안녕하세요. 최용일입니다. 다른건 다 문제가 없는데 비트맵리소스 읽는데 문제가 있는거 같네요... ...
-
- 미치겠능기라
- 2001.12.05 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 천상천하
- •
- 2001.12.05 02:08
- 1 COMMENTS
- /
- 0 LIKES
델파이4, win98 Table1을 open하고 preview를 했을때 레코드에 따라 QRLabel을 로 동적생성하여 test.dat에 있는 내용을 찍어 주는 프로그램 입니다. 레코드가 이동하면 QLabel을 Free 시키고, 다시 QLabel로 내용을 찍어 주려고 합니다. ...-
전철호•2001.12.05 23:25천상천하 wrote: > 델파이4, win98 > > Table1을 open하고 preview를 했을때 레코드에 따라 QRLabel을 ...
-
- 복숭아
- 2001.12.05 01:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 버섯
- •
- 2001.12.05 01:39
- 1 COMMENTS
- /
- 0 LIKES
-
버섯•2001.12.05 02:14버섯 wrote: > 여태꺼정 데이터베이스관련 프로그래을 많이 만들었지만.. 이런경우는 첨이네여 > > (가...
-
- ranger
- 2001.12.05 01:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이 초보
- 2001.12.05 00:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 지키미
- •
- 2001.12.05 00:08
- 1 COMMENTS
- /
- 0 LIKES
-
용이....•2001.12.05 06:19BDE를 거치지 않고 오라클과 연결하려면... ADO를 사용하면 될것 같네여... ADO와 오라클 연결 방법은 ...
-
- 김종운
- 2001.12.04 23:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 초짜 올림
- 2001.12.04 23:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 호성이
- •
- 2001.12.04 22:47
- 1 COMMENTS
- /
- 0 LIKES
-
서동혁•2001.12.07 23:39호성이 wrote: > winzeos의 postgressql콤포넌트를 사용해서 프로젝트를 하는데 > sql을 연결하는데 자꾸...
-
- 이슬이
- 2001.12.04 21:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2001.12.04 21:00
- 0 COMMENTS
- /
- 0 LIKES
-
- activex
- •
- 2001.12.04 20:40
- 3 COMMENTS
- /
- 0 LIKES
-
서철기•2001.12.04 22:58가능합니다. 저도 얼마 전 고생 고생 하면서 성공했슴다.. 우선 Object ID가 필요하고. 자바 스크립트...
-
activex•2001.12.04 23:45염치불구하구 또 ... ocx에서 자바스크립트 함수를 호출할 수 있을까요?.. 도와주세요...이전에 것은 성...
-
서철기•2001.12.05 00:26저는 html -> active form으로 파라메터를 넘기고 반대로 active form -> html로 파라메터 넘기는 작업만 ...
> 델파이4, win98
>
> Table1을 open하고 preview를 했을때 레코드에 따라 QRLabel을
>
> 로 동적생성하여 test.dat에 있는 내용을 찍어 주는 프로그램 입니다.
>
> 레코드가 이동하면 QLabel을 Free 시키고,
>
> 다시 QLabel로 내용을 찍어 주려고 합니다.
>
> QLabel.Free 부분에서 에러가 나는데 제대로 소멸시키고 생성하는
>
> 방법이 없을까요? 고수님들의 도움 부탁드립니다.
>
>
>
> << 소스 >>
>
> type
> TForm1= class(TForm)
> QuickRep1: TQuickRep;
> QRBand2: TQRBand;
> DetailBand1: TQRBand;
> Table1: TTable;
> QRL_No1: TQRLabel;
> QRL_No2: TQRLabel;
> QRL_No3: TQRLabel;
>
> :
> :
>
> QRL_No18: TQRLabel;
> QRL_No19: TQRLabel;
> QRL_No20: TQRLabel;
>
> :
> private
> { Private declarations }
> T_file : string;
> In_File : TextFile;
> Str : string;
> L_cn : integer;
> procedure Title_Sentence(Sentence:String; LineNo:integer);
> :
>
> var
> Form1 : TForm1;
> QLabel : TQRLabel;
> QR_number : TQRLabel;
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
> var
> Sentence : String;
> LineNo : integer;
> begin
> if Assigned(QLabel) then
> begin
> QLabel.Free;
> QLabel := nil;
> end;
>
> :
> :
>
> T_file := 'test.dat';
> if Fileexists(T_file) = True then
> Begin
> AssignFile(In_File, T_File);
> Reset(In_file);
> while not Eof(In_File) do
> begin
> Readln(In_File,Str);
> if copy(str,1,1) = Table1.Fields[0].asstring then
> Title_Sentence(str, l_cn);
>
> l_cn := l_cn + 1;
> end;
> CloseFile(In_file);
> end;
>
> end;
>
> procedure TForm1.Title_Sentence(Sentence:String; LineNo:integer);
> begin
> QR_number := TQRLabel(FindComponent('QRL_No' + inttostr(LineNo)));
>
> QLabel := TQRLabel(DetailBand1.FindComponent('QP_' + inttostr(LineNo)));
>
> if not Assigned(QLabel) then
> begin
> QLabel := TQRLabel.create(DetailBand1);
> with QLabel do
> begin
> enabled := false;
> name := 'QP_'+ inttostr(LineNo);
> parent := DetailBand1;
> caption := Sentence;
> left := 15;
> top := TQRLabel(QR_number).Top ;
> width := 140;
> height := 40;
> autosize := false;
> wordwrap := true;
> enabled := true;
> end;
> end;
> end;
// QLabel을 처음에 초기화로
// QLabel := nil; 로 준 다음
// 다음 부분을 이렇게 바꿔보세요..
if QLabel <> nil then <- if Assigned(QLabel) then
begin
QLabel.Free;
QLabel := nil;
end;