Zitat von
klaus33:
Auf dieser Memo.Line steht
'Bitte zahlen Sie '+FloatToStr(16.25)+' Euro'
und noch 15 weitere Zahlen, die auch mit der Bedingung abhängt
Das könnte in etwas so gehen:
Delphi-Quellcode:
ziffernzahl := pos(Memo1.lines.strings[1],'Euro') - pos(Memo1.lines.strings[1],'Sie')
s := copy(Memo1.lines.Strings[1],pos(Memo1.lines.Strings[1],'Sie'),ziffernzahl);
preis := StrToFloat(s);
Grüße
Klaus