[Lazarus] Access a sqlite3 database from within a class

[Paul van der Vlis]

Flávio Etrusco schreef:
> . (...)
>> What do I do wrong? Can anyone help me find a solution?
>>
>> With kind regards,
>>
>> Paul van der Vlis.
>>
>>
>> (...)
>>
>> procedure TSchermpje.statusClick(Sender: TObject);
>> var
>>  MijnKlasje : TKlasje;
>> begin
>>  status.Text := 'creeren';
>>>>>  MijnKlasje.Create;
>>  status.Text := 'gecreeerd';
>>  MijnKlasje.DoeIets;
>>  status.Text := 'gedaan';
>>  MijnKlasje.Destroy;
>>  status.Text := 'klaar';
>> end;
>>
>> initialization
>>  {$I unit1.lrs}
>>
>> end.
>>
> 
> You got the 'MijnKlasje' instantiation wrong - but I see you got the
> others right ;-)
> MijnKlasje.Create;  -->  MijnKlasje := TKlasje.Create;

You are right. Wow, it works!

With regards,
Paul.



-- 
http://www.vandervlis.nl/