Wie gesagt, ich will lediglich von der ellenlangen Prozedur-Parameterliste weg ! Hier ist das (stark reduzierte) TObject :
Delphi-Quellcode:
TStatSpeichern = class(TObject)
monat,
jahr,
menge : smallint;
...
public
procedure SchreibeStat (KuNr : integer);
end;
Hier ist die Prozedur :
Delphi-Quellcode:
procedure TStatSpeichern.SchreibeStat (KuNr : integer);
begin
with EingDM.StatSP do begin
ParamByName ('MONAT').AsInteger := monat;
ParamByName ('JAHR').AsInteger := jahr;
ParamByName ('MENGE').AsInteger := Menge;
...
ExecProc;
end;
end;
Das ist zwar jetzt eine
SQL Stored Procedure tut aber nichts zur Sache. Allerdings bin ich gerade am überlegen, ob ein Create nicht etwa sogar überflüssig ist.
