ich habe noch eine Randbedingung : ich will am existierenden Code möglichst wenig ändern
Gibt es in DELPHI Static Datentypen ? (siehe VB Beispiel)
Delphi-Quellcode:
Function updateTotalSales(ByVal thisNewSale As Decimal) As Decimal
Static totalSales As Decimal = 0
totalSales += thisNewSale
Return totalSales
End Function