El problema que tengo k puedo elegir el archivo a abrir , pero no cargarlo encontre buscando por ahi. lo que esta con rojo es lo que me da error , gracias.
[Error] abrir.pas(47): Undeclared identifier: 'Lines'
Código Delphi
[-]
unit Abrir;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CustomizeDlg, StdCtrls, ComCtrls, ToolWin, FileCtrl, Grids,
Outline, DirOutln ,ExtCtrls,Clipbrd,Spin,ShellApi;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
OpenDlg : TOpenDialog;
strNombreArch: String; implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDlg := TOpenDialog.Create(Self);
OpenDlg.Options:= OpenDlg.Options +[ofAllowMultiSelect];
OpenDlg.Lines.LoadFromFile(strNombreArch);OpenDlg.Line.SaveToFile(strNombreArch);
If OpenDlg.Execute then
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.