1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:

function eurosuchen(x:string;trenner:char;erster,meldung,negativ,zweinachkomma,runden:boolean):string;
  // sucht einen Eurobetrag in einem string; dieser wird anhand Const "Waehrung" (€,$..) identifiziert
  // result= betrag als string mit komma, wenn nichts gefunden ist dieser leer
  // x=string in dem gesucht wird
  // erster = true = erster betrag wird gesucht (=false = letzter)
  // meldung = true = meldung wenn nix gefunden wird
  // trenner = Euro/Cent trenner, meist , kann aber auch . sein
  // negativ=true= es werden auch negtaive bertäge ausgegeben, sonst Abosolutwerte
  // zweinachkomma = true = bei mehr als zwei nachkommastellen den rest abschneiden
  // runden = true = wenn mehr als zwei nachkommastellen, dann runden; false = nur abschneiden

  const waehrung='€';  // sonst zB $

  var i,pos1,pos2 : integer;
      rbetrag:string;
      gefund:boolean;
      hlp:char;

      function betrag(x:string; posi:integer; trenner:char):string; // sucht den Betrag zu einem € zeichen
        // wenn nix gefunden = result = '';
        const meldung=true;
        var i,pos2,pos3:integer;
            res:string;
        begin
          res:='';

          // nach links suchen, alle möglichen zeichen einschliessen
          dec(posi);
          while (posi > 0) and (x[posi] in [' ','0'..'9','-',trenner]) do begin
            res:= x[posi] + res;
            dec(posi);
          end;


          // jetzt die zeichen abschneiden, die nicht dazugehören

          // am ende alle nicht-zahlen entfernen
          while (length(res) > 0) and (res[length(res)] in [' ',trenner,'-']) do begin
            res := copy(res,1,length(res)-1);
          end;


          // jetzt am Anfang alle trenner und leerzeichen abschneiden
          while (length(res) > 0) and (res[1] in [' ',trenner]) do begin
            res := copy(res,2,length(res)-1);
          end;



          // jetzt alles links von dem rechtesten vorhandenen Leerzeichen abschneiden
          pos1:=0;
          for i:=1 to length(res) do if res[i]=' ' then pos1:=i;
          if pos1>0 then res := copy(res,pos1+1,length(res)-pos1);


          // jetzt prüfen ob mehr als ein trenner oder - vorhanden, wenn ja dann alles links von dem linkesten davon abschneiden
          repeat
            i:=length(res);
            pos2:=0;
            for i:=length(res) downto 1 do if res[i]=trenner then begin inc(pos2); pos3:=i; end;
            if pos2>1 then res:=copy(res,pos3+1,length(res)-pos3);
          until pos2<2;

          repeat
            i:=length(res);
            pos2:=0;
            for i:=length(res) downto 1 do if res[i]='-' then begin inc(pos2); pos3:=i; end;
            if pos2>1 then res:=copy(res,pos3+1,length(res)-pos3);
          until pos2<2;


          // wenn jetzt das - nicht am Anfang steht, alles links davon abschneiden
          if pos('-',res) > 1 then res:=copy(res,pos('-',res),length(res)-pos('-',res)+1);


          result:=res;

        end; // von function Betrag


  begin
    rbetrag:='';
    gefund:=false;


    if length(x) > 0 then begin

      // ersten Betrag suchen
      if erster then begin
        i:=1;
        while (not gefund) and (i<=length(x)) do begin
          if x[i]=waehrung then begin   // waehrung = € oder $...
            rbetrag:=betrag(x,i,trenner);
            if rbetrag<>'' then gefund:=true;
          end;
          inc(i);
        end;

      end else begin // Sonst letzten Betrag suchen
        i:=length(x);
        while (not gefund) and (i>0) do begin
          if x[i]=waehrung then begin   // waehrung = € oder $...
            rbetrag:=betrag(x,i,trenner);
            if rbetrag<>'' then gefund:=true;
          end;
          dec(i);
        end;

      end; // von letzten Betrag suchen

      // wenn nur Absolutbeträge, dann ggfs - am anfang löshen
      if gefund and (not negativ) and (rbetrag[1]='-') then rbetrag:=copy(rbetrag,2,length(rbetrag)-1);

      // wenn auf zwei Nachkommastellen begrenzt, dann ggfs abschneiden und ggfs. runden
      if zweinachkomma and (pos(trenner,rbetrag)>0) and (pos(trenner,rbetrag) < length(rbetrag)-2) then begin
        if runden then begin // ab 3. Nachkommastelle abschneiden und betrag runden
          hlp:=rbetrag[pos(trenner,rbetrag)+3];
          if hlp in ['5','6','7','8','9'] then rbetrag:=copy(rbetrag,1,pos(trenner,rbetrag)+1) + intTostr(strToInt(copy(rbetrag,pos(trenner,rbetrag)+2,1))+1)
          else rbetrag := copy(rbetrag,1,pos(trenner,rbetrag)+2);


        end else begin // nicht runden, nur abschneiden
          rbetrag := copy(rbetrag,1,pos(trenner,rbetrag)+2);

        end; // von nicht runden
      end;

    end; // von if length(x) > 0

    // wenn Meldung, dann ggfs Meldung ausgeben, wenn kein Betrag gefunden wurde
    if (not gefund) and meldung then showmessage('Keinen gültigen Betrag in '+x+' gefunden');

    result:=rbetrag;

  end;					

1:

([a-zA-ZäöüÄÖÜ0-9\.\,\ ]{1,})[\ ]{1,}([0-9\.]*)[\,\ ]{1,}([\-0-9\ ]*\,[0-9\€\ ]*)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

uses
  System.RegularExpressions, Vcl.Dialogs;

procedure Test(const AText: string);
var
  RegEx: TRegEx;
  Match: TMatch;
begin
  RegEx := TRegEx.Create('([a-zA-ZäöüÄÖÜ0-9\.\,\ ]{1,})[\ ]{1,}([0-9\.]*)[\,\ ]{1,}([\-0-9\ ]*\,[0-9\€\ ]*)');
  Match := RegEx.Match(AText);
  if Match.Success then
    ShowMessage(AText + ' ergibt:' + sLineBreak + Match.Groups[1].Value
       + sLineBreak + Match.Groups[2].Value + sLineBreak + Match.Groups[3].Value)
  else
    ShowMessage(AText + ': keine Übereinstimmung!');
end;

// Aufruf:
  Test('Hans Dampf, Geld für Bestellnummer 4567.44, 314,14€');
  Test('Bestellnummer 12345 34,67€');
  Test('Bestellnummer 12345,34,67€');
  Test('Bestellnummer 12345 34,67 €');
  Test('Bestellnummer 12345 -34,67€');