Hab noch eine letzte Frage(das ist eigentlich meine Hauptfrage bei dem Thema):
Eine Methode im Public Teil muss man schreiben, wenn man diese von anderen Units aufrufen will,
das ist jetzt klar.
Wenn ich aber jetzt eine Prozedur schreiben will, die nur in der einen
Unit/Form verwendet werden soll,
könnte ich die Prozedur ja entweder in den Private Teil schreiben oder direkt in die
Unit.
Wann mache ich den was?
Ein Bsp. von meinem Programmcode:
1. Möglichkeit
Delphi-Quellcode:
procedure BK_Suchen(BK_Name:String; var BK: TTreeNode);
var TV_Count, BK_Index:integer;
BK_Gefunden: Boolean;
begin
with FormHaupt do
begin
//Variablen initialisieren
BK_Gefunden := false;
TV_Count := TreeViewHaupt.Items.Count - 1;
BK_Index := -1;
//Eintrag suchen
repeat
inc(BK_Index);
BK := TreeViewHaupt.Items[BK_Index];
if BK.Text = BK_Name then
BK_Gefunden := true;
until(BK_Gefunden) or (BK_Index = TV_Count);
end;
end;
2. Möglichkeit
Delphi-Quellcode:
interface
...
private
procedure BK_Suchen(BK_Name:String; var BK: TTreeNode);
...
implementation
...
procedure TFormHaupt.BK_Suchen(BK_Name:String; var BK: TTreeNode);
var TV_Count, BK_Index:integer;
BK_Gefunden: Boolean;
begin
//Variablen initialisieren
BK_Gefunden := false;
TV_Count := TreeViewHaupt.Items.Count - 1;
BK_Index := -1;
//Eintrag suchen
repeat
inc(BK_Index);
BK := TreeViewHaupt.Items[BK_Index];
if BK.Text = BK_Name then
BK_Gefunden := true;
until(BK_Gefunden) or (BK_Index = TV_Count);
end;
...
Beides funktioniert, aber wann wende ich was an?