PDA

View Full Version : Open Dialog در دلفی 8 ایراد می گیره



aminadibi
جمعه 19 تیر 1383, 12:10 عصر
نمی دونم چرا این تو دلفی 8 ایراد می گیره در حالی که تو دلفی 7 مشکلی نداشت


procedure Tmainform.N3Click(Sender: TObject);
var
res:Integer;
begin
if rich.Modified then
begin
res:=Application.MessageBox(
'آیا می خواهید تغییرات اعمال شوند',
'اخطار ',MB_YESNOCANCEL );
if res = IDYES then
N4Click(sender);
if res = IDCANCEL then
Exit;
End;
opendialog1.FileName := '';
if opendialog1.Execute then
begin
if rich.Lines.Count > 0 then
rich.Clear;
Rich.Lines.LoadFromFile(opendialog1.FileName);
SaveDialog1.FileName := OpenDialog1.FileName;

end;
end;