Q&A
- 레코드형 변수 비교
type
TCd_User = record
strID_User : string[ 6]; // 사용자 ID // P1
strPwd_User : string[ 8]; // 사용자 PWD
strName_User : string[ 20]; // 사용자 이름
wAge_User : Word ; // 나이
end;
var
recCd_User : array[1..2] of TCd_User ;
위처럼 레코드 배열 두개를 선언하구요...
recCd_User[1] 와 recCd_User[2]가 똑같은 값이 들어 있는지 비교할려면 어케함 되져..
if recCd_User[1] <> recCd_User[2] then
ShowMessage('데이터가 변경되었습니다!');
일케 코딩하니깐 에러가 나네요...쩝...
TCd_User = record
strID_User : string[ 6]; // 사용자 ID // P1
strPwd_User : string[ 8]; // 사용자 PWD
strName_User : string[ 20]; // 사용자 이름
wAge_User : Word ; // 나이
end;
var
recCd_User : array[1..2] of TCd_User ;
위처럼 레코드 배열 두개를 선언하구요...
recCd_User[1] 와 recCd_User[2]가 똑같은 값이 들어 있는지 비교할려면 어케함 되져..
if recCd_User[1] <> recCd_User[2] then
ShowMessage('데이터가 변경되었습니다!');
일케 코딩하니깐 에러가 나네요...쩝...
2
COMMENTS
-
-
정말 큰 도움이 됐습니다... 꾸벅...
즐거운 일주일 되시고,
항상 건강하세요...^^
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> 이 경우는 CompareMem함수를 사용할수도 없고... 직접 필드 하나하나 비교하시는 수밖에 없을거 같군요... AnsiString형을 PChar형으로 바꾸시면 CompareMem으로 간단히 비교할 수 있습니다.
>
> type
> TCd_User = record
> strID_User : array[0..6] of Char; // 사용자 ID // P1
> strPwd_User : array[0..8] of Char; // 사용자 PWD
> strName_User : array[0..20] of Char; // 사용자 이름
> wAge_User : Word ; // 나이
> end;
> var
> recCd_User: array[1..2] of TCd_User ;
> begin
> if CompareMem(Pointer(@recCd_User[1]), Pointer(@recCd_User[2]), SizeOf(TCd_User)) then
> ShowMessage('데이터가 같습니다.')
> else
> ShowMessage('데이터가 변경되었습니다!')
> end;
>
> ^^ 항상 즐코하세요...
>
> 허접 wrote:
> > type
> > TCd_User = record
> > strID_User : string[ 6]; // 사용자 ID // P1
> > strPwd_User : string[ 8]; // 사용자 PWD
> > strName_User : string[ 20]; // 사용자 이름
> > wAge_User : Word ; // 나이
> > end;
> >
> > var
> >
> > recCd_User : array[1..2] of TCd_User ;
> >
> > 위처럼 레코드 배열 두개를 선언하구요...
> >
> > recCd_User[1] 와 recCd_User[2]가 똑같은 값이 들어 있는지 비교할려면 어케함 되져..
> >
> > if recCd_User[1] <> recCd_User[2] then
> > ShowMessage('데이터가 변경되었습니다!');
> >
> > 일케 코딩하니깐 에러가 나네요...쩝...
(NOTICE) You must be logged in to comment on this post.
-
- 델초보 -.-;;
- •
- 2001.05.21 20:11
- 1 COMMENTS
- /
- 0 LIKES
-
컴맹..•2001.05.21 20:54물론 폼을 이용하여.. 프레임과 같이 사용할수 있습니다... 간단한 소스를 올립니다... 일단 Form1에 ...
-
-
컴맹..•2001.05.21 19:54해당 ListView의 property 중 SortType 을 stText 로 설정 하세여... Caption으로 자동 소팅이 됩니다...
-
-
- ijwook
- •
- 2001.05.21 19:37
- 1 COMMENTS
- /
- 0 LIKES
-
바다를향해•2001.05.22 00:49무식한 바다를향해가 참고의 말 한마디 할게여... 일단 하드웨어로 락을 거는 방법은 예전에 프린터 포트...
-
- 강경혜
- •
- 2001.05.21 19:29
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.22 08:53소스중 어떤일을 하는부분에서 에러가 발생하는지를 먼저 파악하셔야겠군요 MIS관련프로그램으로 보이는...
-
- 포반장
- •
- 2001.05.21 19:26
- 2 COMMENTS
- /
- 0 LIKES
-
[훈]•2001.05.21 20:40charset 문제인거 같거든여... 나두 이런문제 있었는데... 자세하게 답변하기 힘드네여... 포반장 wro...
-
이제관•2001.05.22 07:10스크립트 문제일수도 있답니다. 폰트의 스크립트를 확인하세요 [훈] wrote: > charset 문제인거 같...
-
- 미지수
- •
- 2001.05.21 19:19
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.21 22:41안녕하세요. 최용일입니다. var R: MyRecordType; S: string; begin SetLength(S, Size...
-
- 정종필
- •
- 2001.05.21 19:02
- 2 COMMENTS
- /
- 0 LIKES
-
델초보•2001.05.24 02:33정종필 wrote: > 델5에서 퀵레포트 같은거 안 쓰고 assignfile 로 LPT1 을 지정한 다은 직접 > > 출력...
-
정종필•2001.05.26 19:49이렇게 하시면 될겁니다. procedure Tform1.TestPrint; var F : TextFile; begin Assignf...
-
- 백승환
- •
- 2001.05.21 18:51
- 2 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.21 20:08백승환 wrote: > 레지스트리에서요... > > 이진데이타를 어떻게 받아와야 하죠...???? > > 예를 들...
-
백승환•2001.05.22 02:49블랙봉 wrote: > 백승환 wrote: > > 레지스트리에서요... > > > > 이진데이타를 어떻게 받아와야 하죠...
-
- 이원택
- 2001.05.21 18:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 네오
- •
- 2001.05.21 18:35
- 1 COMMENTS
- /
- 0 LIKES
-
김은미•2001.05.21 22:44네오 wrote: > 안녕하세요. > try ~ except 문을 적어 > error가 발생할경우 except 로 빠지게 만들어 ...
-
- Burier
- 2001.05.21 18:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 배원성
- 2001.05.21 17:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 허접
- •
- 2001.05.21 17:15
- 2 COMMENTS
- /
- 0 LIKES
type TCd_User = record strID_User : string[ 6]; // 사용자 ID // P1 strPwd_User : string[ 8]; // 사용자 PWD strName_User : string[ 20]; // 사용자 이름 wAge_User : Word ; // 나이 end; var recCd_User : array[1..2] of TCd_Use...-
최용일•2001.05.21 22:35안녕하세요. 최용일입니다. 이 경우는 CompareMem함수를 사용할수도 없고... 직접 필드 하나하나 비교하...
-
허접•2001.05.22 01:08정말 큰 도움이 됐습니다... 꾸벅... 즐거운 일주일 되시고, 항상 건강하세요...^^ 최용일 wrote:...
-
- 진짜초보
- •
- 2001.05.21 16:31
- 1 COMMENTS
- /
- 0 LIKES
-
바다를향해•2001.05.21 21:23이 상황에선 변수에 값을 받을때 잘 받아 지나....그것부터 확인 해야져 다시말해 sOutTime := copy(T...
-
- 초보
- •
- 2001.05.21 02:48
- 1 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.21 16:48초보 wrote: > 스트링 그리드에서 > row를 선택하면 그 row 전체가 > 선택되게 하는 방법이 없을까요? ...
-
-
최용일•2001.05.21 22:49안녕하세요. 최용일입니다. 책에서 제공하는 것이라면 트라이얼 버전인데... 이것에는 없습니다. 정품에...
-
-
- 김윤곤
- 2001.05.20 11:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 류성심
- •
- 2001.05.20 02:57
- 1 COMMENTS
- /
- 0 LIKES
-
김일배•2001.05.20 19:03폼에 BitBtn 과 PopUpMenu을 올리고 다음과 같이 코딩해 보십시요 procedure TForm1.BitBtn1Click(Sende...
-
- 무명
- 2001.05.20 04:18
- 0 COMMENTS
- /
- 0 LIKES
-
- sallyslaw
- •
- 2001.05.20 00:34
- 1 COMMENTS
- /
- 0 LIKES
-
서철기•2001.05.20 01:04저도 초본데.. 답변이 될 지 모르겠습니다.. Fail Over를 구현하신 다는 것이.. PDC가 연결이 끊어 ...
이 경우는 CompareMem함수를 사용할수도 없고... 직접 필드 하나하나 비교하시는 수밖에 없을거 같군요... AnsiString형을 PChar형으로 바꾸시면 CompareMem으로 간단히 비교할 수 있습니다.
type
TCd_User = record
strID_User : array[0..6] of Char; // 사용자 ID // P1
strPwd_User : array[0..8] of Char; // 사용자 PWD
strName_User : array[0..20] of Char; // 사용자 이름
wAge_User : Word ; // 나이
end;
var
recCd_User: array[1..2] of TCd_User ;
begin
if CompareMem(Pointer(@recCd_User[1]), Pointer(@recCd_User[2]), SizeOf(TCd_User)) then
ShowMessage('데이터가 같습니다.')
else
ShowMessage('데이터가 변경되었습니다!')
end;
^^ 항상 즐코하세요...
허접 wrote:
> type
> TCd_User = record
> strID_User : string[ 6]; // 사용자 ID // P1
> strPwd_User : string[ 8]; // 사용자 PWD
> strName_User : string[ 20]; // 사용자 이름
> wAge_User : Word ; // 나이
> end;
>
> var
>
> recCd_User : array[1..2] of TCd_User ;
>
> 위처럼 레코드 배열 두개를 선언하구요...
>
> recCd_User[1] 와 recCd_User[2]가 똑같은 값이 들어 있는지 비교할려면 어케함 되져..
>
> if recCd_User[1] <> recCd_User[2] then
> ShowMessage('데이터가 변경되었습니다!');
>
> 일케 코딩하니깐 에러가 나네요...쩝...