Tengo un problema con una expresion en delphi 6
Publicado por michel (3 intervenciones) el 17/05/2007 17:53:24
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'
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;
//estos dos son para el clipboard o portapapeles
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
OpenDlg : TOpenDialog;
strNombreArch: String; //Guardará el nombre del archivo
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDlg := TOpenDialog.Create(Self);
OpenDlg.Options:= OpenDlg.Options +[ofAllowMultiSelect];
OpenDlg.Lines.LoadFromFile(strNombreArch);//Abre el archivo ****error aqui **** con el parametro lines
OpenDlg.Line.SaveToFile(strNombreArch);//Guarda el archivo ****error aqui *** con el parametro line
If OpenDlg.Execute then
//ShowMessage(OpenDlg.Files.Strings[0]);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Editar/Borrar Mensaje
[Error] abrir.pas(47): Undeclared identifier: 'Lines'
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;
//estos dos son para el clipboard o portapapeles
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Panel1: TPanel;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
OpenDlg : TOpenDialog;
strNombreArch: String; //Guardará el nombre del archivo
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDlg := TOpenDialog.Create(Self);
OpenDlg.Options:= OpenDlg.Options +[ofAllowMultiSelect];
OpenDlg.Lines.LoadFromFile(strNombreArch);//Abre el archivo ****error aqui **** con el parametro lines
OpenDlg.Line.SaveToFile(strNombreArch);//Guarda el archivo ****error aqui *** con el parametro line
If OpenDlg.Execute then
//ShowMessage(OpenDlg.Files.Strings[0]);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Editar/Borrar Mensaje
Valora esta pregunta


0