Delphi-Quellcode:
procedure TOpenFileFrame.TVFilesExplorerEdited(Sender: TObject; Node: TTreeNode;
var S: string);
var
NameRec: PNameRec;
LBitMap: TBitmap;
LiconIndex :Integer;
LIsdirectory,
LIsDB: Boolean;
ImageList : TDataObjectlist<TBitmap>;
LCaption,
LBmpFile,
LRealName,
LDeskIniPath: string;
begin
Bei mir gibt es die Prämisse: Jede Variable bekommt ihren eigenen Typ!
Delphi-Quellcode:
procedure TOpenFileFrame.TVFilesExplorerEdited(Sender: TObject; Node: TTreeNode;
var S: string);
var
NameRec: PNameRec;
LBitMap: TBitmap;
LiconIndex :Integer;
LIsdirectory: Boolean;
LIsDB: Boolean;
ImageList : TDataObjectlist<TBitmap>;
LCaption: string;
LBmpFile: string
LRealName: string;
LDeskIniPath: string;
begin
Und wenn einem das zu viele lokale Variablen sind, sollte man über einen Split in mehrere Methoden nachdenken.
Abgesehen davon müssen die Variablendeklarationen auch gar nicht sichtbar sein. Ein Mouse-Hover zeigt schließlich auch den Typ an.