자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Q, 

여러 PC에서 다른 정보를 이용하고 싶습니다.

예를 들어 PC마다 PC번호를 지정하고 싶습니다.

 

A, 

Ini 파일을 이용해 환경정보를 파일로 저장할 수 있습니다. 다음 코드를 참고하세요.

 

// uses System.IniFiles;

 

procedure TForm1.Button1Click(Sender: TObject);

var

  Path: string;

  IniFile: TIniFile;

  PCNo: Integer;

begin

  Path := ExtractFilePath(Application.ExeName) + 'Info.ini';

 

  IniFile := TIniFile.Create(Path);

  try

    PCNo := StrToIntDef(Edit1.Text, 0);

 

    IniFile.WriteInteger('PC', 'No', PCNo);

  finally

    IniFile.Free;

  end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

var

  Path: string;

  IniFile: TIniFile;

  PCNo: Integer;

begin

  Path := ExtractFilePath(Application.ExeName) + 'Info.ini';

 

  IniFile := TIniFile.Create(Path);

  try

    PCNo := IniFile.ReadInteger('PC', 'No', 0);

 

    Edit1.Text := IntToStr(PCNo);

  finally

    IniFile.Free;

  end;

end;

 
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15765
공지 유용한 관련 사이트 관리자2 2014.03.20 54580
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97982
1533 델파이 비콘 여러개의 거리값을 텍스트로 어떻게 나타내나요? [1] 손태희 2019.04.26 177
1532 여러 인-메모리 데이터 테이블들을 하나의 파일로 입출력하는 방법 [1] 신재국 2019.04.09 188
1531 포토앨범에서 이미지 불러올때 이미지가 회전이 됩니다. 바이오맨 2019.04.20 161
1530 파이어몽키 데크스탑! 폼이 메모리에서 안내려갑니다;;; [6] 아크나톤 2019.04.08 349
1529 VCL Style 지정시 MouseDown문제 크림슨킹 2019.04.16 193
1528 win32 에서는 FMX의 TSelection 같은 컴포넌트가 없을까요? [2] 아크나톤 2019.04.11 253
1527 DataSource 조회? [1] 맛재현 2019.04.11 236
1526 Delphi OpenCV 에 관하여... 아크나톤 2019.04.11 1654
1525 Cannot resolve Unit name Winapi.Windows, Winapi.Message 문제 [1] 미스터리 2019.04.11 622
1524 tcxGrid 에서 Column 컬러 변경 [2] 가나다 2019.03.28 822
1523 addindex 에서 key viloation 에러 [2] 가나다 2019.04.02 258
1522 Berlin 에서 Rio 로 변경 오류 (추가) 제트콜 2019.03.28 159
1521 안녕하세요~ 베를린Update2 버전 사용중인데 다중클라이언트가 동시에 조회하거나 자료수정할때 짧굵 2019.04.04 123
1520 SQL query에 변수 사용의 문제 [1] 뎅현 2019.04.03 380
1519 실명인증, 본인인증 [1] 가나다 2019.04.03 453
1518 TeeChart로 가능할까요? [1] Brian 2019.04.04 340
1517 VCL 화면을 웹페이지처럼 디자인 하려면 어떻게 해야 하나요? [2] 미스터리 2019.04.02 342
1516 DataSnap Server 에러 델파인 2019.04.02 153
1515 퀵레포트 질문입니다. [1] 희망나라 2019.03.26 150
1514 블랙스크린 file 넓다란세상 2019.03.30 114