Q&A
ini값을 읽어오고 저장하는 겁니다.
저장은 문제없이 잘 되는군요.
문제는 저장된 값을 읽어오는 일인데
화면에는 체크박스 한개와 에디트박스 2개가 있습니다.
1.CheckBox.Checked를 True
2.Edit1.Text 숫자를 12345
3.Edit2.Text 문자를 '테스트중' 으로 각각 저장후(저장값은 완벽하군요...)
다시 읽어오기를 해보면 각각 False , 0 , '' 의 값이 표기되어 나옵니다.
제대로 값이 나올수 있도록 예문수정을 부탁합니다.
procedure TForm1.Button2Click(Sender: TObject);
var
abcini : tinifile; //변수선언
begin
NoteBook1.PageIndex:=3;
try
abcini := tinifile.create('abc.ini'); //ini메모리할당
with abcini do
begin
CheckBox1.Checked:=ReadBool('제목1', 'checkbox1', False);
Edit1.Text:=IntToStr(ReadInteger('제목2', 'Edit1', 0));
Edit2.Text:=ReadString('제목3', 'Edit2', '');
end;
finally
abcini.Free; //메모리해제
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
abcini: Tinifile;
begin
NoteBook1.PageIndex:=3;
Try
abcini:= Tinifile.Create('abcini');// 메모리할당
abcini.WriteBool('제목1', 'chkbox1', checkbox1.checked);//불린값쓰기
if Edit1.Text<>'' Then
abcini.WriteInteger('제목2', 'Edit1', StrToInt(Edit1.Text));//숫자
abcini.WriteString('제목3', 'Edit2', Edit2.Text); //문자
finally
abcini.Free; //메모리해제
end; //abcini file은 window 디렉토리에 위치됨...
end;
- ini file을 읽어와서 화면에 나타낼때...
ini값을 읽어오고 저장하는 겁니다.
저장은 문제없이 잘 되는군요.
문제는 저장된 값을 읽어오는 일인데
화면에는 체크박스 한개와 에디트박스 2개가 있습니다.
1.CheckBox.Checked를 True
2.Edit1.Text 숫자를 12345
3.Edit2.Text 문자를 '테스트중' 으로 각각 저장후(저장값은 완벽하군요...)
다시 읽어오기를 해보면 각각 False , 0 , '' 의 값이 표기되어 나옵니다.
제대로 값이 나올수 있도록 예문수정을 부탁합니다.
procedure TForm1.Button2Click(Sender: TObject);
var
abcini : tinifile; //변수선언
begin
NoteBook1.PageIndex:=3;
try
abcini := tinifile.create('abc.ini'); //ini메모리할당
with abcini do
begin
CheckBox1.Checked:=ReadBool('제목1', 'checkbox1', False);
Edit1.Text:=IntToStr(ReadInteger('제목2', 'Edit1', 0));
Edit2.Text:=ReadString('제목3', 'Edit2', '');
end;
finally
abcini.Free; //메모리해제
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
abcini: Tinifile;
begin
NoteBook1.PageIndex:=3;
Try
abcini:= Tinifile.Create('abcini');// 메모리할당
abcini.WriteBool('제목1', 'chkbox1', checkbox1.checked);//불린값쓰기
if Edit1.Text<>'' Then
abcini.WriteInteger('제목2', 'Edit1', StrToInt(Edit1.Text));//숫자
abcini.WriteString('제목3', 'Edit2', Edit2.Text); //문자
finally
abcini.Free; //메모리해제
end; //abcini file은 window 디렉토리에 위치됨...
end;
3
COMMENTS
-
-
> procedure TForm1.Button2Click(Sender: TObject);
> var
> abcini : tinifile; //변수선언
> begin
> NoteBook1.PageIndex:=3;
> try
> abcini := tinifile.create('abc.ini'); //ini메모리할당
> with abcini do
> begin
> CheckBox1.Checked:=ReadBool('제목1', 'checkbox1', False);
->CheckBox1.Checked:=ReadBool('제목1', 'checkbox1', CheckBox1.Checked);
> Edit1.Text:=IntToStr(ReadInteger('제목2', 'Edit1', 0));
->Edit1.Text:=ReadString('제목2', 'Edit1', Edit1.Text);
> Edit2.Text:=ReadString('제목3', 'Edit2', '');
->Edit2.Text:=ReadString('제목3', 'Edit2', Edit2.Text);
읽어 올때는 숫자를 문자형으로 읽어도 상관없겠져?
깨굴~
-
인터기초 wrote:
>
> ini값을 읽어오고 저장하는 겁니다.
> 저장은 문제없이 잘 되는군요.
> 문제는 저장된 값을 읽어오는 일인데
> 화면에는 체크박스 한개와 에디트박스 2개가 있습니다.
> 1.CheckBox.Checked를 True
> 2.Edit1.Text 숫자를 12345
> 3.Edit2.Text 문자를 '테스트중' 으로 각각 저장후(저장값은 완벽하군요...)
>
> 다시 읽어오기를 해보면 각각 False , 0 , '' 의 값이 표기되어 나옵니다.
> 제대로 값이 나올수 있도록 예문수정을 부탁합니다.
>
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> abcini : tinifile; //변수선언
> begin
> NoteBook1.PageIndex:=3;
> try
> abcini := tinifile.create('abc.ini'); //ini메모리할당
> with abcini do
> begin
> CheckBox1.Checked:=ReadBool('제목1', 'checkbox1', False);
> Edit1.Text:=IntToStr(ReadInteger('제목2', 'Edit1', 0));
> Edit2.Text:=ReadString('제목3', 'Edit2', '');
> end;
> finally
> abcini.Free; //메모리해제
> end;
> end;
>
> procedure TForm1.Button3Click(Sender: TObject);
> var
> abcini: Tinifile;
> begin
> NoteBook1.PageIndex:=3;
> Try
> abcini:= Tinifile.Create('abcini');// 메모리할당
> abcini.WriteBool('제목1', 'chkbox1', checkbox1.checked);//불린값쓰기
> if Edit1.Text<>'' Then
> abcini.WriteInteger('제목2', 'Edit1', StrToInt(Edit1.Text));//숫자
> abcini.WriteString('제목3', 'Edit2', Edit2.Text); //문자
> finally
> abcini.Free; //메모리해제
> end; //abcini file은 window 디렉토리에 위치됨...
>
> end;
>
다른 것은 이상이 없는데요.. 읽어올 때하고 저장할 때의 파일명이 틀리군요..
'abc.ini'와 'abcini' 그리고 'checkbox1'과 'chkbox1'도 통일해야겠네요..
(NOTICE) You must be logged in to comment on this post.
-
- 인터기초
- •
- 2001.10.20 21:09
- 3 COMMENTS
- /
- 0 LIKES
ini값을 읽어오고 저장하는 겁니다. 저장은 문제없이 잘 되는군요. 문제는 저장된 값을 읽어오는 일인데 화면에는 체크박스 한개와 에디트박스 2개가 있습니다. 1.CheckBox.Checked를 True 2.Edit1.Text 숫자를 12345 3.Edit2.Text 문자를...-
인터기초•2001.10.21 01:13두분의 말씀이 모두 도움이 되었습니다. 다시한번 감사 드립니다.
-
깨구락지•2001.10.20 22:00> procedure TForm1.Button2Click(Sender: TObject); > var > abcini : tinifile; //변수선언 > begin...
-
이순구•2001.10.20 21:57인터기초 wrote: > > ini값을 읽어오고 저장하는 겁니다. > 저장은 문제없이 잘 되는군요. > 문제는 ...
-
- 초보(j)
- •
- 2001.10.20 21:07
- 1 COMMENTS
- /
- 0 LIKES
-
eraser•2001.10.23 18:51델파이의 기본컴포넌트로 지원하는 스트링그리드는 지원안합니다. 공개된 컴포넌트중에 그런 기능이 있는...
-
- 왕초보임더
- •
- 2001.10.20 20:17
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2001.10.20 20:34쉽지 않은 문제이고 설명하기도 쉽지 않습니다... ROLLBACK SEGMENT의 크기가 작아서 생기는 에러입니다...
-
- 깨구락지
- •
- 2001.10.20 19:31
- 2 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.10.20 21:07Varian Async32 V1.54
-
깨구락지•2001.10.22 17:24ASync 는 알수 없는 문제로 사용이 안됩니다. Async 와 상관없는 문장에서도 에러를 발생시키는등 이상동...
-
- 라스트
- •
- 2001.10.20 19:11
- 2 COMMENTS
- /
- 0 LIKES
-
쩌비•2001.10.20 20:55Async.Parity 라면 열거형 타입입니다.. Async.Parity := T????????[pNone]; 타입은 Async 치고 . 치면 ...
-
쩌비•2001.10.20 21:14Async.Parity := TvaParity(paNone); Async.Parity 라면 열거형 타입입니다.. > Async.Parity := T????...
-
- 쩌비
- •
- 2001.10.20 19:11
- 2 COMMENTS
- /
- 0 LIKES
-
회색도시•2001.10.20 22:32메모컴포넌트에서 커서위치의 라인을 알아내거나 설정하는 방법입니다. 홍세비님의 홈에서 긁어온 내용입...
-
쩌비•2001.10.21 09:37회색도시 wrote: > 메모컴포넌트에서 커서위치의 라인을 알아내거나 설정하는 방법입니다. > 홍세비님의 ...
-
- 초짜
- 2001.10.20 19:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 태균
- •
- 2001.10.20 18:33
- 1 COMMENTS
- /
- 0 LIKES
-
초보의비애•2001.10.20 18:49태균 wrote: > **상황 : 두개의 테이블이 있습니다. > A 테이블에서 B 테이블의 컬럼 하나를 FK...
-
- 돌머리
- 2001.10.20 12:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.10.20 12:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 정규성
- 2001.10.20 03:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 김길남
- 2001.10.20 12:21
- 0 COMMENTS
- /
- 0 LIKES
-
- oranzi
- 2001.10.20 12:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 지킴이
- •
- 2001.10.20 02:54
- 2 COMMENTS
- /
- 0 LIKES
-
나두초보~~•2001.10.20 03:17지킴이 wrote: > C/S 프로그램을 만들었는데요...배포시에 문제가 발생합니다. > 처음에는 클라이언트 모...
-
나두초보~~•2001.10.20 03:26저기여.. ㅡㅡ; 제가 답변을 좀 이상하게 했네여.. 플짜다가.. 머리가 아파서..ㅡㅡ; 한가지 물어 볼것...
-
- 초보
- •
- 2001.10.20 02:30
- 1 COMMENTS
- /
- 0 LIKES
-
mkmkgk•2001.10.20 03:11초보 wrote: > 텍스트화일에 있는 데이타를 파라독스 DB에 넣을려구 하는데 방법을 모르겠어요.. > DB까...
-
- 소나무
- 2001.10.20 02:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 이쁜이
- 2001.10.20 02:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.10.20 12:19
- 2 COMMENTS
- /
- 0 LIKES
-
Young•2001.10.20 12:19같은 지역의 사람들끼리 한 4 ~ 5명정도 모여서 플램 하나씩 만들어 나가다 보면.... 처음엔 친목도...
-
나두초보~~•2001.10.20 12:19왕초보 wrote: > 델파이를 배우고 싶은데요, 가르쳐주는 학원이 없군요? > 어디 델파이를 알려주는 학원 ...
-
- 고도리
- 2001.10.20 01:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.10.20 01:19
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.20 04:52초보 wrote: > 삭제하시겠습니까? 란 메시지를 뿌리려고 합니다. > 그런데 "예" 버튼에 포커스가 가있네...
-
초보•2001.10.20 12:23홍성락 wrote: > 초보 wrote: > > 삭제하시겠습니까? 란 메시지를 뿌리려고 합니다. > > 그런데 "예" 버...
다시한번 감사 드립니다.