Q&A
- 다시 궁금
조언을 해주셔서 감사합니다.
아직 잘 몰라서 소스를 올리니 고쳐주십시요.
type
Data = Record
buf : Array[0..48] of shortstring;
End;
procedure
var
In :File of Data;
Data : Data;
UseFileName : String;
begin
UseFileName := '9912.dat';
if (FileExists(useFileName)) then
begin
AssignFile(In,UseFileName);
ReSet(In);
dat파일의 data : 1ABCDEFGH123456789012.......
결과값 : BUF[0] := '1'
BUF[1] := 'ABCDEFGH'
BUF[3]~BUF[48] := 12자리씩
그럼 결과기대하겠습니다.
아직 잘 몰라서 소스를 올리니 고쳐주십시요.
type
Data = Record
buf : Array[0..48] of shortstring;
End;
procedure
var
In :File of Data;
Data : Data;
UseFileName : String;
begin
UseFileName := '9912.dat';
if (FileExists(useFileName)) then
begin
AssignFile(In,UseFileName);
ReSet(In);
dat파일의 data : 1ABCDEFGH123456789012.......
결과값 : BUF[0] := '1'
BUF[1] := 'ABCDEFGH'
BUF[3]~BUF[48] := 12자리씩
그럼 결과기대하겠습니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 황선희
- 2000.01.12 19:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보왕
- •
- 2000.01.12 19:35
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2000.01.12 20:24제가 문제를 잘못 이해했었습니다. 이렇게 해보세요. var DataFile: TFileStream; Data: TData; i ...
-
- 김진호
- •
- 2000.01.12 19:16
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2000.01.12 19:28동적 배열 생성은 다음과 같이 합니다. 자세한 사항은 도움말을 참고하세요. var a: array of Integer;...
-
- 델초
- 2000.01.12 18:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보왕
- •
- 2000.01.12 18:47
- 1 COMMENTS
- /
- 0 LIKES
조언을 해주셔서 감사합니다. 아직 잘 몰라서 소스를 올리니 고쳐주십시요. type Data = Record buf : Array[0..48] of shortstring; End; procedure var In :File of Data; Data : Data; UseFileName : String; begin UseFileName := '99...-
여영식•2000.01.12 19:13이런 유형이 될것 같습니다. 변수형 주에서 File of Data 형식은 Read 시 Count 를 지정할 수 없기 때문에...
-
- 김동식
- •
- 2000.01.12 18:28
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2000.01.12 18:57제가 볼때는 아무런 문제가 없어 보입니다. StoreBuffer 인자값으로 전달되는 것은 LongInt형의 주소를 전...
-
- 초보
- •
- 2000.01.12 18:25
- 4 COMMENTS
- /
- 0 LIKES
-
여영식•2000.01.12 19:19TQuery 컴포넌트는 기본적으로 SQL 문을 사용해서 테이블을 수정하는것이 좋습니다. 그러나 Query1.Reque...
-
정은아•2000.01.12 23:39제가 미처 생각지 못한 부분이라 코딩을 따라 해보다가 안되서 생각해보니까요.. Quary 컴포넌트는 테이블...
-
여영식•2000.01.13 02:39TQuery에서는 테이블을 지정할 수 없습니다. TQuery 컴포넌트는 기본적으로 SQL 문 즉 INSERT, UPDATE, DE...
-
오장균•2000.01.14 00:46저도 이문제로 테스트를 했었는데, 어떻게 어떻게 하다보니 잘 되더라구요... 그래서 안심하고 프로그래밍...
-
- shary
- 2000.01.12 11:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- •
- 2000.01.12 10:22
- 1 COMMENTS
- /
- 0 LIKES
-
여영식•2000.01.12 19:26간단한 방법으로 다음과 같이 사용해 보세요. (시험해 보진 않았습니다. 아이디어 입니다.) var Data: ...
-
- 델초
- •
- 2000.01.12 10:21
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•2000.01.13 01:45이런식으로 직문을 하시면 아무도 답변을 안해줄겁니다. 세상에... 아래 같은글을 8개나... 마구 ...
-
- 홍영기
- •
- 2000.01.12 08:53
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.01.13 00:11좀 무식하기는 합니다만...... 퀵레포트 온프리뷰 이벤트에 아래와 같이 코딩합니다. Qrlabel1.caption'...
-
- 돌맹이
- •
- 2000.01.12 06:13
- 1 COMMENTS
- /
- 0 LIKES
-
이영수•2000.01.12 11:15돌맹이 wrote: > 안녕하세요~~ ^0^ > > 델파이 초짜 돌맹입니다. > > 고수님들은 아주 간단한 문제...
-
- wsK
- •
- 2000.01.12 05:44
- 2 COMMENTS
- /
- 0 LIKES
-
여영식•2000.01.12 19:32프로퍼티에 보시면 TabStop 이란 프로퍼티가 있죠? 이 프로퍼티를 False 로 하면 탭을 눌렀을 때 이동이 ...
-
wsK•2000.01.12 20:56여영식 wrote: > 프로퍼티에 보시면 TabStop 이란 프로퍼티가 있죠? > 이 프로퍼티를 False 로 하면 탭을...
-
- 정민석
- 2000.01.12 05:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종욱
- •
- 2000.01.12 05:08
- 1 COMMENTS
- /
- 0 LIKES
-
강인규•2000.01.12 23:53전체를 한번실행시키면 될것같군요.... table1.first; while not table1.eof do begin table1.edit; ...
-
- 김진호
- •
- 2000.01.12 04:46
- 2 COMMENTS
- /
- 0 LIKES
-
우상호•2000.07.27 01:13김진호 wrote: > 질문이 있습니다!. > MDI에서 ChildForm이 최소화 될때 > ToolBar에 버튼이 동적으로 ...
-
배불뚝•2000.01.12 22:34김진호 wrote: > 질문이 있습니다!. > MDI에서 ChildForm이 최소화 될때 > ToolBar에 버튼이 동적으로 ...
-
- 남주니
- 2000.01.12 04:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- 2000.01.12 04:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 이희선
- •
- 2000.01.12 04:29
- 1 COMMENTS
- /
- 0 LIKES
-
오현수•2000.01.12 18:33이희선 wrote: > 안녕하세요. > Server용 Interbase를 NT서버에 인스톨하고 데이타베이스와 테이블을 생...
-
- 박성훈
- 2000.01.12 04:19
- 0 COMMENTS
- /
- 0 LIKES
변수형 주에서 File of Data 형식은 Read 시 Count 를 지정할 수 없기 때문에 사용할 수
없습니다. 꼭 이 형을 사용해야한다면 Data 파일의 내용을 한 번에 읽을 수 는 있기 때문에
일단 버퍼에 올려놓고 버퍼에서 복사해서 쓰는 방법은 있습니다. 그러나 아래와 같은 방법이
좀더 효율적이라 생각되는군요. 도움이 되시기를...
var
DataFile: TFileStream;
begin
DataFile := TFileStream.Create('9912.dat', fmOpenRead);
DataFile.Read(Data.Buf[0], 1);
DataFile.Read(Data.Buf[1], 6);
DataFile.Read(Data.Buf[7], 12);
.
.
.
DataFile.Free;
end;
초보왕 wrote:
> 조언을 해주셔서 감사합니다.
> 아직 잘 몰라서 소스를 올리니 고쳐주십시요.
> type
> Data = Record
> buf : Array[0..48] of shortstring;
> End;
>
>
> procedure
> var
> In :File of Data;
> Data : Data;
> UseFileName : String;
> begin
>
> UseFileName := '9912.dat';
> if (FileExists(useFileName)) then
> begin
> AssignFile(In,UseFileName);
> ReSet(In);
>
>
> dat파일의 data : 1ABCDEFGH123456789012.......
>
> 결과값 : BUF[0] := '1'
> BUF[1] := 'ABCDEFGH'
> BUF[3]~BUF[48] := 12자리씩
>
> 그럼 결과기대하겠습니다.