Q&A
- 레코드의 데이타형에 대하여..
레코드 데이타형에 대해서 이해가 가지 않습니다
type Test = packed record
Inst_Code : array [0..9] of char;
Tran_Code : array [0..9] of char;
Tran_Date : array [0..5] of char;
RW_Flag : char;
end;
var
Packet : Test;
이렇게 선언 해놓구여
DBGrid 에 있는 필드의 값을 가져다가 집어넣을려고 하는데여
Packet.Inst_Code := Trim(Fields[0].AsString); ==> 이렇게 했습니다
*** Packet.Inst_Code := '12345'; ==> 이건 잘 들어가더군여
컴파일하니까 배열하고 string 하고 호환이 안된다고 하는군여..
구조체에 문자열 선언할 때는 char array 로 잡는게 좋다는 말을 여기서
많이 봤습니다.
DBGrid 에 있는 데이타를 구조체에 넣으려면 어떻게 해야 하나여..
아~ 이젠 머리가 다 아플라고합니다..
매일 질문만 드리는군요
죄송합니다.
type Test = packed record
Inst_Code : array [0..9] of char;
Tran_Code : array [0..9] of char;
Tran_Date : array [0..5] of char;
RW_Flag : char;
end;
var
Packet : Test;
이렇게 선언 해놓구여
DBGrid 에 있는 필드의 값을 가져다가 집어넣을려고 하는데여
Packet.Inst_Code := Trim(Fields[0].AsString); ==> 이렇게 했습니다
*** Packet.Inst_Code := '12345'; ==> 이건 잘 들어가더군여
컴파일하니까 배열하고 string 하고 호환이 안된다고 하는군여..
구조체에 문자열 선언할 때는 char array 로 잡는게 좋다는 말을 여기서
많이 봤습니다.
DBGrid 에 있는 데이타를 구조체에 넣으려면 어떻게 해야 하나여..
아~ 이젠 머리가 다 아플라고합니다..
매일 질문만 드리는군요
죄송합니다.
2
COMMENTS
-
-
감사합니다.
역쉬 잘 되는군여..
매일매일 도움만 받아서 죄송합니다. ^^
여기계신 모든 분들 새해 복많이 받으시구여
행복한 연말보내세요..
다시한번 감사드립니다.
유효종 wrote:
> 왕초짜 wrote:
> > 레코드 데이타형에 대해서 이해가 가지 않습니다
> >
> > type Test = packed record
> > Inst_Code : array [0..9] of char;
> > Tran_Code : array [0..9] of char;
> > Tran_Date : array [0..5] of char;
> > RW_Flag : char;
> > end;
> >
> > var
> > Packet : Test;
> >
> > 이렇게 선언 해놓구여
> >
> > DBGrid 에 있는 필드의 값을 가져다가 집어넣을려고 하는데여
> >
> >
> >
> > Packet.Inst_Code := Trim(Fields[0].AsString); ==> 이렇게 했습니다
> >
> > *** Packet.Inst_Code := '12345'; ==> 이건 잘 들어가더군여
> >
> >
> >
> > 컴파일하니까 배열하고 string 하고 호환이 안된다고 하는군여..
> >
> > 구조체에 문자열 선언할 때는 char array 로 잡는게 좋다는 말을 여기서
> >
> > 많이 봤습니다.
> >
> > DBGrid 에 있는 데이타를 구조체에 넣으려면 어떻게 해야 하나여..
> >
> > 아~ 이젠 머리가 다 아플라고합니다..
> >
> > 매일 질문만 드리는군요
> >
> > 죄송합니다.
> >
> >
> >
>
> 레코드 형으로 선언 했다는 것은 데이타가 많다는 얘기고
> 또한 메모리를 절약하기 위함이란 뜻이죠
> string 보다는 array char 가 메모리 절약에 도움이 되죠
> 또 너저분한 변수 선언 보다는 깔끔도 하구요
>
> 본론으로 들어가서 string 을 array 에 집어넣는 코드는 다음과 같습니다.
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> s : String;
> i : integer;
> begin
> fillchar(Packet.Inst_Code,length(Packet.Inst_Code),#0);
> s := Trim(Fields[0].AsString);
> for i := 1 to length(s) do begin
> Packet.Inst_Code[i-1] := s[i];
> end;
> showMessage(Packet.Inst_Code);
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- 사고뭉치
- •
- 2001.12.28 11:24
- 1 COMMENTS
- /
- 0 LIKES
-
유효종•2001.12.28 20:26사고뭉치 wrote: > Exception EAccessViolation in module IDODBC32.DLL at 0001030f. > Acces violation...
-
- 막대기
- •
- 2001.12.28 10:21
- 1 COMMENTS
- /
- 0 LIKES
-
깨구락지•2001.12.28 18:15특수문자의 제거는 trim 함수를 사용하시구요, 원하는 길이만큼의 스트링을 얻으려 한다면 copy 함수를 사...
-
- 초짜 올림
- •
- 2001.12.28 08:38
- 4 COMMENTS
- /
- 0 LIKES
-
천명•2001.12.28 18:09폼에 프로퍼티에 보시면 KeyPreview 를 True로 해보세요
-
초짜 올림•2001.12.28 20:12안녕하세요. 답변 정말 감사드립니다. 그런데 Form의 keypreview를 true로 해도 되지가 않습니다. 어떻...
-
천명•2001.12.28 21:11그럼 KeyDown Event에 써보세요... 혹시나... ^^;;; if Key = VK_RETURN then Close; 이케 한...
-
초짜 올림•2001.12.28 22:28답변 정말 고맙습니다. 님이 알려주신 대로 해봤으나 돼지는 않습니다. 하지만 제 잘못 을 느끼고 있습...
-
- 델파이초보
- 2001.12.28 08:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금이
- •
- 2001.12.28 08:01
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.29 00:25안녕하세요. 최용일입니다. 델파이 팁모아에 강민주님의 팁이 있네요... http://www.delphi.co.kr/cg...
-
- 왕초짜
- •
- 2001.12.28 06:55
- 2 COMMENTS
- /
- 0 LIKES
레코드 데이타형에 대해서 이해가 가지 않습니다 type Test = packed record Inst_Code : array [0..9] of char; Tran_Code : array [0..9] of char; Tran_Date : array [0..5] of char; RW_Flag : char; end; var Packet : Test; 이렇게 ...-
유효종•2001.12.28 21:08왕초짜 wrote: > 레코드 데이타형에 대해서 이해가 가지 않습니다 > > type Test = packed record > ...
-
왕초짜•2001.12.28 21:17감사합니다. 역쉬 잘 되는군여.. 매일매일 도움만 받아서 죄송합니다. ^^ 여기계신 모든 분들 새...
-
- 머리아파요!!!
- 2001.12.30 01:23
- 0 COMMENTS
- /
- 0 LIKES
-
-
- benjy
- •
- 2001.12.28 06:14
- 1 COMMENTS
- /
- 0 LIKES
-
유효종•2001.12.28 20:48benjy wrote: > * 사용환경 : 델파이5 / Windows 98 > > 지금 INDY 컴포넌트 사용해서 한번에 10곳에 P...
-
- 사가
- •
- 2001.12.28 04:13
- 1 COMMENTS
- /
- 0 LIKES
-
나두초보~~•2001.12.28 06:09한라인씩 구분자로 분리해서 가져오면 되지 않을까여..? 아무개,26,주소,어쩌고..., 저쩌구 // 쉼표 구분...
-
- 델초보
- •
- 2001.12.28 03:50
- 1 COMMENTS
- /
- 0 LIKES
-
유효종•2001.12.28 20:20델초보 wrote: > [질문] PC의 날짜포멧을 바꾸고 싶은데..어떻게 하죠..? > > 안녕하세요.. > > PC...
-
- 최성원
- 2001.12.28 03:25
- 0 COMMENTS
- /
- 0 LIKES
-
- Commom
- •
- 2001.12.28 01:57
- 1 COMMENTS
- /
- 0 LIKES
-
초짜•2001.12.29 22:36저도 초짜지만...같은 고민을 패스가 안잡혀서 파일을 못찾아서 그런 에러가 여러가지 방법이 있지만(pro...
-
- delphi
- •
- 2001.12.28 01:56
- 1 COMMENTS
- /
- 0 LIKES
-
잘난체•2001.12.28 03:27이 컴퍼넌트를 디자인시에 컴퍼넌트를 놓았기 때문에....컴파일시에 에러가 나는 것입니다. 에러가 ...
-
- 신재민
- 2001.12.28 00:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 세희
- 2001.12.28 00:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.12.28 00:29
- 1 COMMENTS
- /
- 0 LIKES
-
버섯•2001.12.28 03:27델초보 wrote: > 안녕하세요... > 델파이4와 SqlServer2000을 사용해서 MIS업무를 담당하고 > 있는 사...
-
- 짱아
- •
- 2001.12.28 00:07
- 1 COMMENTS
- /
- 0 LIKES
-
성낙균•2001.12.28 07:42print selected is not valid 이메세지는 기본프린터가 안잡혔을때 그런것같습니다. 저도 어제 이멧세지...
-
- 동동
- •
- 2001.12.27 23:49
- 1 COMMENTS
- /
- 0 LIKES
-
버섯•2001.12.28 03:20동동 wrote: > 안녕하세요. 처음에는 별거 아닌것 같았는데 요상하게 꼬여 들어가네요. > RichEdit에 말...
-
- 라이타
- 2001.12.28 00:43
- 0 COMMENTS
- /
- 0 LIKES
> 레코드 데이타형에 대해서 이해가 가지 않습니다
>
> type Test = packed record
> Inst_Code : array [0..9] of char;
> Tran_Code : array [0..9] of char;
> Tran_Date : array [0..5] of char;
> RW_Flag : char;
> end;
>
> var
> Packet : Test;
>
> 이렇게 선언 해놓구여
>
> DBGrid 에 있는 필드의 값을 가져다가 집어넣을려고 하는데여
>
>
>
> Packet.Inst_Code := Trim(Fields[0].AsString); ==> 이렇게 했습니다
>
> *** Packet.Inst_Code := '12345'; ==> 이건 잘 들어가더군여
>
>
>
> 컴파일하니까 배열하고 string 하고 호환이 안된다고 하는군여..
>
> 구조체에 문자열 선언할 때는 char array 로 잡는게 좋다는 말을 여기서
>
> 많이 봤습니다.
>
> DBGrid 에 있는 데이타를 구조체에 넣으려면 어떻게 해야 하나여..
>
> 아~ 이젠 머리가 다 아플라고합니다..
>
> 매일 질문만 드리는군요
>
> 죄송합니다.
>
>
>
레코드 형으로 선언 했다는 것은 데이타가 많다는 얘기고
또한 메모리를 절약하기 위함이란 뜻이죠
string 보다는 array char 가 메모리 절약에 도움이 되죠
또 너저분한 변수 선언 보다는 깔끔도 하구요
본론으로 들어가서 string 을 array 에 집어넣는 코드는 다음과 같습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
i : integer;
begin
fillchar(Packet.Inst_Code,length(Packet.Inst_Code),#0);
s := Trim(Fields[0].AsString);
for i := 1 to length(s) do begin
Packet.Inst_Code[i-1] := s[i];
end;
showMessage(Packet.Inst_Code);
end;