Q&A
- SaveDialog component의 사용에 대해..
제목에 올린대로 메모 컴퍼넌트에 적인 텍스트를 텍스트 파일로 저장하려 하는데
저장시 파일이름만 입력하면 파일의 확장자가 붙지를 않습니다.
Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
이런식으로 하면 파일 이름만 입력 할때는 제대로 되지만
파일이름에 확장자까지 붙어있는 경우에는 확장자가 두번 붙어버리더군요
이런경우 어떻게 해야 할까요?
저는 Delphi 4.0 에 patch3 를 사용중입니다.
저장시 파일이름만 입력하면 파일의 확장자가 붙지를 않습니다.
Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
이런식으로 하면 파일 이름만 입력 할때는 제대로 되지만
파일이름에 확장자까지 붙어있는 경우에는 확장자가 두번 붙어버리더군요
이런경우 어떻게 해야 할까요?
저는 Delphi 4.0 에 patch3 를 사용중입니다.
2
COMMENTS
-
-
이승연 wrote:
> 제목에 올린대로 메모 컴퍼넌트에 적인 텍스트를 텍스트 파일로 저장하려 하는데
> 저장시 파일이름만 입력하면 파일의 확장자가 붙지를 않습니다.
>
> Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
> 이런식으로 하면 파일 이름만 입력 할때는 제대로 되지만
> 파일이름에 확장자까지 붙어있는 경우에는 확장자가 두번 붙어버리더군요
> 이런경우 어떻게 해야 할까요?
>
> 저는 Delphi 4.0 에 patch3 를 사용중입니다.
if ExtractFileExt(SaveDialog1.FileName) = '' then
Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt')
else
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
(NOTICE) You must be logged in to comment on this post.
-
-
- 브이트러스트
- 1999.10.02 02:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 이준욱
- •
- 1999.10.02 01:50
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.02 02:30이준욱 wrote: > 초보예요.. 잘 부탁드려요.. 꾸벅 > > 함수인 ListBox1.Items.Delete(ListBox1.Itemin...
-
- 장소옥
- •
- 1999.10.02 01:48
- 1 COMMENTS
- /
- 0 LIKES
-
김창훈•1999.10.02 12:40장소옥 wrote: > 안녕하세요. > 디비를 MSSQL 쓰고 있는데요. > 데이타모듈에 테이블 컴포넌트를 올려놓...
-
- 이준욱
- 1999.10.02 01:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 이승연
- •
- 1999.10.02 01:40
- 2 COMMENTS
- /
- 0 LIKES
제목에 올린대로 메모 컴퍼넌트에 적인 텍스트를 텍스트 파일로 저장하려 하는데 저장시 파일이름만 입력하면 파일의 확장자가 붙지를 않습니다. Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt'); 이런식으로 하면 파일 이름만 입력...-
삶지기•1999.10.02 19:47이승연 wrote: > 제목에 올린대로 메모 컴퍼넌트에 적인 텍스트를 텍스트 파일로 저장하려 하는데 > 저장...
-
김영대•1999.10.02 02:40이승연 wrote: > 제목에 올린대로 메모 컴퍼넌트에 적인 텍스트를 텍스트 파일로 저장하려 하는데 > 저장...
-
- 강경중
- •
- 1999.10.02 00:29
- 1 COMMENTS
- /
- 0 LIKES
-
비홍•1999.10.02 18:49강경중 wrote: > 안녕하세요 강경중입니다. > > 얼마전 부터 아주 궁금한게 한가지 생겼는데 아무리 찾...
-
- 한
- 1999.10.02 00:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 박동진
- 1999.10.01 23:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 한
- 1999.10.01 22:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 1999.10.01 21:09
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.01 21:42왕초보 wrote: > Jpg를 다루는 컴포넌트를 어떤 자료실에서 다운 받아서 쓰려고 하는데, Jpgimg.pas만 >...
-
- 김창훈
- •
- 1999.10.01 20:59
- 1 COMMENTS
- /
- 0 LIKES
-
한•1999.10.01 22:09음냐... 첫번째는 이렇게 Memo := TStringList.Create; //Memo는 TMemo입니다. try with ...
-
- memogi
- •
- 1999.10.01 20:10
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.01 21:54memogi wrote: > 만약에 다음과 같이 쿼리를 했다면.... > > select 사번,이름,국어,영어,국어/영어 fr...
-
삶지기•1999.10.01 20:32memogi wrote: > 만약에 다음과 같이 쿼리를 했다면.... > > select 사번,이름,국어,영어,국어/영어 fr...
-
- 한근수
- 1999.10.01 20:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 김광섭
- •
- 1999.10.01 19:16
- 1 COMMENTS
- /
- 0 LIKES
-
비홍•1999.10.01 19:16김광섭 wrote: > //코딩 부분입니다.--------------------------------------------------------------- ...
-
- blueofsky
- •
- 1999.10.01 14:43
- 1 COMMENTS
- /
- 0 LIKES
-
삶지기•1999.10.01 19:51blueofsky wrote: > 안녕하세요... > 아주 초보적인 질문같은데 잘 몰라서요. > show에서 보인 창을 최...
-
- 김종성
- •
- 1999.10.01 19:17
- 1 COMMENTS
- /
- 0 LIKES
-
김광섭•1999.10.01 19:17김종성 wrote: > 델파이용 인스톨쉴드 에서 파일을 사용자가 임의로 지정하는 곳에 설치를 할수 있는지 궁...
-
- 임성룡
- •
- 1999.10.01 19:18
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.10.01 19:18임성룡 wrote: > 안녕하세요...임성룡입니다. > Image1.Picture.LoadfromFile('.imageemp.bmp')라는 명령...
-
- 정용진
- •
- 1999.10.01 08:37
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.10.01 20:07전용에뮬레이터를 만드는 방법은 무궁무진하겠네요. 바로 전용이기 때문에 마음데로 서로 시그널을 정하고...
-
- 송 한진
- •
- 1999.10.01 19:19
- 3 COMMENTS
- /
- 0 LIKES
-
김광섭•1999.10.01 19:19송 한진 wrote: > QReport 를 이용해서 데이타베이스 테이블을 프린트하려합니다. > 문제는 프린트버튼 ...
-
송 한진•1999.10.01 20:46김광섭 wrote: > 송 한진 wrote: > > QReport 를 이용해서 데이타베이스 테이블을 프린트하려합니다. > ...
-
이재식•1999.10.01 23:58안녕하세요? 제가 질문을 제대로 이해하고 말씀을 드리는건지 잘 모르겠습니다. 우선 DBLookUpList박스가...
> 제목에 올린대로 메모 컴퍼넌트에 적인 텍스트를 텍스트 파일로 저장하려 하는데
> 저장시 파일이름만 입력하면 파일의 확장자가 붙지를 않습니다.
>
> Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt');
> 이런식으로 하면 파일 이름만 입력 할때는 제대로 되지만
> 파일이름에 확장자까지 붙어있는 경우에는 확장자가 두번 붙어버리더군요
> 이런경우 어떻게 해야 할까요?
>
> 저는 Delphi 4.0 에 patch3 를 사용중입니다.
안녕하세요. 더 쉬운 방법이 있겠지만 약간의 코딩으로 해결할수가 있을꺼 같군요.
밑을 보세요.
......
var
int:integer;
str:string;
.......
begin
str:=SaveDialog1.FileName;
if pos('.',str) = 0 then
Memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt')
else
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
파일이름중 '.'이 있는지 없는지를 판단해서 달리해주면 되지 않을까 싶군요.
더 쉬운방법이 있을꺼여요. 그럼 이만.
좋은 하루되세요.