A Awen.ZW.Yang Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #2 var NewDir: string; begin if SelectDirectory('请选择存放路径:', '', NewDir) then directoryEdit.Text := NewDir; end;
var NewDir: string; begin if SelectDirectory('请选择存放路径:', '', NewDir) then directoryEdit.Text := NewDir; end;