- 708 名前：デフォルトの名無しさん mailto:sage [2008/05/21(水) 14:20:05 ]
- 助けてください。
Form3で
procedure TForm3.FormCreate(Sender: TObject);
begin
IniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
try
pass := IniFile.Readinteger('pass', 'Pno',0);
finally
IniFile.Free;
end;
edit1.text:=inttostr(pass);
end;
んでForm1で
procedure TForm1.N1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
しても
Form3のEdit1にiniのPnoデータ表示されません（；；
