Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
27. Nov 2019
Hi Uwe Raabe
Methoden auszulagern, macht meines Erachtens eh Sinn. Im vorliegenden Fall bin ich allerdings in der Entwicklung - einen guten Teil der lokalen Variablen brauche ich gar nicht. Und gerade in der Pfadbearbeitung bietet es sich an, auch mit anderen Formularen zu arbeiten. So enthält meine Mainform ein Property ProjectPath, bzw ein Property AppDataPath.
Das hat mich heute...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
26. Nov 2019
Hi jaenicke
In einem Team mit Bestimmtheit unverzichtbar. 12 Mitarbeiter und 13 Formatierungen - schlicht fürchterlich...
Lokale Deklarationszeilen sollten meines Erachtens aber immer kürzer und deutlich von Kopfzeilen unterscheidbar sein. Hier hab ich das offenbar zuwenig beachtet.
An die Versionsverwaltung hab ich dabei nicht gedacht. Auch wenn ich sowas noch korrigiere, wärs in...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
26. Nov 2019
Hi jaenicke
Auch dir vielen Dank - die Sache mit den Const-Parametern sollte ich mir wohl angewöhnen.
Die Untere Zeile deklariert allerdings lokale Variablen, wobei ich da gleich mehrere Vorgaben des Styleguids verletze:
function TOpenFileFrame.ChangeFolderIcon(LDeskIniPath, LBmpFile: String; IconIndex: Integer): Boolean;
var desktopini: TIniFile; LDesktopIniParent : String;
Die...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
26. Nov 2019
Hi Klaus01
LDeskIniPath wird in der aufrufenden Prozedur initialisiert:
LDeskIniPath := MainPage.ProjectPath + 'desctop.ini';
ShowMessage('LDeskIniPath := ' + LDeskIniPath +sLineBreak+
'LDeskIniPath := ' + ExtractFilePath(LDeskIniPath) +sLineBreak+
'**************************************');
LBmpFile:= LDeskIniPath + 'desctop.bmp';
...
Forum: Object-Pascal / Delphi-Language
Delphi
by Delbor,
26. Nov 2019
Hi zusammen
Mit folgender Prozedur will ich eine Inidatei erstellen:
function TOpenFileFrame.ChangeFolderIcon(LDeskIniPath, LBmpFile: String; IconIndex: Integer): Boolean;
var desktopini: TIniFile; LDesktopIniParent : String;
begin
LDeskIniPath := IncludeTrailingPathDelimiter(LDeskIniPath);
LDesktopIniParent := ExtractFilePath(LDeskIniPath);
ShowMessage('LDeskIniPath := ' +...