자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi [공유] INI파일을 다루는 방법이 궁금합니다.
2017.08.25 10:37
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;
댓글 0
Delphi [공유] INI파일을 다루는 방법이 궁금합니다.
2017.08.25 10:37
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;
