Ver Mensaje Individual
  #1  
Antiguo 17-05-2007
mp3968 mp3968 is offline
Registrado
 
Registrado: may 2007
Posts: 3
Reputación: 0
mp3968 Va por buen camino
Question Tengo un problema con una expresion en delphi 6

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;
//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
OpenDlg.Line.SaveToFile(strNombreArch);//Guarda el archivo    error 

If OpenDlg.Execute then

  //ShowMessage(OpenDlg.Files.Strings[0]);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

Última edición por jachguate fecha: 17-05-2007 a las 19:25:46.
Responder Con Cita