Vielleicht solltest du das Problem erst mal etwas reduzieren.
Du hast folgenden String:
Delphi-Quellcode:
var
s: string;
begin
s := 'Bitte zahlen Sie 16,25 Euro';
Und jetzt über leg' mal, wie kommst du an die Zahl ran ???
Man müsste Zeichen für Zeichen durchgehen und schauen, ob es eine
Ziffer ist.
Dann Zeichen für Zeichen weitergehen bis Stringende oder ein Zeichen kommt,
das
nicht in der Menge ['0'..'9', ',', '.'] ist.
Jetzt hast du die Startposition und die Anzahl:
Delphi-Quellcode:
zahlstring := Copy(s, startpos, laenge);
zahl := StringToFloat(zahlstring);