zahlen aus unterschiedlichen memos auslesen

[centauri]

so, mit der funkction kann ich die erste zahl auslesen... vielleicht kann mir den ja jemand umschreiben, dass sie die zweite zahl packt...

Delphi-Quellcode:

{© by Himitsu @ Delphi-PRAXiS          }
{Org by "Jens Schumann" @ Delphi-PRAXiS}

Function TForm3.GetNumbers(L: TStrings; aStart, aEnd: String; aPos: Integer): String;
    Function DeleteNonNumbers(Const Value: String): String;
      Var I: Integer;

      Begin
        Result := '';
        For I := 1 to Length(Value) do Begin
          If Value[I] in ['0'..'9', ',', '-'] Then Result := Result + Value[I];
          If Value[I] = '.' Then Result := Result + '';
        End;
        {eventuelle Tausendertrennzeichen entfernen}

      End;

    Var H: String;
      iCnt: Integer;
      aCount: Integer;

    Begin
      Result := '0';
      aStart := AnsiUpperCase(aStart);
      aEnd := AnsiUpperCase(aEnd);
      aCount := 0;
      For iCnt := 0 to L.Count - 1 do Begin
        H := AnsiUpperCase(L[iCnt]);
        If (Pos(aStart, H) > 0) and (Pos(aEnd, H) > 0) Then Begin
          Inc(aCount);
          If aCount = aPos Then Begin
            H := Copy(L[iCnt], Pos(aStart, H) + Length(aStart), Pos(aEnd, H) - Pos(aStart, H) - Length(aStart));
            H := DeleteNonNumbers(H);
            If H > '' Then Result := H Else Result := '0';
            break;
          End;
        End;
      End;
End;

thx
centauri