Zahlen in einem String finden

[shmia]

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.