DELPHI中关于TString的问题

发布网友发布时间：2022-06-24 22:48

共1个回答

热心网友时间：2024-10-23 18:33

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IniFiles, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procere Button1Click(Sender: TObject);
procere Button2Click(Sender: TObject);
procere FormCreate(Sender: TObject);
procere FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyIniFile: TInifile;
implementation

{$R *.dfm}

procere TForm1.Button1Click(Sender: TObject);
var
FileName: string;
tString: string;
begin
Filename := ExtractFilePath(ParamStr(0)) + 'System.ini';

tString := MyIniFile.ReadString('SystemPath','AppPath','None');
if tString = 'None' then
begin
MyInifile.writestring('SystemPath','AppPath',ExtractFilePath(ParamStr(0)));
end;
end;

procere TForm1.Button2Click(Sender: TObject);
var
tString: String;
begin
tString := MyIniFile.ReadString('SystemPath','AppPath','None');
messagebox(Handle, pchar(tstring),'我的INI',mb_yesno);
end;

procere TForm1.FormCreate(Sender: TObject);
begin
MyInifile := TInifile.Create('System.ini');
end;

procere TForm1.FormDestroy(Sender: TObject);
begin
MyInifile := Nil;
MyInifile.Free;
end;

end.