Q&A

  • 전역변수 사용하기..?
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};

//판매수금데이타를 전역변수로 저장한다.
var
   m_Custno   : array[0..5] of integer;    //거래처번호
   m_Itemcd   : array[0..5] of String;     //물품코드
   m_ItemQty  : array[0..5] of Integer;    //판매수량
   m_RcvPrice : array[0..5] of Integer;    //수금액
   m_MaxCount : integer;                   //최대저장 Count (1 ~ 6)

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.



위에소스코딩보시면 Project1에 변수를 선언했습니다.
Form1, Form2에서 전역으로 사용할려고요...
근데 에러나네요? 머가 문제가 있나요?
전에 이렇게 하면 다른 모듈에서도 다 쓸수있다고 들은거 같은데..
빠른 답변 부탁드립니다... 별거아니지만 급하거든요
2  COMMENTS
  • Profile
    박준호.시나브로 2003.06.01 23:56
    이름이 같은분이 있었다니.. ^^ 반갑네여.. ㅋㅋㅋ

    새로운 Unit 을 하나 만들고 거기에 변수를 선언하구여

    각각 Unit 에서 Uses 절에 Unit 이름을 써줘도 될거 같네여... ^^

  • Profile
    최종민 2003.06.01 09:31
    그냥 Unit1에 변수 만들어 놓고...
    Unit2에서는...
    uses절에 Unit1넣고...
    그냥 쓰시면 되는데...
    굳이 이런 방법을 쓰셔야 하는 이유가 있나요?

    • 최종민
    • 2003.06.02 21:12
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2003.06.02 23:01
      안녕하세요. 최용일입니다. 동적배열, string모두 4바이트 포인터형입니다. 당근 SizeOf하면 4를 돌려주...
    • 약초꾼
    • 2003.06.02 21:05
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 최용일
      2003.06.02 23:26
      안녕하세요. 최용일입니다. 걍 IWebBrowser2인터페이스 얻어서 Navigate시켜주세요... uses절에 SHDocV...
    • 약초꾼
      2003.06.02 23:35
    • 김준영
    • 2003.06.02 21:04
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 신민수
      2003.06.02 22:44
    • 김준영
      2003.06.02 23:22
      ...
    • 강인규
      2003.06.02 23:30
      프로그램 추가제거에서 windows 구성요소 추가/제거를 보시면 IIS서비스 설치항목이 나옵니다. 윈도우 C...
    • 양윤정
    • 2003.06.02 20:58
    • 1 COMMENTS
    • /
    • 0 LIKES
    • yosule
      2003.06.03 03:11
      그냥 공란수만 구해서 찍어줍니까? 만일 정수형 3000 이라면 IntToStr(3000)  <--- 일단...
    • 빵빵빵
    • 2003.06.02 20:42
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 조경모
    • 2003.06.02 20:17
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 오병주
      2003.06.02 21:18
      그냥 쿼리 하시고 해당하는 필드에  DetailBand1BeforePrint 에다가 QRLabel.Caption :=...
    • 최병철
      2003.06.02 20:49
      참고하세요. 퀵레포트의 디테일밴드의 속성은 레코드에 대한 정보를 출력하는 속성이 있으므로 님이 ...
    • 조경모
      2003.06.02 20:59
    • 조경모
    • 2003.06.02 20:01
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 신연근
      2003.06.02 20:14
      아래소스 보시면 도움이 될껍니다. 참..Form에서 KeyPreview를 꼭 true하세요.. procedure TForm1.For...
    • 조경모
      2003.06.02 20:19
    • 조규춘
      2003.06.20 21:38
      까마귀님..   저 기억하실지.. 진짜루 오랫만이군요.. 여전히 "위대한 단군혼이 ...
    • yosule
      2003.06.03 03:15
      DirectSound를 공부해 보세요. 구현이 가능할 껍니다.
    • 미친코딩
      2003.06.02 18:25
      흐미....감사~! ^^*~ query문 잘못되었네요. select 일련번호 from munghang 이거 입니다. 파일명 db1...
    • 최용일
      2003.06.02 23:09
      안녕하세요. 최용일입니다. InstallShield홈페이지에 보시면 BDE Object Module있을겁니다. 그거 다운받...
    • 박준호
    • 2003.06.01 09:03
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 박준호.시나브로
      2003.06.01 23:56
      이름이 같은분이 있었다니.. ^^ 반갑네여.. ㅋㅋㅋ 새로운 Unit 을 하나 만들고 거기에 변수를 선언하구...
    • 최종민
      2003.06.01 09:31
      그냥 Unit1에 변수 만들어 놓고... Unit2에서는... uses절에 Unit1넣고... 그냥 쓰시면 되는데... 굳이...
    • 김성우
    • 2003.06.01 08:55
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 시그널웍스
      2003.06.02 06:56
      WinExec 함수를 사용하세요 예)   WinExec('notepad.exe', SW_SHOW); 단 실행하고자 하...
    • 그네
    • 2003.06.01 04:40
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 신연근
      2003.06.02 20:39
      델마당 강좌란에 퍼옵니다. 차근차근 공부하시면 될꺼 같습니다. 그럼 즐프하세요.. [강좌] TreeVi...
    • 민경배
    • 2003.05.31 23:09
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 박준철
    • 2003.05.31 21:11
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 시그널웍스
      2003.06.01 01:07
      ###,###,##0;0; 을 ###,###,##0;-###,###,##0; 와 같이 고쳐서 사용하세요 참고로 보통 ###,###,##0;(...
    • 박준철
      2003.06.02 19:28
      감사 합니다. 그런 방법을 몰랐군요 이렇게 해서..또하나 알았으니.. 얼마나 다행스럼 일입니까
    • 시그널웍스
      2003.06.01 01:15
      추가적으로 말씀드리면 ###,###,##0  으로만 파라메터를 설정해 쓰셔도 됩니다.
    • 배준영
    • 2003.05.31 11:14
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 김병윤
      2003.05.31 12:26
      디비는 뭐쓰시고? 뭘로 연결하시는지...? 그리고 연결할때 설정해준 값들이 어떤 것이 있었는지...? 뭐 ...
    • 배준영
      2003.05.31 21:43
      답변감사합니다. 파라독스 쓴거 맞구요.. 이 설정대루해서 학교에서 잘 돌아갔구요 집에와서 해보...
    • 최은하
    • 2003.05.31 10:42
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 김병윤
      2003.05.31 11:58
      파일 복사하시려는 건가요?? @0@ 아 ~ 잠온다.... procedure TForm1.Button1Click(Sender: TObject...
    • 최은하
    • 2003.05.31 08:57
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 김병윤
      2003.05.31 09:17
      msg가 버튼 이름이죠? 짧은 생각에는 msg가 버튼 이름이지 싶은데..^^;; 만약 버튼이름이라면 프로시져...
    • 최은하
      2003.05.31 10:01
      정말루 획기적은 해결법이네여!....... 전 한줄로 해결을 했는데.... 어찌하다보니 됬어여!! 근...