Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-01-2007
Avatar de lookmydoom
lookmydoom lookmydoom is offline
Miembro
 
Registrado: abr 2006
Posts: 102
Poder: 19
lookmydoom Va por buen camino
extraño error con TStringList

Buenas, tengo un problema que para mi es francamente riduculo, tengo 2 unidades Unit1.pas y Words.pas, en la ultima creo un objeto TstringList, cuando lo compilo no da error pero al llamar al constructor me da un error de memoria, aqui dejo el codigo de ambas units, haber si alguien me dice en que estoy fallando plz.

Unit1.pas
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DB, ADODB, words;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  tw:Twords;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
tw.iniciar('c:\prueba\');
end;

Words.pas
Código Delphi [-]
unit Words;

interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DB, ADODB;

type

    TWords = class
        private
          path:String;
          filelist:TStringList;
        public
          constructor iniciar(s:string);
        end;

var
    w:TWords;

implementation

constructor Twords.iniciar(s:String);
begin
filelist:=TStringList.Create;
path:=s;
end;
Responder Con Cita
  #2  
Antiguo 11-01-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Asi, a simple vista:

Código Delphi [-]
// Asi no
tw.iniciar('c:\prueba\');
// Asi si
tw:= TWords.iniciar('c:\prueba\');
Responder Con Cita
  #3  
Antiguo 11-01-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

No estás creando el objeto "TWords". Supongo que tendrías que hacer algo similar a esto:

Código Delphi [-]
begin
  tw := TWords.Create;
  tw.iniciar('c:\prueba\');
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #4  
Antiguo 11-01-2007
Avatar de lookmydoom
lookmydoom lookmydoom is offline
Miembro
 
Registrado: abr 2006
Posts: 102
Poder: 19
lookmydoom Va por buen camino
Muchas gracias y perdon por preguntar semejante burrera, supongo que a cualquiera se le pasa un cosa de estas cuando se tira 2 dias seguidos programando sin dormir.

Gracias y sorry otra vez.
Responder Con Cita
  #5  
Antiguo 11-01-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Lo raro es que todavía veas las letras.
__________________
David Esperalta
www.decsoftutils.com
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
Error Extraño Esau SQL 4 17-06-2005 22:44:16
Error con TStringList Jan_polero OOP 8 06-12-2004 02:15:33
error extraño gilberto_1126 Varios 2 05-09-2004 01:01:01
extraño error c:\pdoxusrs.net nesetru Conexión con bases de datos 1 06-01-2004 18:36:03
Error Extraño Esau OOP 5 19-11-2003 18:01:32


La franja horaria es GMT +2. Ahora son las 10:21:22.


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