안녕하세요
수고 많습니다.
궁금한 점이 있어서 이렇게 질문을 합니다.
아래 procedure... (const Acpt_Gb:intege)에서
여기에 있는 Const의미를 알고 싶습니다.
그리고 const 가 있는거와 없는것은 어떤 차이가 있는지 알고 싶습니다.
많은 답변을 부탁 드립니다.
그럼 수고 하세요
procedure TFInvoice.Ship_AmtExit(Sender: TObject);
begin
Total_Sum_GridCall(2);
end;
procedure TFInvoice.Total_Sum_Gridcall(const Acpt_Gb:integer);
var
j:integer;
begin
with kg1 do
if (DC.value <> 0) then
begin
for i:=1 to kg1.Rowcount - 1 do
begin
if Acpt_gb=2 then
NCells[10,i]:=NCells[21,i];
end;
end;
Const, var, out 3가지가 있습니다
뭐 말보다는..다음 예제를 들겠습니다
procedure test(const a:Integer; var b:Integer; out c:Integer);
begin
a := 100;
b := b+ 100;
c := 300;
end;
procedure button1click(sender);
var
a,b,c : integer;
begin
a := 10;
b := 20;
c := 0;
test( a, b, c );
showMessage( IntToStr(a)+'/'+IntToStr(b)+'/'+IntToStr(c));
end;
이렇게 보면..
결과가 10/120/300
이라고 나올겁니다
var는 C에서 포인터처럼.. 파라메터값을 받고 다시 돌려줄수 있죠
out은 리턴 전용입니다
const는 파라메터 입력 전용이죠. 아무리 procedure에서 값을 변경해도..
호출한 놈의 변수는 변동이 없습니다.
var는 procedure에서 값을 변경하면 호출한 놈의 변수도 변경되구요
정확한 의미는 책을 참고 하세요~ (설명보다..걍 예제가 도움이 될 것 같아서..허접하게 예를 들었습니다)
그럼..즐프하세요