Also Elegant wäre ein Callback (Event) zu verwenden.
Delphi-Quellcode:
TNumberEvent = procedure(const number:string) of object;
procedure ExtractNumbers(const s : string; callback :TNumberEvent);
begin
if not Assigned(callback) then Exit;
// Rest ist Hausaufgabe
end;
Das Argument von
TNumberEvent
könnte auch ein Integer sein, aber dann besteht die Gefahr des Überlaufs.