uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
ComCtrls, ToolWin, Menus, StdCtrls, ImgList,Printers;
...........................
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
FileName:=OpenDialog1.FileName;
Caption:=PrgName+' - '+ FFileName;
end;
end;
Identifier not found "OpenDialog1" Добавлено (18.10.11, 21:31)
---------------------------------------------
спасибо, разобрался)
