Delphi Eigene Procedure deklarieren! Wie?

killertomate285 · 28. Januar 2015

Moin zusammen!

Delphi 2009

Ich habe eine eigene Procedure erstellt:

Code:

procedure init;
var i: integer;
    f: textfile;
    s: string;

begin
assignfile(f,'D:\text.txt');
reset(f);
while not eof(f) do
         begin
         readln(f,s);
         Listbox1.ItemsAdd(s); // Hier meckert Delphi: Unbekannter Bezeichner 'Listox1'!
         end;
closefile(f);
end;

Während das Folgende Ohne Problem klappt: (eben eine von Delphi erstellte Procedure!)

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'D:\text.txt');
reset(f);
while not eof(f) do
         begin
         readln(f,s);
         Listbox1.ItemsAdd(s);
         end;
closefile(f);
end;

Die Listbox befindet sich auf der Form1 und ist natürlich in allen proceduren verwendbar,
welche Delphi selbst erstellt hat(zB durch Doppelklick auf einen Button- TForm1.Button1Click(Sender: TObject).
Hierbei erstellt Delphi auch autom. eine Deklaration der Procedure.

Im Buch "Delphi 6" steht, das beim drücken von STRG/SHIFT +C Delphi
eine Deklaration meiner eigenen Procedure erstellt. Klappt aber nicht!
Das Buch ist auch schon ziemlich alt, Delphi 2009 ist eben viel "jünger".

Weder über das Buch noch über google komme ich an eine Info hierüber ran!
Auch die Delphi Hilfe zeigt mir dazu nichts an!

Ich will die Procedure gerne von Hand deklarieren! NUR WIE? UND WO?

PLEASE HELP!!!

Matzegr · 28. Januar 2015

Meine Delphi Erfahrungen liegen weit zurück aber was klappen könnte: Aus "Listbox1.ItemsAdd(s);" einfach "Form1.Listbox1.ItemsAdd(s);" machen.

HptMumm · 28. Januar 2015

Hallo,
die Procedure unter :
type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
public
procedure init;
{ Public-Deklarationen }
end;

deklarieren.

Die Beschreibung sollte dann sein:

procedure Tform1.Init;
begin
...
end;

Dann kennt er auch die listbox.

gruß

killertomate285 · 28. Januar 2015

Hallo Matzegr!

Alle Achtung: so gibts keine Fehlermeldung und ich kann die Procedure nutzen!

Ich benutze dieses Form1. bzw Form2. usw gerne, wenn ich andere units ansprechen will.
Dass das hier funzt, erstaunlich!

Hallo HptMumm!
Dein Tip klappt auch!
Endlich weiß ich über die Deklaration bescheid!

DANKE EUCH!!!!

Suche

Delphi Eigene Procedure deklarieren! Wie?

killertomate285

Lt. Commander

Matzegr

Commander

HptMumm

Newbie

killertomate285

Lt. Commander

Ähnliche Themen