프로그래밍 노트

함수에서 동적 배열과 정적 배열을 파라미터로 넘기는 방법 unit uMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; Button2: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } // 정적 배열형 선언 type TArrVal = array[0..9] of Integer; function Static..

함수의 고무줄 파리미터 초간단 예제 #include #include void testit ( int i, ...) { va_list argptr; int n; // 가변 인수 수의 초기화 va_start(argptr, i); if ( i == 5 ) { for(int j = 0; j < i; j++) { // 다음 인수 얻기 n = va_arg( argptr, int ); printf( "%d\n", n ); } } else { char *s = va_arg( argptr, char* ); printf( "%s\n", s); } // 가변 인수 수의 리셋 va_end(argptr); } int main() { testit( 5, 12, 34, 56, 78, 90 ); testit( 1, "TEST" );..

델파이에서의 VB의 ByRef같이 참조로 변수를 넘기는 방법 unit Unit1; interface uses Forms, StdCtrls, Controls, Classes; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private procedure RefParam(var sParam : string); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var sTest : string; begin sTest := ''; RefParam(sTest); Button1.Capt..

숫자 변수를 참조 파라미터로 넘기는 간단한 C의 DLL 소스 extern "C" { // Integer 인수를 참조로 넘겨주기 int PASCAL EXPORT NumChg(int& nChg) { nChg = nChg * 2; return nChg; } } DLL에서 숫자 변수를 참조 파라미터로 넘기려며는 참조 파라미터로 넘기는 파라미터 앞에 var를 넣으면 된다. 숫자 변수를 참조 파라미터로 넘기고 받는 델파이 소스 unit dtest; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Char..

문자열 넘기고 받는 간단한 C의 DLL 소스 char szTemp[50]; extern "C" { // DLL 문자열 인수 입력 BOOL PASCAL EXPORT SetStr(char *pszSend) { sprintf(szTemp, "%s", pszSend); return true; } // DLL 문자열 인수로 문자열 넘겨주기 BOOL PASCAL EXPORT GetStr(char *pszSend) { sprintf(pszSend, "%s + %s", szTemp , szTemp); return true; } } DLL에서 문자열을 주고 받기 위해서는 델파이에서 PChar형으로 문자를 DLL에 넘겨주고 받으면 된다. 문자열을 넘기고 받는 델파이 소스 unit dtest; interface uses W..