Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Tengo un problema con una expresion en delphi 6 (https://www.clubdelphi.com/foros/showthread.php?t=43690)

mp3968 17-05-2007 19:08:29

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.

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, 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.

;)


La franja horaria es GMT +2. Ahora son las 16:31:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi