Q&A
- text file을 읽어오려면...
text file을 읽어 오려는데 잘 안되네여...ㅡ.ㅡ;
어떻게 이걸 해결할수 있는지...
조언을 부탁 드립니다.^^;
text file은 일정한 형식을 가지고 있기에
아래와 같이 작성하였 습니다.
procedure TFORM1.BitBtn1Click(Sender: TObject);
Type
TTextRec = Record
Field1: String[8];
Field2: String[10];
Field3: String[3];
Field4: String[3];
Field5: String[3];
end;
var
F: Textfile;
Data_Rec: TTextRec;
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
While not EOF(F) do
begin
ReadLn(F, DataRec); <=이부분에서 Error 발생...ㅡ.ㅡ;
.
.
.
end;
[Error] test.pas(278): Illegal type in Read/Readln statement
ReadLn은 String형만 가능한가여?
record형으로 읽을수는 없을까여?
알고 계시면 꼭 조언 부탁 드립니다.
어떻게 이걸 해결할수 있는지...
조언을 부탁 드립니다.^^;
text file은 일정한 형식을 가지고 있기에
아래와 같이 작성하였 습니다.
procedure TFORM1.BitBtn1Click(Sender: TObject);
Type
TTextRec = Record
Field1: String[8];
Field2: String[10];
Field3: String[3];
Field4: String[3];
Field5: String[3];
end;
var
F: Textfile;
Data_Rec: TTextRec;
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
While not EOF(F) do
begin
ReadLn(F, DataRec); <=이부분에서 Error 발생...ㅡ.ㅡ;
.
.
.
end;
[Error] test.pas(278): Illegal type in Read/Readln statement
ReadLn은 String형만 가능한가여?
record형으로 읽을수는 없을까여?
알고 계시면 꼭 조언 부탁 드립니다.
(NOTICE) You must be logged in to comment on this post.
-
- 이우호
- •
- 2001.05.04 05:08
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.04 06:43가장 간단하면서도 무식한(?) 방법은 Timer를 사용해서 해당 Query를 1초에 한번 Open하면 되겠죠 조금 ...
-
- 초보
- •
- 2001.05.04 04:40
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.04 04:53안녕하세요. 최용일입니다. 집합에서는 문자열을 사용할 수 없습니다. 아래와 같이 바꾸세요... b...
-
류종택•2001.05.04 04:51tmpStr:= Copy(Edit1.Text, 1, 1) + 'X'; // 만약 Null 문자열일 때를 대비 If tmpStr[1] in ['0'..'9'] ...
-
- 궁금이
- 2001.05.04 04:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.05.04 04:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.05.04 04:19
- 2 COMMENTS
- /
- 0 LIKES
text file을 읽어 오려는데 잘 안되네여...ㅡ.ㅡ; 어떻게 이걸 해결할수 있는지... 조언을 부탁 드립니다.^^; text file은 일정한 형식을 가지고 있기에 아래와 같이 작성하였 습니다. procedure TFORM1.BitBtn1Click(Sender: TObject); T...-
감초•2001.05.04 16:10Type TTextRec = Record Field1: String[8]; Field2: String[10]; Field3: String[3...
-
최용일•2001.05.04 04:39안녕하세요. 최용일입니다. 이런식으론 안돼여~ 설사
-
-
김지엽•2001.05.04 03:19DB 연결을 TDabaBase로 해보세요.. 그리고 해당 작업 하나마다 TDataBase를 하나씩 주면 될겁니다.
-
-
- 베라미스
- •
- 2001.05.04 03:03
- 1 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.04 06:45낱장봉투인지 연속인지 모르겠습니다만 낱장이라면 A4로 설정하시고 출력하셔도 되죠.. 베라미스 wrote...
-
- 김영석
- •
- 2001.05.04 02:54
- 1 COMMENTS
- /
- 0 LIKES
-
모름이•2001.05.04 03:12김영석 wrote: > 메인창 뜨고 프로그램 로딩되면 자동으로 메인창 사라지는 > > 기능을 주고 싶은데요....
-
- 시스템시간검색..
- •
- 2001.05.04 01:38
- 1 COMMENTS
- /
- 0 LIKES
-
허접답변•2001.05.04 03:16허접임다. 이틀만에 오내여... 저야 항상 허접답변만을 추구하져.. 왜냐하면 님들의 실력향상을 위해서....
-
- neperz
- •
- 2001.05.04 01:32
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.04 03:31안녕하세요. 최용일입니다. http://support.installshield.com/default.asp 위 사이트에서 ODBC로 검...
-
- 초보~~
- •
- 2001.05.04 01:19
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.04 03:36안녕하세요. 최용일입니다. 뭐 간단하게 이미지의 OnMouseDown이벤트에서 브라우져를 띄워주시면 됩니다...
-
- 하하
- •
- 2001.05.04 01:13
- 2 COMMENTS
- /
- 0 LIKES
-
BestDragon•2001.05.04 02:25하하 wrote: > > 25일이면 24일 > > 1일이면 30일/31일/28일/29일 > > 이렇게 구하고 싶습니다...
-
하기•2001.05.04 02:19어제날짜 구하기 : Label1.Caption := DateToStr(Date-1); 하하 wrote: > > 25일이면 24일 > > ...
-
- 이상열
- •
- 2001.05.04 01:06
- 2 COMMENTS
- /
- 0 LIKES
-
하기•2001.05.04 02:25Uses절에 뭘 첨가해줘야 하나여 ===> QRExport 이상열 wrote: > 퀵레포트를 텍스트파일로 저장하려는...
-
이상열•2001.05.04 02:42하기 wrote: > Uses절에 뭘 첨가해줘야 하나여 ===> QRExport > > 답변감사해여..드뎌 성공하긴했는...
-
- il212
- •
- 2001.05.04 01:04
- 1 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.05.04 03:25- 1.0과 3.0 은 중복 인스톨이 가능하지만, 3.0과 5.0은 안됩니다. BDE가 뻑납니다. 다른 문제가 있는지는...
-
- 고민남
- •
- 2001.05.04 00:54
- 1 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.05.04 02:16오토마우스로 검색해보시길..^^ 구창민님의 오토마우스에관한 해답이 있습니다..^^;; 그럼 즐프엽 ^^ ...
-
- 어린왕자
- •
- 2001.05.04 00:42
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.05.04 02:28DBGrid와 연결된 DataSource의 DataSet을 변환 시키면 될것 같은데요... 방법은 여러 팁에서 보셨다는 스...
-
- mallove
- •
- 2001.05.04 00:36
- 2 COMMENTS
- /
- 0 LIKES
-
류종택•2001.05.04 00:41create index indexname on TableName (FileName) create index indexname on TableName (FileName 1, ......
-
mallove•2001.05.04 00:52류종택 wrote: > create index indexname on TableName (FileName) > create index indexname on TableNa...
-
- 델파이끙끙
- •
- 2001.05.04 00:07
- 2 COMMENTS
- /
- 0 LIKES
-
최혜룡•2001.05.04 06:50DataSource의 Change(이름이 가물가물) 이벤트에서 Edit로 옮겨보시죠 델파이끙끙 wrote: > 안녕하...
-
아폴론•2001.05.04 00:15델파이끙끙 wrote: > 안녕하세요. > 이곳에 첨 글을 올리네요. > 다름이 아니라 DBGrid에서 이상한게 발...
-
- 나연희
- •
- 2001.05.03 23:59
- 3 COMMENTS
- /
- 0 LIKES
-
초초보•2001.05.04 02:11나연희 wrote: > 현재 bitbtn 에 올려진 이미지 이름을 알수 있는 방법이 있나요? 안녕하세요 초보 ...
-
류종택•2001.05.04 00:46질문이 상당히 난해하네요.. 일단 제가 이해한대로 설명을 드린다면.. TBitBtn에 올려진 이미지의 이름...
-
나연희•2001.05.04 04:35> 해당 프로퍼티는 이미지의 데이타만을 저장하기 때문입니다.. 결국 안되는 거였군요..그래도 안되는 ...
-
- biz4you
- 2001.05.03 22:53
- 0 COMMENTS
- /
- 0 LIKES
TTextRec = Record
Field1: String[8];
Field2: String[10];
Field3: String[3];
Field4: String[3];
Field5: String[3];
end;
을 그 unit 위에 모든 procedure에서 볼수 있는 곳에 정의되 있어야 합니다.
왕초보 wrote:
> text file을 읽어 오려는데 잘 안되네여...ㅡ.ㅡ;
>
> 어떻게 이걸 해결할수 있는지...
> 조언을 부탁 드립니다.^^;
>
> text file은 일정한 형식을 가지고 있기에
> 아래와 같이 작성하였 습니다.
>
> procedure TFORM1.BitBtn1Click(Sender: TObject);
> Type
> TTextRec = Record
> Field1: String[8];
> Field2: String[10];
> Field3: String[3];
> Field4: String[3];
> Field5: String[3];
> end;
> var
> F: Textfile;
> Data_Rec: TTextRec;
> begin
>
> AssignFile(F, OpenDialog1.FileName);
> Reset(F);
>
> While not EOF(F) do
> begin
> ReadLn(F, DataRec); <=이부분에서 Error 발생...ㅡ.ㅡ;
>
> .
> .
> .
>
> end;
>
> [Error] test.pas(278): Illegal type in Read/Readln statement
>
> ReadLn은 String형만 가능한가여?
> record형으로 읽을수는 없을까여?
> 알고 계시면 꼭 조언 부탁 드립니다.
>
>