Q&A
- CSV파일 읽어오기...
PS_Data_Rec = ^TS_Data_Rec;
TS_Data_Rec = packed record
...
end
..
var
fp : TextFile;
ABuff : String;
ARec : PS_Data_Rec;
...
while not Eof(fp) do begin
Application.ProcessMessages;
Readln(tp, ABuff);
Move(ABuff[1], ARec^, Sizeof(TS_Data_Rec));
....
end;
CSV파일을 읽어 올때요..
TextFile로 한줄 한줄 읽어와서
ARec레코드에 항목별로 값을 넣으려고 하는데 어떻게 하죠?
Array[0.. n]of char로 읽어왔을 경우엔 읽어온 데이터의 길이가 달라지면
값이 다르게 들어가고 ...
쉼표(,)로 구분되어있으니깐 다른 방법이 있을듯한데요..
답변기다리겠습니다.
TS_Data_Rec = packed record
...
end
..
var
fp : TextFile;
ABuff : String;
ARec : PS_Data_Rec;
...
while not Eof(fp) do begin
Application.ProcessMessages;
Readln(tp, ABuff);
Move(ABuff[1], ARec^, Sizeof(TS_Data_Rec));
....
end;
CSV파일을 읽어 올때요..
TextFile로 한줄 한줄 읽어와서
ARec레코드에 항목별로 값을 넣으려고 하는데 어떻게 하죠?
Array[0.. n]of char로 읽어왔을 경우엔 읽어온 데이터의 길이가 달라지면
값이 다르게 들어가고 ...
쉼표(,)로 구분되어있으니깐 다른 방법이 있을듯한데요..
답변기다리겠습니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 응가왕
- •
- 2003.04.02 23:27
- 1 COMMENTS
- /
- 0 LIKES
-
혜월•2003.04.03 00:42procedure TForm1.LogFile(S: String); var i : integer; begin ...
-
- 고가람
- •
- 2003.04.02 23:25
- 1 COMMENTS
- /
- 0 LIKES
-
혜월•2003.04.03 00:32그냥 b := a; 이렇게 하면 됩니다.
-
- 정수지
- 2003.04.02 23:05
- 0 COMMENTS
- /
- 0 LIKES
-
- shyuna
- •
- 2003.04.02 21:36
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•2003.04.03 06:08// 안녕하세요 김영대(http://www.howto.pe.kr) 입니다 unit Unit1; interfa...
-
- 포 맷
- •
- 2003.04.02 21:16
- 1 COMMENTS
- /
- 0 LIKES
PS_Data_Rec = ^TS_Data_Rec; TS_Data_Rec = packed record ... end .. var fp : TextFile; ABuff : String; ARec : PS_Data_Rec; ... while not Eof(fp) do begin Application.ProcessMessages; Readln(tp, ABuff); Move(ABuff[1], ARec^...-
혜월•2003.04.02 22:35TStringList의 LoadFromFile로 읽은 다음에 for i := 0 to MyList.Count -1 do...
-
- 신용섭
- •
- 2003.04.02 19:56
- 1 COMMENTS
- /
- 0 LIKES
-
정종필•2003.04.03 01:29command 창 열어서 netsh 쳐 보세요.. 일단 help 함.. 보시고.. netsh interface ip set address nam...
-
- 이병훈
- 2003.04.02 19:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 유솔로몬
- 2003.04.02 18:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 델사랑
- 2003.04.02 09:36
- •
- 0 COMMENTS
- /
- 0 LIKES
-
- 배시용
- 2003.04.02 06:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2003.04.02 05:51
- 3 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2003.04.02 06:08그리드가 디비그리드인가요? 디비그리드면 기본적으로 제공되는 기능이 없습니다... 쿼리문으로 해결하면...
-
초보•2003.04.02 06:15ㅠ.ㅠ.. 죄송한데요.. 그리드는 AdvStringGrid인데요... 제가 워낙 초보라 코딩으로 구현하는 방법이 알...
-
KDDG_ZZOM•2003.04.02 18:44AdvStringGrid이 그리드는 제가 사용한적이 없어서...^^ 그냥... 쿼리를 날렸을때 10개의 로우가 온다고...
-
- help me
- 2003.04.02 04:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 하루를 소중히
- •
- 2003.04.02 04:33
- 5 COMMENTS
- /
- 0 LIKES
-
최남선•2003.04.02 19:38정상 소스파일(*.pas)의 라인끝은 CR(#13) + LF(#10)로 끝나야 됩니다. 비정상적으로 CR이 없어져서 라인...
-
하루를 소중히•2003.04.03 00:36고맙습니다. 확인 해봐야 알겠지만, 도움이 될 수 있을 것 같네요. 헥사덤프 프로그램을 어떻게 봐야 하...
-
구창민•2003.04.02 10:51그 경우는 논리적인 에러일 경우일 겁니다. 컴파일러는 컴파일 할 필요가 없는 코드, 즉, 논리적 흐... -
하루를 소중히•2003.04.02 18:23논리적인 에러일 경우 그럴 수도 있겠군요. 하지만, 이경우 논리적인 에러는 아닌 것 같으데... 그 부분...
-
KDDG_hyun•2003.04.02 18:50사용안하는 변수, begin end; 의 위치 등등 의 이유에 따라서 그러드라고요.. 코드를 함 올려 보세...
-
- 이재현
- •
- 2003.04.02 04:32
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_Drop•2003.04.09 23:45안녕하세요. 주삼식입니다. MMTools라는 컴포넌트가 있는데요. 이놈이 기본적으로 제공을 해줍니다. 거의...
-
그냥•2003.04.03 01:25EQ를 단순히 미디어플레이어로 만든다는건 많이많이 힘듭니다.. 어떤머리좋은사람은 만들겠지만 저는 불가...
-
- 백재원
- •
- 2003.04.02 03:57
- 1 COMMENTS
- /
- 0 LIKES
-
KDDG_hyun•2003.04.02 18:52ms-sql 의 설치 유무와 bde 설치시 sql-link 도 가치 설치 해 보세요
-
- 안기연
- •
- 2003.04.02 01:26
- 2 COMMENTS
- /
- 0 LIKES
-
박상윤•2003.04.03 02:33그거는 예제가 켑쳐에 연결되어 있어서..^^ 그런것 같군요...
-
안기연•2003.04.03 03:57답변 감사합니다. 염치없는 부탁이지만, 예제에서 어떻게 수정해야 하는지 부탁드려도 될까요..? 제...
-
- 최영한
- 2003.04.02 00:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 김희곤
- •
- 2003.04.01 23:43
- 1 COMMENTS
- /
- 0 LIKES
-
장덕곤•2003.04.02 18:30콤포넌트를 C:Program FilesBorlandDelphi5lib 폴더안에 넣으시고 델파이에서 컴포넌트-인스톨컴포넌트-u...
-
- 최인권
- •
- 2003.04.01 23:36
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_RNStone•2003.04.02 05:25DrawCell 이벤트에 코딩 하시면 됩니다. 더 자세한 것은 검색을 해 보시면 상세히 나와 있습니다.
-
한영관•2003.04.02 20:46DBGrid 의 DrawColumnCell event 에서 다음과 같이 코딩해보세요.... with TDBGrid(Sende...
-
- 박홍규
- 2003.04.01 22:37
- 0 COMMENTS
- /
- 0 LIKES
for i := 0 to MyList.Count -1 do begin
sTmp := MyList.Strings[i];
Tmp := StringReplace(sTmp, ',,', ', ,', [rfReplaceAll]);
Tmp := StringReplace(Tmp, ',,', ', ,', [rfReplaceAll]);
MyList2.Clear;
ExtractStrings([','], [#0], PChar(Tmp), MyList2);
이렇게 한 후에 MyList2에 담긴 내용으로 하면 될거 같네요..