モナーの *やさしい* Delphi質問スレ
レス数が900を超えています。1000を超えると表示できなくなるよ。
0906デフォルトの名無しさん
NGNG書込みがファイルに反映されないケースが発生して困ってます。
いろいろ突き詰めた結果、TOpenDialog.FileName を読んだ場合にのみ
現象が再現することを確認しました。どう関係があるのかがさっぱり、、、
procedure TMainForm.OpenBtnClick(Sender: TObject);
begin
if OpenDialog.Execute then
PathEdit.Text := OpenDialog.FileName; // *1
end;
procedure TMainForm.WriteIniFile;
var
ini: TMemIniFile;
begin
ini := TMemIniFile.Create('Sample.ini');
try
ini.WriteString('TEST', 'Path', PathEdit.Text);
finally
begin
ini.UpdateFile;
ini.Free;
end;
end;
end;
↑こういったコードです。*1 の部分を通らなければIniファイルの書き込みが
成功するんですが、通るととたんにダメです。デバッガで追った感じでは両者
とも同じ道を辿っているようなんですが。。。
どなたか、こういうケースをご存知の方いらっしゃいませんか?
レス数が900を超えています。1000を超えると表示できなくなるよ。