@Otto: Warum sollte man das verbieten?
Hallo Rolf,
Detlef hat das ja schon beantwortet. Doch das alleine ist es nicht, was mich an dem Beispiel etwas gestört hat.
1) Code-Optimierung: Sobald man mehrfach auf irgend etwas zugreift, in diesem Fall den Namen der INI-Datei, gehört sich dieser Teil ausgelagert. Hintergrund: Wenn man etwas ändert will/muss, dann macht man das an einer einzigen Stelle, und neben nicht an mehreren Stellen. Womöglich vergisst man dann was, und schon wundert man sich im Idealfall selber, im schlimmsten Fall der Kunde, dass irgendwas nicht funktioniert. Darum als Vorschlag mal die erste Optimierung:
Delphi-Quellcode:
function GetIniFileName: string;
begin
Result := IncludeTrailingBackslash(UserDatenDirectory)+'MeinIniName.ini';
end;
procedure IniLesen;
begin
With TIniFile.Create(GetIniFileName) do
try
// Werte lesen
finally
Free;
end;
end;
procedure IniSchreiben;
begin
With TIniFile.Create(GetIniFileName) do
try
// Werte schreiben
finally
Free;
end;
end;
2) Code-Design: Die Werte für Top, Left, Width und Height eines Formulares setzt man nicht einzeln. Dazu verwendet man
Warum ist das besser? Wenn man im Formular z.B. einen OnResize-Event hat, der schlimmstenfalls eine Positions-Neuberechnung vieler Komponenten durchführt, dann wird dieser mehrfach ausgelöst, wenn man die Werte einzeln setzt. Wenn man aber SetBounds nimmt, wird der Event nur einmal ausgelöst.
Beispiel um das nach zu vollziehen:
Delphi-Quellcode:
procedure TFrmTest.Button1Click(Sender: TObject);
begin // FormResize wird mehrfach ausgelöst
Top := Top - 10;
Left := Left - 10;
Width := Width + 10;
Height := Height + 10;
end;
procedure TFrmTest.Button2Click(Sender: TObject);
begin // FormResize wird nur einmal ausgelöst
Self.SetBounds(Left-10, Top-10, Width+10, Height+10);
end;
procedure TFrmTest.FormResize(Sender: TObject);
begin
Memo1.Lines.Add(DateTimeToStr(Now)+': FormResize wurde ausgelöst');
end;
Das alles ist jetzt nichts großartiges, sondern eher das kleine 1x1 der Grundausbildung (ich hab noch keine UNI von innen gesehen und mir alles selber bei gebracht) aber wenn man schon Beispiele angibt, dann sollte man es meiner Meinung nach richtig machen und sich der Verantwortung bewusst sein: Hier lesen viele mit, die von den Beispielen etwas lernen wollen/sollen/müssen.
Das ist jetzt keine Meckerei, ich will auch niemandem zu nahe treten, also versteht mich nicht falsch. Mir ging es ja auch schon so. Ich hab Beispiele meines Codes veröffentlicht, und bin dafür gesteinigt worden. Aber nur dadurch lernt man dazu. Also positiv denken
