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;