Hinzufügen von Items zu einer Listbox

[Tubos]

Hallo!

Ich habe bei meinem neuen Programm eine Listbox namens kuLog.
In einem ButtonClick-Ereignis steht folgendes drinnen:
kulog.items.add('abc'); Das funktioniert natürlich und schreibt mir in die Listbox einen neuen Eintrag namens abc.
Es sollte aber die Zeit dabeistehen, also lagere ich das am besten in eine eigene Prozedur aus (der Einfachheit halber lasse ich die Funktion zuerst auch nur abc reinschreiben):

Delphi-Quellcode:

 procedure kuLogAdd(eintrag: string);
 begin
 kulog.items.add('abc');
 end;

Delphi meldet beim Kompilieren jedoch: "Undefinierter Bezeichner: kulog"
Wieso lässt er in einer Prozedur kulog.items.add('abc') zu, in einer anderen jedoch nicht?

Tubos

[toms]

Hi,

Zitat:

Wieso lässt er in einer Prozedur kulog.items.add('abc') zu, in einer anderen jedoch nicht?

Weil kuLogAdd keine Methode deiner Form-Klasse ist, d.h. innerhalb
der Form-Klasse deklariert ist.

Lösung1: kuLogAdd als Methode deiner Form deklarieren.

Delphi-Quellcode:

//..
private
  procedure kuLogAdd(eintrag: string);
//..

implemenatation

//..

procedure TForm1.kuLogAdd(eintrag: string);
begin
  kulog.items.add('abc');
end;

Lösung2: "Formname". vor die Listbox scheiben:

Delphi-Quellcode:

procedure kuLogAdd(eintrag: string);
begin
  Form1.kulog.items.add('abc');
end;

[Tubos]

Achja, objektorientierte Programmierung...ich weiß schon

Danke!