선언까지 하고 구현까지는 했으나....... 프로그램에서 전혀 사용하지 않는 심볼

이다 그런뜻인데요....... -.-;;



즉 함수나 프로시져를 만들어 놓기는 했는데.... 왜 만들어 놓고 사용하지를

않느냐는.... 힌트인것 같습니다....(사용하지도 않으면서 왜 만드냐..는거죠..^^;)



에러는 아니고 그냥 컴파일러가 알려주는것 입니다.



유경희 wrote:

> private에서 프로시저를 선언할때 보통 이벤트 같은 것은 클릭 해주면 저절로 프로시저가 만들어지는데 private으로 선언하면 그냥 프로시저를 선언하고 쓰면 되는지 궁금해서요

>

> 다음과 같은 에러가 발생했는데

>

> private symbol 'Qlist' declared but never used

>

> 가 어떤 의미인지 모르겠습니다. 제가 선언을 잘목해서 그런 건지 아니면....

>

> 함수나 프로시저를 만들때 비베처럼 이름만 지정해 주면 저절로 되는 기능이 있는지 궁금합니다.

저도 잘은 모르지만요,,에러상으로는 선언을 해놓고 사용하지 않는다는 것이네요(다아는 사실인가?? ^^;;)



프로시저 선언은 public이나 private에 선언하고(사용 범위에 따라서)

procedure 프로시저명;



그리고 코딩에서

TForm이름.프로시저명;

begin

~~~~~~

end;

사용하시면 되요......



답변이 되었는지 몰것네요.



유경희 wrote:

> private에서 프로시저를 선언할때 보통 이벤트 같은 것은 클릭 해주면 저절로 프로시저가 만들어지는데 private으로 선언하면 그냥 프로시저를 선언하고 쓰면 되는지 궁금해서요

>

> 다음과 같은 에러가 발생했는데

>

> private symbol 'Qlist' declared but never used

>

> 가 어떤 의미인지 모르겠습니다. 제가 선언을 잘목해서 그런 건지 아니면....

>

> 함수나 프로시저를 만들때 비베처럼 이름만 지정해 주면 저절로 되는 기능이 있는지 궁금합니다.

답변 감사합니다.



그럼 제가 선언은 제대로 한거로 볼 수 있나요?



선을 하고도 구현해서 나온 에러거든요?



선언부는 다음과 같고

type

TWebModuleQA = class(TWebModule)

TableQ: TTable;

TableA: TTable;

TableQQAID: TStringField;

TableQTITLE: TStringField;

TableQWRITER: TStringField;

TableQEMAIL: TStringField;

TableQCOUNT: TStringField;

TableQQUESTION: TMemoField;

TableQANSWERED: TStringField;

TableAQAID: TStringField;

TableATITLE: TStringField;

TableAWRITER: TStringField;

TableAEMAIL: TStringField;

TableACOUNT: TStringField;

TableAANSWER: TStringField;

procedure WebModuleQACreate(Sender: TObject);

procedure WebModuleQADefaultActAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);



private

procedure QList;

public

{ Public declarations }

end;



구현부입니다.



procedure TWebModuleQA.QList;

var

i : integer;

TempStr, TempNo : string;

begin

TableQ.Last ;

i := 0;

while (i
if TableQAnswered.AsString = '1' then

QAContent := QAContent + '답변'

+TableQQAID.AsString+''

else

QAContent := QAContent + '' + TableQQAID.AsString+'';

QAContent := QAContent + ''

+TableQWriter.AsString+'';

QAContent := QAContent + ''+TableQTitle.AsString + '';

QAContent := QAContent + ''+ TableQCount.AsString+'';

TableQ.prior;

i :=i + 1;

end;

if not TableQ.BOf then begin

TempNo := TableQQAID.AsString;

TempStr := '