Q&A
- [파일 쓰기]스트링그리드에서 text파일로..
전에 파일읽어서(tab 구분자가 있는) stringgrid에 입력하기를 물어봤었는데..
김하늘님께서 잘 가르쳐 주셨더군요..
정말 감사합니다. 많은 도움이 되었습니다.
근데.. 반대로 질문을 하게 되었군요..
stringgrid-> text로 쓰기해야 하는데.. 나름대로 구현을 해보니깐.. 파일이 깨져있더군요..
소스를 다음과 같습니다.
많은 고견부탁드립니다.
==================================================================================
procedure Tfcti9000.bb_CreatErrFileClick(Sender: TObject);
var
BackupName: string;
FileHandle: Integer;
StringLen : Integer;
StringVal : String;
X: Integer;
Y: Integer;
begin
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin
BackupName := ExtractFileName(SaveDialog1.FileName);
BackupName := ChangeFileExt(BackupName, '.BAK');
if not RenameFile(SaveDialog1.FileName, BackupName) then
raise Exception.Create('Unable to create backup file.');
end;
FileHandle := FileCreate(SaveDialog1.FileName);
{ Write out the number of rows and columns in the grid. }
FileWrite(FileHandle,
sgr_display.ColCount, SizeOf(sgr_display.ColCount));
FileWrite(FileHandle,
sgr_display.RowCount, SizeOf(sgr_display.RowCount));
for X := 0 to sgr_display.ColCount - 1 do begin
for Y := 0 to sgr_display.RowCount - 1 do begin
{ Write out the length of each string, followed by the string itself. }
StringVal := sgr_display.Cells[X,Y];
StringLen := Length(sgr_display.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle, StringVal, Length(StringVal));
end;
end;
FileClose(FileHandle);
end;
end;
==================================================================================
김하늘님께서 잘 가르쳐 주셨더군요..
정말 감사합니다. 많은 도움이 되었습니다.
근데.. 반대로 질문을 하게 되었군요..
stringgrid-> text로 쓰기해야 하는데.. 나름대로 구현을 해보니깐.. 파일이 깨져있더군요..
소스를 다음과 같습니다.
많은 고견부탁드립니다.
==================================================================================
procedure Tfcti9000.bb_CreatErrFileClick(Sender: TObject);
var
BackupName: string;
FileHandle: Integer;
StringLen : Integer;
StringVal : String;
X: Integer;
Y: Integer;
begin
if SaveDialog1.Execute then
begin
if FileExists(SaveDialog1.FileName) then
begin
BackupName := ExtractFileName(SaveDialog1.FileName);
BackupName := ChangeFileExt(BackupName, '.BAK');
if not RenameFile(SaveDialog1.FileName, BackupName) then
raise Exception.Create('Unable to create backup file.');
end;
FileHandle := FileCreate(SaveDialog1.FileName);
{ Write out the number of rows and columns in the grid. }
FileWrite(FileHandle,
sgr_display.ColCount, SizeOf(sgr_display.ColCount));
FileWrite(FileHandle,
sgr_display.RowCount, SizeOf(sgr_display.RowCount));
for X := 0 to sgr_display.ColCount - 1 do begin
for Y := 0 to sgr_display.RowCount - 1 do begin
{ Write out the length of each string, followed by the string itself. }
StringVal := sgr_display.Cells[X,Y];
StringLen := Length(sgr_display.Cells[X,Y]);
FileWrite(FileHandle, StringLen, SizeOf(StringLen));
FileWrite(FileHandle, StringVal, Length(StringVal));
end;
end;
FileClose(FileHandle);
end;
end;
==================================================================================
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 궁금이
- •
- 2001.06.20 00:24
- 3 COMMENTS
- /
- 0 LIKES
-
대원이•2001.06.20 00:38For i:=MDIChildCount-1 Downto 0 Do MDIChildren[i].CLOSE; 위와 같이 하면 자식폼들이 ... -
궁금이•2001.06.20 00:50흑..ㅜ.ㅜ MDIChild 폼이 아닌 일반(Normal)폼을 지워야 합니다..ㅜ.ㅜ 다시한번 알려 주시면 감사하겠습...
-
대마왕•2001.06.20 02:57Screen.Form으로 검색해보세요.. 궁금이 wrote: > 흑..ㅜ.ㅜ MDIChild 폼이 아닌 일반(Normal)폼을 ...
-
- 나상엽
- •
- 2001.06.20 00:22
- 1 COMMENTS
- /
- 0 LIKES
-
지락이•2001.06.20 02:01다른폼들이 FromStyle이 fsStayOnTop로 되어있어서 당연히 그런데, 기본퀵레포트 Preview를 사용하지말고,...
-
- 한델우기
- 2001.06.19 23:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 송광석
- •
- 2001.06.19 22:57
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.06.19 23:08제가 쓰는 무식한 방법입니다. 액티브폼을 볼 수도 있지만 이방법이 응용하기 쉽더군요... ===========...
-
- 왕 초짜
- 2001.06.19 22:52
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 제발
- 2001.06.19 22:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 심현지
- •
- 2001.06.19 21:36
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.06.20 00:16심현지 wrote: > 서버소켓을 이용한 프로그램을 짜고 있는데요, > 클라이언트가 하나이상 연결되면 'list...
-
- 정준모
- 2001.06.19 21:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민경
- •
- 2001.06.19 21:30
- 1 COMMENTS
- /
- 0 LIKES
전에 파일읽어서(tab 구분자가 있는) stringgrid에 입력하기를 물어봤었는데.. 김하늘님께서 잘 가르쳐 주셨더군요.. 정말 감사합니다. 많은 도움이 되었습니다. 근데.. 반대로 질문을 하게 되었군요.. stringgrid-> text로 쓰기해야 하는...-
김하늘•2001.06.22 05:02일단 팁자료실을 참고 하시고요.... 구체적으로 텍스트 파일이 어떤 형태로 만들어져야 하는지 파악이 안...
-
- 나연희
- •
- 2001.06.19 21:28
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.06.19 22:30나연희 wrote: > 메인폼을 띄우기 전에 공지를 보여주는데.. > 공지폼에서 Application.Terminater 로 프...
-
-
이성찬•2001.06.19 22:26델파이야 wrote: > 델파이 소스를 돌리는데, > "Unit a was compiled with a different version of DataM...
-
-
- 소망이
- •
- 2001.06.19 20:42
- 1 COMMENTS
- /
- 0 LIKES
-
소망이•2001.06.20 02:01일단 가장 중요한것은 쿼리문을 데이테베이스에 보낼때 모든것이 문자열이여야 한다는 것입니다. 그래서 ...
-
- 써니
- •
- 2001.06.19 20:19
- 3 COMMENTS
- /
- 0 LIKES
-
지락이•2001.06.19 20:38child폼에서 windowsstate를 wsMaximized로 해보세요 써니 wrote: > MDIchild폼인데 화면에 딱 맞게 sh...
-
써니•2001.06.19 20:46지락이 wrote: > child폼에서 windowsstate를 wsMaximized로 해보세요 > > 써니 wrote: > > MDIchild...
-
j•2001.06.19 21:09화면을 구성하고 있는 컴포넌트의 align속성을 이용하셔야해요 altop이나 그런 것들을 적절히 활용하셔야 ...
-
- 권선미
- 2001.06.19 20:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금스
- 2001.06.19 20:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 민 모
- •
- 2001.06.19 20:02
- 2 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.06.19 23:00component메뉴->import active X를 선택하고 , 위쪽항목에서 far spread 3.0을 선택하고 아래쪽의 Install...
-
민 모•2001.06.20 00:43하눌이 wrote: > component메뉴->import active X를 선택하고 , 위쪽항목에서 far spread 3.0을 선택하고 ...
-
- vilot
- 2001.06.19 19:46
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 김희선
- •
- 2001.06.19 19:05
- 1 COMMENTS
- /
- 0 LIKES
-
동글이•2001.11.21 23:42김희선 wrote: > dcomconnection, socketconnection의 차이점이 뭔지 알고 싶은데... > 아무리 책을 찾아...
구체적으로 텍스트 파일이 어떤 형태로 만들어져야 하는지 파악이 안된
관계로 답변을 구체화 할순 없겠네여...
일단 csv 형태로 맹그는 방법으로다 코딩합니다...
아래 win32 api로 포팅된 평션이 아니라 좀더 간단한 파일입출력으로다...
코딩 간단하니까 이해가 파악 오실겁니다...
그럼 즐프하세요
procedure TForm1.Button1Click(Sender: TObject);
var
ffin: TextFile;
StringVal: String;
X, Y: Integer;
begin
AssignFile(ffin, 'c:파일명.csv');
rewrite(ffin);
for Y := 0 to sgr_display.RowCount - 1 do begin
for X := 0 to sgr_display.ColCount - 1 do begin
StringVal := sgr_display.Cells[X, Y];
if x = (sgr_display.ColCount-1) Then WriteLN(ffin, StringVal)
else begin
StringVal := StringVal + ',';
Write(ffin, StringVal);
end;
end;
end;
CloseFile(ffin);
end;
김민경 wrote:
> 전에 파일읽어서(tab 구분자가 있는) stringgrid에 입력하기를 물어봤었는데..
> 김하늘님께서 잘 가르쳐 주셨더군요..
> 정말 감사합니다. 많은 도움이 되었습니다.
> 근데.. 반대로 질문을 하게 되었군요..
> stringgrid-> text로 쓰기해야 하는데.. 나름대로 구현을 해보니깐.. 파일이 깨져있더군요..
> 소스를 다음과 같습니다.
> 많은 고견부탁드립니다.
> ==================================================================================
> procedure Tfcti9000.bb_CreatErrFileClick(Sender: TObject);
> var
> BackupName: string;
> FileHandle: Integer;
> StringLen : Integer;
> StringVal : String;
> X: Integer;
> Y: Integer;
> begin
> if SaveDialog1.Execute then
> begin
> if FileExists(SaveDialog1.FileName) then
> begin
> BackupName := ExtractFileName(SaveDialog1.FileName);
> BackupName := ChangeFileExt(BackupName, '.BAK');
> if not RenameFile(SaveDialog1.FileName, BackupName) then
> raise Exception.Create('Unable to create backup file.');
> end;
> FileHandle := FileCreate(SaveDialog1.FileName);
> { Write out the number of rows and columns in the grid. }
> FileWrite(FileHandle,
> sgr_display.ColCount, SizeOf(sgr_display.ColCount));
> FileWrite(FileHandle,
> sgr_display.RowCount, SizeOf(sgr_display.RowCount));
> for X := 0 to sgr_display.ColCount - 1 do begin
> for Y := 0 to sgr_display.RowCount - 1 do begin
> { Write out the length of each string, followed by the string itself. }
> StringVal := sgr_display.Cells[X,Y];
> StringLen := Length(sgr_display.Cells[X,Y]);
> FileWrite(FileHandle, StringLen, SizeOf(StringLen));
> FileWrite(FileHandle, StringVal, Length(StringVal));
> end;
> end;
> FileClose(FileHandle);
> end;
>
> end;
> ==================================================================================
>