Q&A
- Text파일을 Char형 변수에 넣는 방법좀 갈켜주세요...
Text파일을 Char형 변수에 넣는 방법을 알고 싶습니다......
예를 들어서 aaa.txt파일을 읽어와서 aaa : Char로 선언된
변수에 넣고 싶은데 안들어가네요.......ㅡㅡ;;
글구 aaa : Array[0..128] of Char or Byte에 넣는 방법도
알고 싶습니다......ㅡㅡ;;
고수분들 부탁드립니다......^^;;
예를 들어서 aaa.txt파일을 읽어와서 aaa : Char로 선언된
변수에 넣고 싶은데 안들어가네요.......ㅡㅡ;;
글구 aaa : Array[0..128] of Char or Byte에 넣는 방법도
알고 싶습니다......ㅡㅡ;;
고수분들 부탁드립니다......^^;;
3
COMMENTS
-
-
류종택 wrote:
> 예제만 올립니다.
> 그리고 컴파일한 것이 아니고..
> 게시판에 직접 코딩한 거라 에러가 생길지도 모르겠습니다.
>
> prorcedure tform1....click(sender..);
> Var
> Ch : Char;
> DataFile : TextFile;
> Begin
> Assign(DataFile, '파일명');
> Reset(DataFile);
> While not EOF (DataFile) do
> Begin
> Read(DataFile, Ch);
> ... Ch를 이용해서 코딩하는 영역 ...
> End;
> CloseFile(DataFile);
> End;
>
> 배열로 읽는 방법의 예제는 화일을 복사하는 함수의 예를 보여드리겠습니다..
>
> Function CopyFile(Source,Target:String):Integer;
> Var
> RRead : Integer;
> SFile, TFile : Integer;
> Buffer : Packed Array [1..4096] of Byte; // Char로 하여도 마찬가지
> Begin
> If File_Size(Source) = 0 then
> Begin
> Result:= 3;
> Exit;
> End;
>
> Result:= 0;
> SFile:= FileOpen(Source, fmOpenRead);
> TFile:= FileCreate(Target);
>
> If SFile <= 0 then
> Begin
> Result:= 1;
> Exit;
> End;
> If TFile <= 0 then
> Begin
> Result:= 2;
> Exit;
> End;
>
> Try
> RRead:= FileRead(SFile, Buffer, 1024);
> While RRead > 0 Do
> Begin
> FileWrite(TFile, Buffer, RRead);
> RRead:= FileRead(SFile, Buffer, 1024);
> End;
>
> FileSetAttr(Target, FileGetAttr(Source));
> FileSetDate(TFile, FileGetDate(SFile));
> FileClose(TFile);
> FileClose(SFile);
> Except
> End;
> End;
>
>
> From 류..
>
>
> 델초보...^^; wrote:
> > Text파일을 Char형 변수에 넣는 방법을 알고 싶습니다......
> >
> > 예를 들어서 aaa.txt파일을 읽어와서 aaa : Char로 선언된
> >
> > 변수에 넣고 싶은데 안들어가네요.......ㅡㅡ;;
> >
> > 글구 aaa : Array[0..128] of Char or Byte에 넣는 방법도
> >
> > 알고 싶습니다......ㅡㅡ;;
> >
> > 고수분들 부탁드립니다......^^;;
> >
-
류종택 wrote:
> 예제만 올립니다.
> 그리고 컴파일한 것이 아니고..
> 게시판에 직접 코딩한 거라 에러가 생길지도 모르겠습니다.
>
> prorcedure tform1....click(sender..);
> Var
> Ch : Char;
> DataFile : TextFile;
> Begin
> Assign(DataFile, '파일명');
> Reset(DataFile);
> While not EOF (DataFile) do
> Begin
> Read(DataFile, Ch);
> ... Ch를 이용해서 코딩하는 영역 ...
> End;
> CloseFile(DataFile);
> End;
>
> 배열로 읽는 방법의 예제는 화일을 복사하는 함수의 예를 보여드리겠습니다..
>
> Function CopyFile(Source,Target:String):Integer;
> Var
> RRead : Integer;
> SFile, TFile : Integer;
> Buffer : Packed Array [1..4096] of Byte; // Char로 하여도 마찬가지
> Begin
> If File_Size(Source) = 0 then
> Begin
> Result:= 3;
> Exit;
> End;
>
> Result:= 0;
> SFile:= FileOpen(Source, fmOpenRead);
> TFile:= FileCreate(Target);
>
> If SFile <= 0 then
> Begin
> Result:= 1;
> Exit;
> End;
> If TFile <= 0 then
> Begin
> Result:= 2;
> Exit;
> End;
>
> Try
> RRead:= FileRead(SFile, Buffer, 1024);
> While RRead > 0 Do
> Begin
> FileWrite(TFile, Buffer, RRead);
> RRead:= FileRead(SFile, Buffer, 1024);
> End;
>
> FileSetAttr(Target, FileGetAttr(Source));
> FileSetDate(TFile, FileGetDate(SFile));
> FileClose(TFile);
> FileClose(SFile);
> Except
> End;
> End;
>
>
> From 류..
>
>
> 델초보...^^; wrote:
> > Text파일을 Char형 변수에 넣는 방법을 알고 싶습니다......
> >
> > 예를 들어서 aaa.txt파일을 읽어와서 aaa : Char로 선언된
> >
> > 변수에 넣고 싶은데 안들어가네요.......ㅡㅡ;;
> >
> > 글구 aaa : Array[0..128] of Char or Byte에 넣는 방법도
> >
> > 알고 싶습니다......ㅡㅡ;;
> >
> > 고수분들 부탁드립니다......^^;;
> >
(NOTICE) You must be logged in to comment on this post.
-
- 주경래
- 2001.03.30 03:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 김태용
- 2001.03.30 03:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 가람
- •
- 2001.03.30 02:54
- 4 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.30 03:03함수를 하나 만들어 올립니다. 파라메터는 드라이브의 이니셜을 넣으세요 'C'이렇게요 From 류.. ...
-
가람•2001.03.30 03:23님의 답변에 감사드립니다.. 그런데, 제컴(CLIENT)의 디스크들은 모두 제값을 표현하는데 서버쪽 디스크...
-
류종택•2001.03.30 03:52네트워크 드라이브를 연결한 후 사용하니 되는데요.. 가람 wrote: > 님의 답변에 감사드립니다.. > ...
-
가람•2001.03.30 04:04네트워크 드라이브에서 확인은 되는데...(PC 대 PC...WINDOWS 대 WINDOWS) nt서버에 아래프로그램을 설치...
-
- 송길수
- •
- 2001.03.30 02:27
- 2 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.30 02:58무엇을 읽어보라는 건지요? 여하튼 질문을 언제 어디에 올리셨는지는 모르지만, 제가 지금 읽은 내용만으...
-
조복기•2001.03.30 02:54송길수 wrote: > 제가 어제 올린 글들을 보고 답변을 올려 주신 분들 감사합니다.. > > 하지만 제가 질...
-
- zerodog
- •
- 2001.03.30 02:22
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.30 02:51델파이 1.0 때 이후로 오랫만에 보는 질문이네요.. 1. ScaleBy 메소드 이용 procedure TForm1.FormC...
-
- 미소
- •
- 2001.03.30 02:07
- 2 COMMENTS
- /
- 0 LIKES
-
이경문•2001.03.30 06:15inet_addr() function을 이용하면 dns 서버에 host name과 ip address를 match시켜서 return해 줍니다. ...
-
류종택•2001.03.30 02:46Host라는 프로퍼티에 도메인 이름을 입력하세요.. From 류.. 미소 wrote: > 윈속으로 클라이언트에...
-
- 윤종철
- 2001.03.30 01:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 김태용
- •
- 2001.03.30 01:53
- 1 COMMENTS
- /
- 0 LIKES
-
명탁•2001.03.30 02:09김태용 wrote: > 안녕하세요 > interbase6.0 이 무료라 해서 한델홈페이지에서 > 받아서 깔았습니다 > ...
-
- 델초보...^^;
- •
- 2001.03.30 01:45
- 3 COMMENTS
- /
- 0 LIKES
Text파일을 Char형 변수에 넣는 방법을 알고 싶습니다...... 예를 들어서 aaa.txt파일을 읽어와서 aaa : Char로 선언된 변수에 넣고 싶은데 안들어가네요.......ㅡㅡ;; 글구 aaa : Array[0..128] of Char or Byte에 넣는 방법도 알고 싶습...-
류종택•2001.03.30 03:09예제만 올립니다. 그리고 컴파일한 것이 아니고.. 게시판에 직접 코딩한 거라 에러가 생길지도 모르겠습...
-
델초보...^^;•2001.03.30 03:48류종택 wrote: > 예제만 올립니다. > 그리고 컴파일한 것이 아니고.. > 게시판에 직접 코딩한 거라 에러...
-
델초보...^^;•2001.03.30 03:48류종택 wrote: > 예제만 올립니다. > 그리고 컴파일한 것이 아니고.. > 게시판에 직접 코딩한 거라 에러...
-
- 초보장
- •
- 2001.03.30 01:30
- 1 COMMENTS
- /
- 0 LIKES
-
류종택•2001.03.30 02:43예제를 올립니다. 그럼, 좋은 하루!! From 류.. --------- procedure TForm1.Button1Click(Sende...
-
- 이쁘니
- 2001.03.30 22:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 이기준
- •
- 2001.03.30 00:31
- 2 COMMENTS
- /
- 0 LIKES
-
강민주•2001.09.17 22:27이기준 wrote: > PC카메라오 마이크 녹음 데이터를 avi파일로 저장 하려고 합니다. > > 이곳에 올려져...
-
공대규•2001.03.30 00:43방법이 있긴 합니다. 그런데 그렇게 하려면 넘어야할 산이 많습니다... 우선 카메라로부터 영상을 받는 ...
-
- 델사랑
- •
- 2001.03.30 00:01
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.03.30 00:41델사랑 wrote: > 델초보입니다.. > 동적배열에 관한 기존 질문을 읽어 보았는데.. 제가 원하는대로 잘 안...
-
- il212
- •
- 2001.03.29 23:54
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.03.30 00:46il212 wrote: > Delphi 3.0: Quick Report: > > 가변적인 레코드, > 회사명 칼럼에 대해서만, > 어떤...
-
-
공대규•2001.03.30 00:52Alias를 BDE에서 생성하고 프로그램 개발한 후 다른 시스템에서 그대로 실행하신 것 같은데 맞나요? 그렇...
-
윤종철•2001.03.30 00:14윤종철 wrote: > Alias문제인데요... > 전 인스톨쉘드 프로페셔날 5.5를 쓰는데 > 델파이로 프로그램을 ...
-
-
- 이힁용
- •
- 2001.03.29 23:40
- 1 COMMENTS
- /
- 0 LIKES
-
공대규•2001.03.30 00:54이 문제는 미친병아리(오광섭)님이 잘 정리해 놓은 문서가 있습니다. 제목은 VeruSign 인증키 발급 이었던...
-
- 미여니
- •
- 2001.03.29 23:18
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.03.30 00:50미여니 wrote: > 디비에서 자료를 가져다가 퀵레포트로 값을 보내는 방법 예제하나만 갈켜주세염!!! ...
-
- 초보델파이...
- •
- 2001.03.29 23:02
- 1 COMMENTS
- /
- 0 LIKES
-
공대규•2001.03.30 00:57같은 겁니다... 버전만 확인하세요... 초보델파이... wrote: > 델파이시디에 들어있는 인스톨쉴드나 C+...
-
- 장훈이
- •
- 2001.03.29 22:59
- 1 COMMENTS
- /
- 0 LIKES
-
공대규•2001.03.30 00:59스트링 변수를 PChar로 선언한 변수로 넘긴다음 그 포인터를 가지고 처리하면 될터인데요. 코드 예제까지 ...
-
- choboja
- •
- 2001.03.29 22:52
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.03.29 23:20choboja wrote: > 힘들다////////////// 그리드이름.Col := 1; 그리드이름.Row := 1; 일케하면 그리...
그리고 컴파일한 것이 아니고..
게시판에 직접 코딩한 거라 에러가 생길지도 모르겠습니다.
prorcedure tform1....click(sender..);
Var
Ch : Char;
DataFile : TextFile;
Begin
Assign(DataFile, '파일명');
Reset(DataFile);
While not EOF (DataFile) do
Begin
Read(DataFile, Ch);
... Ch를 이용해서 코딩하는 영역 ...
End;
CloseFile(DataFile);
End;
배열로 읽는 방법의 예제는 화일을 복사하는 함수의 예를 보여드리겠습니다..
Function CopyFile(Source,Target:String):Integer;
Var
RRead : Integer;
SFile, TFile : Integer;
Buffer : Packed Array [1..4096] of Byte; // Char로 하여도 마찬가지
Begin
If File_Size(Source) = 0 then
Begin
Result:= 3;
Exit;
End;
Result:= 0;
SFile:= FileOpen(Source, fmOpenRead);
TFile:= FileCreate(Target);
If SFile <= 0 then
Begin
Result:= 1;
Exit;
End;
If TFile <= 0 then
Begin
Result:= 2;
Exit;
End;
Try
RRead:= FileRead(SFile, Buffer, 1024);
While RRead > 0 Do
Begin
FileWrite(TFile, Buffer, RRead);
RRead:= FileRead(SFile, Buffer, 1024);
End;
FileSetAttr(Target, FileGetAttr(Source));
FileSetDate(TFile, FileGetDate(SFile));
FileClose(TFile);
FileClose(SFile);
Except
End;
End;
From 류..
델초보...^^; wrote:
> Text파일을 Char형 변수에 넣는 방법을 알고 싶습니다......
>
> 예를 들어서 aaa.txt파일을 읽어와서 aaa : Char로 선언된
>
> 변수에 넣고 싶은데 안들어가네요.......ㅡㅡ;;
>
> 글구 aaa : Array[0..128] of Char or Byte에 넣는 방법도
>
> 알고 싶습니다......ㅡㅡ;;
>
> 고수분들 부탁드립니다......^^;;
>