한국 델파이 개발자 모임 - 방법좀 가르쳐 주세요(스트일그리드 관련(

방법좀 가르쳐 주세요(스트일그리드 관련(

//

T01-000005,강원 강릉시 견소동 202,(주)가디안,지오타운 입점료,2001.10,210-150

T01-000006,강원 삼척시 남양동 24-10,인켈 (삼척점),지오타운 입점료,2001.10,245-010

T01-000009,강원 영월군 영월읍 덕포리 486-64호,speed 래프팅,지오타운 입점료,2001.10,230-800

T02-000001,경기 성남시 중원구 중동 2500,피자24시,지오타운 입점료,2001.10,462-170

T02-000003,경기 성남시 수정구 복정동 268,에덴 꽃 직매장,지오타운 입점료,2001.10,461-200

//

이런 데이터를 스트링 그리드에 넣을려구 하는데 쉽지가 않네요..

방법좀 가르쳐 주세요

처음엔 구분자 없어서

While Not Eof(filename) Do Begin

ReadLn(filename, MyStr);

ShowMessage(MyStr);

count:=(length(MyStr));

showmessage(inttostr(count));

for i:= 1 to 10 do

begin

StringGrid1.Cells[0,i] := copy(MyStr,1,10);

StringGrid1.Cells[1,i] := copy(MyStr,11,22);

StringGrid1.Cells[2,i] := copy(MyStr,33,10);

StringGrid1.Cells[3,i] := copy(MyStr,43,15);

StringGrid1.Cells[4,i] := copy(MyStr,58,7);

StringGrid1.Cells[5,i] := copy(MyStr,65,7);

이런 식로 짯는데

모든 스트링그리드에 같은라인 결국에는 맨 마지막 라인에 있는 값만 다 들어가더라구요

스트링그리드 각 라인마다 텍스트데이타 각 라인이 들어가야 되는데..

이 게시물을

4 COMMENTS

데빠이 • 2001.10.17 00:52

스트링 그리드의 rowcount가 증가하는게 없네요..

> While Not Eof(filename) Do Begin

> ReadLn(filename, MyStr);

> ShowMessage(MyStr);

> count:=(length(MyStr));

> showmessage(inttostr(count));

> for i:= 1 to 10 do

> begin

> StringGrid1.Cells[0,i] := copy(MyStr,1,10);

> StringGrid1.Cells[1,i] := copy(MyStr,11,22);

> StringGrid1.Cells[2,i] := copy(MyStr,33,10);

> StringGrid1.Cells[3,i] := copy(MyStr,43,15);

> StringGrid1.Cells[4,i] := copy(MyStr,58,7);

> StringGrid1.Cells[5,i] := copy(MyStr,65,7);

//-- 이런 식으로 스트링그리드의 row count를 증가해야 될 듯 싶네요..

StringGrid1.RowCount := StringGrid1.RowCount+1;

end;

즐프~~
- 0
- 0
- 삭제
- 수정
- 댓글
이성훈 • 2001.10.17 00:42

이렇게 합 해보세요

그럼 즐프하세요..

i := 0 ;

While Not Eof(filename) Do Begin

ReadLn(filename, MyStr);

ShowMessage(MyStr);

count:=(length(MyStr));

showmessage(inttostr(count));

i := i + 1

StringGrid1.Cells[0,i] := copy(MyStr,1,10);

StringGrid1.Cells[1,i] := copy(MyStr,11,22);

StringGrid1.Cells[2,i] := copy(MyStr,33,10);

StringGrid1.Cells[3,i] := copy(MyStr,43,15);

StringGrid1.Cells[4,i] := copy(MyStr,58,7);

StringGrid1.Cells[5,i] := copy(MyStr,65,7);

end;

이쁜이 wrote:

> //

> T01-000005,강원 강릉시 견소동 202,(주)가디안,지오타운 입점료,2001.10,210-150

> T01-000006,강원 삼척시 남양동 24-10,인켈 (삼척점),지오타운 입점료,2001.10,245-010

> T01-000009,강원 영월군 영월읍 덕포리 486-64호,speed 래프팅,지오타운 입점료,2001.10,230-800

> T02-000001,경기 성남시 중원구 중동 2500,피자24시,지오타운 입점료,2001.10,462-170

> T02-000003,경기 성남시 수정구 복정동 268,에덴 꽃 직매장,지오타운 입점료,2001.10,461-200

> //

> 이런 데이터를 스트링 그리드에 넣을려구 하는데 쉽지가 않네요..

> 방법좀 가르쳐 주세요

>

> 처음엔 구분자 없어서

> While Not Eof(filename) Do Begin

> ReadLn(filename, MyStr);

> ShowMessage(MyStr);

> count:=(length(MyStr));

> showmessage(inttostr(count));

> for i:= 1 to 10 do

> begin

> StringGrid1.Cells[0,i] := copy(MyStr,1,10);

> StringGrid1.Cells[1,i] := copy(MyStr,11,22);

> StringGrid1.Cells[2,i] := copy(MyStr,33,10);

> StringGrid1.Cells[3,i] := copy(MyStr,43,15);

> StringGrid1.Cells[4,i] := copy(MyStr,58,7);

> StringGrid1.Cells[5,i] := copy(MyStr,65,7);

> 이런 식로 짯는데

> 모든 스트링그리드에 같은라인 결국에는 맨 마지막 라인에 있는 값만 다 들어가더라구요

> 스트링그리드 각 라인마다 텍스트데이타 각 라인이 들어가야 되는데..

>
- 0
- 0
- 삭제
- 수정
- 댓글
이쁜이 • 2001.10.17 01:05

고맙습니다..

그런데 한가지 더 알고 싶은게 있는데요..

구분자를 콤마로 주었는데 끊어서 스트링 그리드에 넣는 방법도 알려주면 고맙겠습니다.

이렇게 자리수맞춰서 할려면 얼마나 긴 데이터가 들어올지 몰라서요..

꼭.......

이성훈 wrote:

> 이렇게 합 해보세요

> 그럼 즐프하세요..

>

> i := 0 ;

> While Not Eof(filename) Do Begin

> ReadLn(filename, MyStr);

> ShowMessage(MyStr);

> count:=(length(MyStr));

> showmessage(inttostr(count));

> i := i + 1

> StringGrid1.Cells[0,i] := copy(MyStr,1,10);

> StringGrid1.Cells[1,i] := copy(MyStr,11,22);

> StringGrid1.Cells[2,i] := copy(MyStr,33,10);

> StringGrid1.Cells[3,i] := copy(MyStr,43,15);

> StringGrid1.Cells[4,i] := copy(MyStr,58,7);

> StringGrid1.Cells[5,i] := copy(MyStr,65,7);

> end;

>

>

>

> 이쁜이 wrote:

> > //

> > T01-000005,강원 강릉시 견소동 202,(주)가디안,지오타운 입점료,2001.10,210-150

> > T01-000006,강원 삼척시 남양동 24-10,인켈 (삼척점),지오타운 입점료,2001.10,245-010

> > T01-000009,강원 영월군 영월읍 덕포리 486-64호,speed 래프팅,지오타운 입점료,2001.10,230-800

> > T02-000001,경기 성남시 중원구 중동 2500,피자24시,지오타운 입점료,2001.10,462-170

> > T02-000003,경기 성남시 수정구 복정동 268,에덴 꽃 직매장,지오타운 입점료,2001.10,461-200

> > //

> > 이런 데이터를 스트링 그리드에 넣을려구 하는데 쉽지가 않네요..

> > 방법좀 가르쳐 주세요

> >

> > 처음엔 구분자 없어서

> > While Not Eof(filename) Do Begin

> > ReadLn(filename, MyStr);

> > ShowMessage(MyStr);

> > count:=(length(MyStr));

> > showmessage(inttostr(count));

> > for i:= 1 to 10 do

> > begin

> > StringGrid1.Cells[0,i] := copy(MyStr,1,10);

> > StringGrid1.Cells[1,i] := copy(MyStr,11,22);

> > StringGrid1.Cells[2,i] := copy(MyStr,33,10);

> > StringGrid1.Cells[3,i] := copy(MyStr,43,15);

> > StringGrid1.Cells[4,i] := copy(MyStr,58,7);

> > StringGrid1.Cells[5,i] := copy(MyStr,65,7);

> > 이런 식로 짯는데

> > 모든 스트링그리드에 같은라인 결국에는 맨 마지막 라인에 있는 값만 다 들어가더라구요

> > 스트링그리드 각 라인마다 텍스트데이타 각 라인이 들어가야 되는데..

> >
- 0
- 0
- 삭제
- 수정
- 댓글
이성훈 • 2001.10.17 03:40

나타낼 필드가 6개이라 가정할때...제가 임의로 함 짜 봤습니다..

참고하세요.....

그럼...20000

procedure TForm1.Button1Click(Sender: TObject);

var F:TextFile;

Str_len, Pos1_len, Pos2_Len, Pos3_len, Pos4_len, Pos5_len, Pos6_len,i: Integer;

S,S1,S2,S3,S4,S5 : String;

begin

AssignFile(F, 'C:11.Txt');

Reset(F);

i := 0;

While Not eof(F) do begin

Readln(F,S);

i := i+1;

Str_len := length(S);

Pos1_len := Pos(',', s)-1;

S1 := Copy(S,Pos1_len+2,Str_len);

Pos2_len := Pos(',',Copy(S1,0, Str_len))-1;

S2 := Copy(S1,Pos2_len+2,Str_len);

Pos3_len := Pos(',',Copy(S2,0, Str_len))-1;

S3 := Copy(S2,Pos3_len+2,Str_len);

Pos4_len := Pos(',',Copy(S3,0, Str_len))-1;

S4 := Copy(S3,Pos4_len+2,Str_len);

Pos5_len := Pos(',',Copy(S4,0, Str_len))-1;

S5 := Copy(S4,Pos5_len+2,Str_len);

Pos6_len := Pos(',',Copy(S4,0, Str_len))-1;

SG1.Cells[0,i] := Copy(S,0,Pos1_len);

SG1.Cells[1,i] := Copy(S1,0,Pos2_len);

SG1.Cells[2,i] := Copy(S2,0,Pos3_len);

SG1.Cells[3,i] := Copy(S3,0,Pos4_len);

SG1.Cells[4,i] := Copy(S4,0,Pos5_len);

SG1.Cells[5,i] := Copy(S5,0,Pos6_len);

showmessage(SG1.Cells[0,i]);

showmessage(SG1.Cells[1,i]);

showmessage(SG1.Cells[2,i]);

showmessage(SG1.Cells[3,i]);

showmessage(SG1.Cells[4,i]);

showmessage(SG1.Cells[5,i]);

end;

end;

이쁜이 wrote:

> 고맙습니다..

> 그런데 한가지 더 알고 싶은게 있는데요..

> 구분자를 콤마로 주었는데 끊어서 스트링 그리드에 넣는 방법도 알려주면 고맙겠습니다.

> 이렇게 자리수맞춰서 할려면 얼마나 긴 데이터가 들어올지 몰라서요..

> 꼭.......

>

>

>

> 이성훈 wrote:

> > 이렇게 합 해보세요

> > 그럼 즐프하세요..

> >

> > i := 0 ;

> > While Not Eof(filename) Do Begin

> > ReadLn(filename, MyStr);

> > ShowMessage(MyStr);

> > count:=(length(MyStr));

> > showmessage(inttostr(count));

> > i := i + 1

> > StringGrid1.Cells[0,i] := copy(MyStr,1,10);

> > StringGrid1.Cells[1,i] := copy(MyStr,11,22);

> > StringGrid1.Cells[2,i] := copy(MyStr,33,10);

> > StringGrid1.Cells[3,i] := copy(MyStr,43,15);

> > StringGrid1.Cells[4,i] := copy(MyStr,58,7);

> > StringGrid1.Cells[5,i] := copy(MyStr,65,7);

> > end;

> >

> >

> >

> > 이쁜이 wrote:

> > > //

> > > T01-000005,강원 강릉시 견소동 202,(주)가디안,지오타운 입점료,2001.10,210-150

> > > T01-000006,강원 삼척시 남양동 24-10,인켈 (삼척점),지오타운 입점료,2001.10,245-010

> > > T01-000009,강원 영월군 영월읍 덕포리 486-64호,speed 래프팅,지오타운 입점료,2001.10,230-800

> > > T02-000001,경기 성남시 중원구 중동 2500,피자24시,지오타운 입점료,2001.10,462-170

> > > T02-000003,경기 성남시 수정구 복정동 268,에덴 꽃 직매장,지오타운 입점료,2001.10,461-200

> > > //

> > > 이런 데이터를 스트링 그리드에 넣을려구 하는데 쉽지가 않네요..

> > > 방법좀 가르쳐 주세요

> > >

> > > 처음엔 구분자 없어서

> > > While Not Eof(filename) Do Begin

> > > ReadLn(filename, MyStr);

> > > ShowMessage(MyStr);

> > > count:=(length(MyStr));

> > > showmessage(inttostr(count));

> > > for i:= 1 to 10 do

> > > begin

> > > StringGrid1.Cells[0,i] := copy(MyStr,1,10);

> > > StringGrid1.Cells[1,i] := copy(MyStr,11,22);

> > > StringGrid1.Cells[2,i] := copy(MyStr,33,10);

> > > StringGrid1.Cells[3,i] := copy(MyStr,43,15);

> > > StringGrid1.Cells[4,i] := copy(MyStr,58,7);

> > > StringGrid1.Cells[5,i] := copy(MyStr,65,7);

> > > 이런 식로 짯는데

> > > 모든 스트링그리드에 같은라인 결국에는 맨 마지막 라인에 있는 값만 다 들어가더라구요

> > > 스트링그리드 각 라인마다 텍스트데이타 각 라인이 들어가야 되는데..

> > >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 이쁜이
- •
- 2001.10.17 01:24
- 5 COMMENTS
- /
- 0 LIKES
구분자를 콤마로 주었는데 끊어서 스트링 그리드에 넣는 방법도 알려주면 고맙겠습니다
- 사발우성™
  
  •
  
  2001.10.27 02:16
  
  이쁜이 wrote: > 고맙습니다.. > 그런데 한가지 더 알고 싶은게 있는데요.. > 구분자를 콤마로 주었는데...
- 이희정
  
  •
  
  2001.10.17 02:04
  
  이쁜이 wrote: > 고맙습니다.. > 그런데 한가지 더 알고 싶은게 있는데요.. > 구분자를 콤마로 주었는데...
- 이희정
  
  •
  
  2001.10.17 01:44
  
  이쁜이 wrote: > 고맙습니다.. > 그런데 한가지 더 알고 싶은게 있는데요.. > 구분자를 콤마로 주었는데...
- 이쁜이
  
  •
  
  2001.10.17 02:15
  
  고맙습니다.. 제 메일이 swiz-song@hanmail.net입니다. 꼭 읽고 보내주세요.. 기다립니다.. 아님 여...
- 이희정
  
  •
  
  2001.10.19 02:49
  
  메일을 보냈는데.. 되돌아왔네여.. 어떡해야 하나.. 쩝.. 다시 한번 보내드리져.. 이쁜이 wrote: ...
- 블루
- •
- 2001.10.17 01:08
- 1 COMMENTS
- /
- 0 LIKES
Application에서 선언한 변수를 다른곳에서 접근할려면???
- 이희정
  
  •
  
  2001.10.17 01:25
  
  블루 wrote: > program VDreamServer; > > uses > Forms, > Main in 'Main.pas' {fmMain}, > ...
- 오고야
- •
- 2001.10.17 00:46
- 1 COMMENTS
- /
- 0 LIKES
Record 를 Dynamic Array 로...
- 동급최강바보
  
  •
  
  2001.10.17 02:43
  
  요
- 김재만
- 2001.10.17 00:41
- 0 COMMENTS
- /
- 0 LIKES
TChart에 콤보박스를 놓고 콤보박스에 스크롤을 하면 이상하게...
- 왕초보
- 2001.10.17 00:34
- 0 COMMENTS
- /
- 0 LIKES
sybase에서 이와같은 SQL문을 쓰는데 이것이 뜻하는 바가 무엇인가요?
- 이쁜이
- •
- 2001.10.17 00:31
- 4 COMMENTS
- /
- 0 LIKES
방법좀 가르쳐 주세요(스트일그리드 관련(

// T01-000005,강원 강릉시 견소동 202,(주)가디안,지오타운 입점료,2001.10,210-150 T01-000006,강원 삼척시 남양동 24-10,인켈 (삼척점),지오타운 입점료,2001.10,245-010 T01-000009,강원 영월군 영월읍 덕포리 486-64호,speed 래프팅,...
- 데빠이
  
  •
  
  2001.10.17 00:52
  
  스트링 그리드의 rowcount가 증가하는게 없네요.. > While Not Eof(filename) Do Begin > ReadLn(f...
- 이성훈
  
  •
  
  2001.10.17 00:42
  
  이렇게 합 해보세요 그럼 즐프하세요.. i := 0 ; While Not Eof(filename) Do Begin ReadLn(f...
- 이쁜이
  
  •
  
  2001.10.17 01:05
  
  고맙습니다.. 그런데 한가지 더 알고 싶은게 있는데요.. 구분자를 콤마로 주었는데 끊어서 스트링 그리드...
- 이성훈
  
  •
  
  2001.10.17 03:40
  
  나타낼 필드가 6개이라 가정할때...제가 임의로 함 짜 봤습니다.. 참고하세요..... 그럼...20000 proc...
- xxx
- 2001.10.17 00:14
- 0 COMMENTS
- /
- 0 LIKES
videocap 컴포넌트
- 왕초보에요~
- •
- 2001.10.16 23:47
- 2 COMMENTS
- /
- 0 LIKES
알려주세용~~~
- 바보감자
  
  •
  
  2001.10.17 00:01
  
  왕초보에요~ wrote: > 알려주세요~모나면요~사칙연산계산기를 만들었는데요~ > 리스트 박스에 나타나게했...
- 왕초보예요
  
  •
  
  2001.10.17 03:23
  
  바보감자 wrote: > 왕초보에요~ wrote: > > 알려주세요~모나면요~사칙연산계산기를 만들었는데요~ > > ...
- 델파이언
- •
- 2001.10.16 23:13
- 2 COMMENTS
- /
- 0 LIKES
그리드 관련 질문 임돠!!!!!!
- 이희정
  
  •
  
  2001.10.17 01:05
  
  델파이언 wrote: > 쿼리한 데이타 100000건을 30개씩 뿌리려고 합니다. > > 다음/이전 버튼을 둬 보여...
- 델파이언
  
  •
  
  2001.10.17 01:39
  
  그 방법뿐이 없겠지요 --; 왜 DB2에는 그런게 없는곤쥐....휴~ 답변 감사합니다... 델파이언 홧튕...
- 고희봉
- •
- 2001.10.16 22:59
- 1 COMMENTS
- /
- 0 LIKES
재부팅없이 네트워크환경 적용
- 전영재
  
  •
  
  2001.11.01 04:57
  
  참고로 자료실에 올려놓았습니다. 제가 올려놓은것은 제가 필요해서 만든것인데 윈도우NT전용입니다. O/S...
- 이쁜이
- •
- 2001.10.16 22:20
- 1 COMMENTS
- /
- 0 LIKES
텍스트 화일을 스트링그리드에 넣는 방법 알려주세요..
- irookie
  
  •
  
  2001.10.17 00:12
  
  화일 관련 함수가 있습니다. 답1) AssignFile() ReSet() ReadLn() 도움말에 보면 무진장 잘 나와 있...
- 운풍
- 2001.10.16 21:49
- 0 COMMENTS
- /
- 0 LIKES
RX관련 컴포넌트에 관한 질문.
- 김종석
- 2001.10.16 21:37
- 0 COMMENTS
- /
- 0 LIKES
비디오카드로 가는 데이타를 가로챌순 없나요?
- 왕초보
- •
- 2001.10.16 21:06
- 2 COMMENTS
- /
- 0 LIKES
폼이 안 떠요...!!
- 권세용
  
  •
  
  2001.10.17 18:50
  
  왕초보 wrote: > 델파이로 프로그램을 만드는 과정에서 Unit와 Form을 토글하는 게 안 됩니다. 혹시 이런 ...
- 이희정
  
  •
  
  2001.10.17 01:23
  
  왕초보 wrote: > 델파이로 프로그램을 만드는 과정에서 Unit와 Form을 토글하는 게 안 됩니다. 혹시 이런 ...
- 명지니
- 2001.10.16 21:03
- 0 COMMENTS
- /
- 0 LIKES
인스톨 쉴드... ODBC설정(Oracle)
- 바보감자
- 2001.10.16 20:50
- 0 COMMENTS
- /
- 0 LIKES
direct show 개념 자체쉽게 설명해준..문서 어디 없을까요..??
- 초보델파이
- •
- 2001.10.16 20:48
- 1 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 최현식
  
  •
  
  2001.10.16 20:52
  
  초보델파이 wrote: > 말그대로 프로그램을 실행하는데 메모리가 부족하다는 뜻인것 같습니다. 제가 너...
- 최현식
- 2001.10.16 20:42
- 0 COMMENTS
- /
- 0 LIKES
BDE에러(Insufficent memory for this operation)
- 나두 초보
- 2001.10.16 20:29
- 0 COMMENTS
- /
- 0 LIKES
해결했어요~~ 감사합니당 ^ ^(냉무)
- 이태성
- 2001.10.16 20:34
- 0 COMMENTS
- /
- 0 LIKES
(조금급함)db에 배열형 자료저장?

이쁜이
2001/10/17 00:31
Views364

Likes0

Comments4

Reports0
Tag List
수정
삭제
목록으로

←First Page

1539 1540 1541 1542 1543 1544 1545 1546 1547 1548

Last Page→