Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-05-2007
mp3968 mp3968 is offline
Registrado
 
Registrado: may 2007
Posts: 3
Poder: 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
  #2  
Antiguo 17-05-2007
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 28
jachguate Va por buen camino
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.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema al evaluar una expresión matemática JesusG Varios 2 08-09-2006 15:41:46
Tengo un problema con la libreria ElDioni Varios 0 15-07-2005 13:27:04
Tengo un problema con una consulta sql en delphi ElDioni SQL 2 11-07-2005 17:36:39
tengo un problema con el comando VAL perudelphi OOP 8 08-12-2004 03:31:30
Ayuda, tengo un problema fmonte Varios 5 06-10-2004 18:14:47


La franja horaria es GMT +2. Ahora son las 06:14:59.


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
Copyright 1996-2007 Club Delphi