Das
Memo.Clear
kannst du dir übrigens schenken.
Und noch eine kleine Anmerkung zu deinem Kommentarstil.
Diese Kommentarlinien verbrauchen nur Zeit beim Tippen und bei jeder Änderung der Agumente bist du wieder dabei nutzlose Zeilen zu editieren.
Verwende diese Zeit lieber dazu ganz am Anfang der
Unit mit wenigen Zeilen zu beschreiben worum es in der
Unit geht.
Kommentierte End-Zeilen wie z.B.
end; {with}
sind ebenfalls Zeitverschwendung.
Besser man sorgt dafür dass Funktionen so klein sind dass man diese Hilfestellung nicht braucht.
Immer prüfen, ob man eine Funktion nicht zerlegen kann und Teile davon in weitere Funktionen auslagern kann.
Und noch ein Hinweis:
ich werde hier nicht weiter darüber diskutieren wie man Sourcecode kommentieren sollte.
Das führt nur zu langwierigen und fruchtlosen Diskussionen.
Ich gebe nur meine langjährigen Erfahrungen weiter und man kann diese annehmen oder auch nicht.
Vielleicht sind die Kommentarlinien auch von jemand anderem vorgegeben worden; ich weiß es nicht.
Meiner Erfahrung behindert es mehr als es bringt.
Delphi-Quellcode:
// lade Dateiinhalt in ein Memoview des Reports
procedure TfrmReport.SetTextFileInMemoView(const MemoName,Dateiname:String);
var
st:TStringList;
begin
with TfrxMemoView(frxreport1.FindObject( MemoName )) do
begin
if FileExists(Dateiname) then
begin
st:=TStringList.Create;
try
st.LoadFromFile(Datei);
Memo.Assign(st);
finally
st.Free;
end;
Visible := true;
end;
end;
end;