PDA

Ver la Versión Completa : Tengo un problema con una expresion en delphi 6


mp3968
17-05-2007, 19:08:29
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
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.

jachguate
17-05-2007, 19:25:12
Claro... OpenDlg no tiene una propiedad "Lines".

Además, al comentar el código y lograr que compile, obtendrás un hermoso Access Violation, porque tampoco has creado instancia alguna de TOpenDialog.

Te recomiendo, amig@, que leas la guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php), y que cuando plantees una pregunta, mas que copiar y pegar código que no compila, expliques lo que queres conseguir, pues no nos gusta en general, creer que hacemos la tarea de la escuela de nadie.

También te recomiendo que busques información sobre las etiquetas [ code ], [ delphi ], [ sql ], disponibles en los foros para publicar trozos de código.

Por ahora, edito tu mensaje original añadiendo la etiqueta para que podas ver cómo se usa.

Hasta luego.

;)