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;

Asi, a simple vista:

Código Delphi [-]
// Asi no
tw.iniciar('c:\prueba\');
// Asi si
tw:= TWords.iniciar('c:\prueba\');

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;

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.

Hola,

Lo raro es que todavía veas las letras. :D :D